代码
excel利用VBA设置或取消打印区域
如果需要用VBA代码在Excel工作表中设置打印区域，可以用下面的方法。一、设置打印区域方法一：用PageSetup.PrintArea属性。代码如下：Sub SetPrintArea()Sheet1.PageSetup.PrintArea = "A1:F15"End Sub上述代码将区域A1:F15设置为打印区域。如果要同时设置多个打印区域，可以将上述代码改为：Sub SetPrintArea()Sheet1.PageSetup.PrintArea = "A1:F15,A20:F45"End Sub上述代码将区域A1:F15及A20:F45设置为打印区域，可以分两页来打印。还可以使用变量来设置一个动态打印区域：Sub SetPrintArea()PrintRow = 100Sheet1.PageSetup.PrintArea = "A1:G" & PrintRowEnd Sub
Excel VBA中debug.print解释和使用介绍
VBA 中Debug.Print 是什么意思？ debug.print的使用方法是怎样的呢？ VBA 中Debug.Print 的作用是将代码执行结果显示在“立即窗口”中。比如，我们按ALT+F11组合键，打开VBE窗口，插入——模块，输入下面的代码：Sub 测试()Debug.Print "ab"End Sub 将光标定位域代码中任意位置，按F5键执行代码，在立即窗口就会显示代码执行结果。 下图就是执行Debug.Print "ab"的效果。 又比如我们插入——模块，输入下面的代码：Sub 立即窗口显示结果() Debug.Print 300 * 2 + 50End Sub 同样的，F5键执行Debug.Print 300 * 2 + 50这句代码，在立即窗口就会显示出650。
excel VBA快速取消工作簿中各工作表的自动筛选
当工作簿中的工作表数量较多时，要快速取消各个工作表中的自动筛选可以下面的VBA代码。 1.按Alt+F11，打开VBA编辑器。2.在代码窗口中输入下列代码Sub RemoveAllAutoFilter()Dim sht As WorksheetFor Each sht In ActiveWorkbook.WorksheetsIf sht.AutoFilterMode = True Then sht.AutoFilterMode = FalseNextEnd Sub3.关闭VBA编辑器，按快捷键Alt+F8，打开“宏”对话框，选择包含“RemoveAllAutoFilter”的宏名，并单击“执行”按钮。
Word中出现IE打印页眉页脚的操作方法
在Word中出现常见问题的情况中，尤其是IE游览器的打印使用，具体该怎么去实行操作的呢?今天，小编就教大家在Word中出现IE打印页眉页脚的操作使用。 Word中出现IE打印页眉页脚的操作步骤如下： 默认情况下，通过IE的打印对话框，打印出来的内容都有页眉和页脚的。 查看ie的页面设置发现如右图中，页眉页脚。· 下面先说明&w&bPage&p of &P ， &u&b&d的含义. &w – 窗口标题 &u – 页面地址 &d – 短日期格式，如10/12/2006 &D – 长日期格式，如Tursday, October 12, 2006
excel改变鼠标指针形状的VBA代码
可以通过设置Application.Cursor属性改变鼠标指针形状。如在XP中下面的语句将鼠标指针的形状改变为沙漏状，这种形状的鼠标指针表示系统比较繁忙。Application.Cursor = xlWait改为I型指针：改变鼠标指针形状后，Excel不会自动恢复，用下面的语句恢复默认指针形状：Application.Cursor = xlDefaultApplication.Cursor = xlIBeam
excel打开和关闭光驱的宏代码
用下面的宏代码可以打开或关闭电脑中默认的光驱。方法是：1.按Alt+F11打开VBA编辑器。2.在代码窗口中输入下列代码：Private Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _ByVal hwndCallback As Long)Sub OpenDefaultCDDVD()‘打开光驱mciSendStringA "Set CDAudio Door Open", 0&, 0, 0End SubSub CloseDefaultCDDVD()‘关闭光驱mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0End Sub
利用VBA获取Excel最近使用的工作簿列表
下面的VBA代码可以获取Excel中最近使用的工作簿的完整路径和名称，并将其放到代码所在工作表的A列中。在Excel 2007和Excel 2010中，如果通过“Office按钮（或“文件”选项卡）→Excel选项→高级”设置显示“最近使用的文档”数量大于“0”，该代码可以显示最近使用的最多50个工作簿名称。而对于Excel 2003，A列中显示的工作簿名称数量与“文件”菜单底部所显示的最近使用文件数量相同。按Alt+F11，打开VBA编辑器，在右侧代码窗口中输入下列代码：Sub GetMRUList()On Error Resume NextDim i, MRUNum As IntegerMRUNum = Application.RecentFiles.MaximumApplication.RecentFiles.Maximum = 50Range("A1:A50").ClearFor i = 1 To 50Cells(i, 1) = Application.RecentFiles(i).PathNext iApplication.RecentFiles.Maximum = MRUNumEnd Sub运行代码，即可在A列中显示最近使用的工作簿列表。
如何快速将多个excel工作表批量另存为单独的工作簿
有时会遇到这种情况，某个Excel工作簿中包含许多工作表，需要把其中的某个工作表发送给其他用户，或者将某几个工作表发送给不同的用户，通常的做法是将这些工作表移动或复制到新工作簿中，保存后再发送给他们。当工作表的数量较多时，逐一手动操作显得有些繁琐，这时用下面的VBA代码就非常方便了，方法如下：按Alt+F11，打开VBA编辑器，在代码窗口中粘贴下列代码：Sub SaveSheetAsWorkbook()Dim theName As StringOn Error GoTo Line1For Each sht In ActiveWindow.SelectedSheetssht.CopytheName = ThisWorkbook.Path & ThisWorkbook.Name & "_" & sht.Name & ".xls"ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlNormalActiveWindow.CloseNextLine1:End Sub关闭VBA编辑器，返回Excel界面，选择需要单独保存为工作簿的工作表，如果要选择多个工作表，可按Ctrl键或Shift键进行选择，然后按Alt+F8打开“宏”对话框，选择“SaveSheetAsWorkbook”宏执行即可。上述代码将每个所选的工作表单独保存为一个工作簿，存放位置与原工作簿相同，名称为“原工作簿名称_工作表名称.xls”。如果是在新建且未保存的工作簿中运行代码，Excel会将新生成的工作簿保存到默认的文件位置，如“我的文档”。
VBA代码实现Excel中数据快速录入
在Excel中录入数据有很多的技巧，合理地运用它们可以提高我们的工作效率。本文另辟蹊径，向大家介绍一下如何利用VBA代码实现数据的快速录入。请看下面的例子。 假设在填写的某列数据中，员工所属的部门有“一车间”、“二车间”、“销售部”等等，如果我们能用数字代替这些文字内容输入的话，必将大大提高我们录入的效率。 根据这个思路，我们在该工作表的Change事件中输入了如下的代码： Private Sub Workheet_Change(ByVal Target As Range) If Target.Column = 2 Then ’只在第二列实现该功能 If Target.Value = 1 Then Target.Value = "一车间" Else If Target.Value = 2 Then Target.Value = "二车间"
Excel vba if语句解释和实例教程
本文介绍vba if判断语句的使用方法，在最后以一个实例来剖析vba if语句的具体应用。 vba if语句为判断语句。根据条件的值，可使用 If…Then…Else 语句运行指定的语句或一个语句块。If…Then…Else 语句可根据需要嵌套多级。 但是，为了代码的可读性，建议使用其余的语句，比如 Select Case 语句而不使用多层嵌套的vba中的 If…Then…Else 语句。 vba if语句用法解释： 当条件为 True 时，若只要执行一个语句，则可以使用单行的 If…Then…Else 语法。 使用 If…Then…Else 语句可以定义两个可执行的语句块：其中一个块会在条件为True 时执行；而另一个块会在条件为 False 时执行。 vba if语句执行流程如下： vba if语句实例剖析