68手游网

下面的VBA代码先用Application.GetOpenFilename方法显示打开文件对话框，然后打开所选择的一个或多个Excel工作簿文件。 Sub OpenWorkbooks() On Error Resume Next Dim SelectFiles As Variant '显示打开文件对话框 SelectFiles = Application.GetOpenFilename(Excel 文件 (*.xl*), *.xl*, , 打开, , True) '未选择 If Typ...

如果Excel工作簿中包含许多隐藏的工作表，要显示隐藏的工作表，通常的方法是单击菜单格式工作表取消隐藏（Excel 2003）或右击工作表标签，在弹出的快捷菜单中选择取消隐藏（Excel 2007/2010）。然后在取消隐藏对话框中逐一选择工作表取消其隐藏。但每次只能取消一个工作表的隐藏，当隐藏的工作表数量较多时，逐一这样操作...

要选择工作表中所有包含超链接的单元格，用定位或查找的方法无法实现。下面的VBA代码可以实现这一目的。 按Alt+F11，打开VBA编辑器，在工程窗口中双击某个工作表，在右侧的代码窗口中输入下列代码： Sub SelectHyperlinkCells() Dim hHlink As Hyperlink Dim rRange As Range Dim NotFirstlink As Boolean On Error Resume...

当工作簿中的工作表数量较多时，要快速取消各个工作表中的自动筛选可以下面的VBA代码。 1.按Alt+F11，打开VBA编辑器。 2.在代码窗口中输入下列代码 Sub RemoveAllAutoFilter() Dim sht As Worksheet For Each sht In ActiveWorkbook.Worksheets If sht.AutoFilterMode = True Then sht.AutoFilterMode = False Next End Su...

当工作表中包含大量多单元格数组公式时，有时为了方便编辑这些数组公式，可能希望将工作表中的数组公式单独标记出来，以区分非数组公式，这时可以用下面的VBA代码来实现。 选择包含数组公式的工作表，按Alt+F11，打开VBA编辑器，在右侧代码窗口中输入下列代码： Sub ColorArray() Dim rCell As Range For Each rCell In Ac...

有时在工作中需要批量创建指定名称的文件夹，如果数量较多，例如要创建几十、甚至几百个文件夹，用手动的方法很难完成。批量创建文件夹的工具有很多，如果一时手头没有这类工具，可以在Excel中用VBA来完成，方法如下： 1.新建一个工作簿，在A列中输入要创建的文件夹名称，在B1单元格中输入文件夹所在的有效路径，如d:\新建...

下面的VBA代码可以获取Excel中最近使用的工作簿的完整路径和名称，并将其放到代码所在工作表的A列中。在Excel 2007和Excel 2010中，如果通过Office按钮（或文件选项卡）Excel选项高级设置显示最近使用的文档数量大于0，该代码可以显示最近使用的最多50个工作簿名称。而对于Excel 2003，A列中显示的工作簿名称数量与文件菜...

Excel 2010和Excel 2007可以将Excel工作簿另存为PDF格式文件，但手工的方法每次只能转换一个工作簿，要转换多个工作簿就显得有些繁琐。如果没有批量转换软件，在Excel 2010和Excel 2007中，利用VBA代码也可以轻松实现将Excel工作簿批量转换为PDF，方法如下： 1.按Alt+F11，打开VBA编辑器。 2.在右侧代码窗口中输入下列代码...

如果在使用Excel过程中习惯使用F2键切换到单元格编辑状态，有时可能会不小心错按了F1键而弹出Excel帮助窗口，特别是对于键盘较小的笔记本这种情况就更容易出现。如果是Excel 2007/2010，Excel帮助窗口会覆盖工作表窗口，显得有些不便。如果要禁用F1键，可以用下面的VBA代码。 在Excel中按快捷键Alt+F11，打开VBA编辑器，按...

用下面的自定义函数可以将某个单元格中的批注提取到其他单元格中，方法如下： 1.按Alt+F11打开VBA编辑器，单击菜单插入模块，在工程窗口中会看到Excel插入了一个名称为模块1的模块。 2.在右侧模块1的代码窗口中输入下列代码： Function GetComment(rCell As Range) Application.Volatile '将自定义函数标记为易失性函数 Di...