Windows特殊文件夹，包括"Desktop"文件夹、"MyDocuments"文件夹等，如果我们要在VBA中用到这些文件夹，可以用下列代码来获取这些特殊文件夹的路径。OptionExplicitSubGetMyDocumentsPath()DimWSHShel......
2022-02-16 20:58:38 458 代码 文件夹 获取 路径 excel函数
有时我们需要将指定单元格或区域中的公式打印出来，以便分析。下面的VBA代码可以实现这个功能，可以将选择的单元格或区域中的公式打印到Word中，方便打印。使用方法：1.单击菜单“工具→引用”，在弹出的“引用VBAproject”窗口中，勾选“Mi......
2022-02-16 20:58:37 135 代码 公式 单元格 打印 excel函数
如果我们要获取某月中指定日期的数量，例如，2009年1月中有几个星期一？用Excel内置的日期时间函数无法解决这个问题。我们可以用自定义函数的方法来解决。按Alt+F11打开VBA编辑器，单击菜单“插入→模块”，在右侧的代码窗口中输入自定义函数：FunctionWeekDaysIn......
2022-02-14 21:56:32 298 函数 星期 自定义 输入 excel函数
如果活动单元格位于某个已定义名称的区域中，可以用下面的VBA代码来选择这个区域，同时在状态栏中给出提示。PublicSubSelectRange()DimRngNameAsStringDimRAsRangeSetR=ActiveCellDimMsgAsStringMsg="活......
2022-02-14 21:56:31 296 区域 名称 定义 选择 excel函数
当在工作表中设置了自动筛选，而在保护工作表时没有选择允许“使用自动筛选”，那么自动筛选功能在保护工作表后无法使用。如果需要在不解除工作表保护的情况下能够使用自动筛选，可以用下面的VBA代码：1.按Alt+F11，打开VBA编辑器，在“工程”窗口中选择相应的工作表，在右侧......
2022-02-14 21:56:31 158 代码 保护 工作 筛选 excel函数
Excel中提供了许多快捷键，但遗憾的是没有提供一个快捷键可以将焦点定位与名称框，下面的宏代码就可以实现这个功能。PublicDeclareFunctionSetFocusLib"user32"(ByValhwndAsLong)AsLongPublicDeclareFun......
2022-02-14 21:56:30 423 名称 快捷键 焦点 excel函数
如果Excel中的某个宏命令运行时间过长，需要调试或停止其运行，可以按ESC键或Ctrl+Break键，Break键与Pause键是同一个键，通常在PrinterScreen键和ScrollLock键的右侧。Excel会停止宏的运行，并且显示一个对话框：单击“继续”按钮将继续运行宏命令，......
2022-02-14 21:56:29 155 停止 属性 程序 运行 excel函数
用下面的VBA代码可以在A1:A100区域中生成由大小写字母和数字组成的12位长度的随机字符串，从中挑选几个作为密码用还是不错的。在Excel中按Alt+F11打开VBA编辑器，双击“工程”窗口中的某个工作表名称，在右侧的代码窗口中输入下列代码：SubMakeRandomString()D......
2022-02-14 21:56:29 382 代码 字符串 生成 随机 excel函数
如果Excel工作簿中包含许多工作表，可以在一个工作表中列出所有工作表目录和相关说明，以方便在各工作表之间跳转。下面的VBA代码就可以实现这个功能，可以在某个工作表的第一列中产生其他工作表的目录列表及其超链接，单击工作表名称就可以跳转到相应的工作表中，并且可以在其他工作表的A1单元格中设置一个返回目录的超链接，单击可以......
2022-02-14 21:56:28 431 代码 工作 目录 运行 excel函数
Excel2007的“开发工具”选项卡中有许多与程序开发和XML功能相关的命令，包括“代码”、“控件”、“XML”和“修改”组。利用该选项卡，可以进行录制宏、打开VBA编辑器、运行宏命令、插入控件等......
2022-02-14 21:56:27 113 功能 开发工具 显示 选项卡 excel函数
如果要用VBA代码在Excel工作表中删除指定的单元格、行和列，可以使用下面的代码：SubDeleteCellRowColumn()‘删除活动单元格，下方单元格上移ActiveCell.DeleteShift:=xlUp‘删除选定的区域，右方单元格左移Selection.DeleteSh......
2022-02-14 21:56:27 435 删除 利用 区域 单元格 excel函数
如果要在VBA中使用非连续区域，可以用类似Range("A1,B2,C3:D10")的语句，如下例：SubNonContiguousRange()DimoRngAsRangeSetoRng=Range("A1,B2,C3:D10")oRng.Value=......
2022-02-14 21:56:25 179 利用 区域 设置 连续 excel函数
在Excel中通过自定义页脚的方式在页脚中插入日期时，Excel默认将使用短日期格式，如“2009-10-9”，但大家通常习惯使用“2009年10月9日”这样的长日期格式。Excel没有提供直接的方法在页眉或页脚中修改日期格式。在工作量不大的情况下，可以在页眉或页脚中手工......
2022-02-14 21:56:24 235 工作 日期 格式 页眉 excel函数
用下面的自定义函数可以将某个单元格中的批注提取到其他单元格中，方法如下：1.按Alt+F11打开VBA编辑器，单击菜单“插入→模块”，在“工程”窗口中会看到Excel插入了一个名称为“模块1”的模块。2.在右侧“模块1&r......
2022-02-14 21:56:24 446 函数 单元格 批注 自定义 excel函数
有时我们在Excel中制作的工作表需要反复修改，并保存为多个版本。修改的次数多了，很容易混淆。如果能把工作簿的最后保存日期和时间显示在工作表的某个单元格或页眉页脚中，查看起来就非常方便了。用VBA代码就能够轻松地实现这一点，方法如下：1.按Alt+F11，打开VBA编辑器。2.在“工程”窗口......
2022-02-14 21:56:23 433 保存 工作 时间 页眉 excel函数
在Excel中要对工作表进行保护，可以通过单击菜单“工具→保护→保护工作表”的方法来进行。如果要用VBA来保护工作表或撤消工作表保护，可以用下面的代码：PublicSubProtect_Sheet()‘保护工作表，设置密码为“password&r......
2022-02-14 21:56:22 357 保护 密码 工作 撤消 excel函数
如果Excel工作表的某区域中包含不同的底纹颜色，我们可以用一个自定义函数对该区域按指定的单元格颜色进行计数或求和。方法是：1.按Alt+F11，打开VBA编辑器。2.单击菜单“插入→模块”，将插入名称为“模块1”的模块，在右侧的代码窗口中输入下列代码：F......
2022-02-14 21:56:21 182 区域 单元格 求和 颜色 excel函数
如果要用VBA创建新的工作簿，可以使用Add方法，如下面的代码。Excel自动将该工作簿命名为“BookN”，其中“N”是下一个可用的数字，同时新工作簿将成为活动工作簿。SubAddOne()Workbooks.AddEndSub另外，创建新工作簿更好的方法是将其......
2022-02-14 21:56:21 198 创建 对象 属性 工作 excel函数
在VBA中通过调用API函数mcisendstring，可以播放MP3格式的音乐。下面是VBA代码，我们可以将它放入模块中，方法是在VBA编辑器中单击菜单“插入→模块”，在代码窗口中输入下列代码。OptionExplicitPublicDeclareFunctionmciSe......
2022-02-14 21:56:20 260 代码 打开 播放 方法 excel函数
如果要用VBA同时选择多个工作表，可以利用数组或设置“Select”方法的参数为“False”来扩展所选择的内容，如下面的一些代码：1.用工作表名称：假如工作表名称为“Sheet1”、“Sheet2”、“Sh......
2022-02-14 21:56:19 181 多个 工作 用工 选择 excel函数
如果在使用Excel过程中习惯使用F2键切换到单元格编辑状态，有时可能会不小心错按了F1键而弹出Excel帮助窗口，特别是对于键盘较小的笔记本这种情况就更容易出现。如果是Excel2007/2010，Excel帮助窗口会覆盖工作表窗口，显得有些不便。如果要禁用F1键，可以用下面的VBA代码。在Excel中按快捷键A......
2022-02-14 21:56:18 239 打开 文件 方法 禁用 excel函数
我们知道VBA中的Like运算符是用来比较两个字符串的，其语法为：result=stringLikepattern如果string与pattern匹配，则result为True，如果不匹配，则result为False。Like运算符的比较方式比较灵活，除了可以使用通配符外，pattern中还可以使用中括号&......
2022-02-14 21:56:17 218 匹配 字符串 技巧 运算符 excel函数
通常在保存Excel工作簿时，如果某个工作表处于活动状态，下次打开这个工作簿时就会自动打开这个工作表。如果我们需要每次打开工作簿时总是打开指定的工作表，而无论保存时哪个工作表处于活动状态，可以用下面一个简单的VBA代码来实现：PrivateSubWorkbook_Open()Sheet3.ActivateEndS......
2022-02-14 21:56:16 100 代码 名称 工作 打开 excel函数
我们可以用一个自定义函数来提取单元格注释。方法如下：1.按Alt+F11，打开VBA编辑器。2.单击菜单“插入→模块”，在右边的代码窗口中输入代码：FunctionGetCommentText(rCommentCellAsRange)DimstrGotItAsStri......
2022-02-14 21:56:15 130 函数 单元格 注释 自定义 excel函数
如果我们在Excel中选择了一些单元格，可以通过下面的VBA代码来统计所选单元格的数量。例如，如果需要统计表格中某种类型的单元格数量，可以这样操作：1.单击菜单“编辑→定位”，在弹出的“定位”对话框中单击“定位条件”按钮。2.如果要统......
2022-02-14 21:56:15 256 单元格 数量 统计 excel函数
