如果Excel工作表的某区域中包含不同的底纹颜色,我们可以用一个自定义函数对该区域按指定的单元格颜色进行计数或求和。方法是: 1.按Alt+F11,打开VBA编辑器。 2.单击菜单“插入→模块”,将插入名称为“模块1”的模块,在右侧的代码窗口中输入下列代码: F......
2023-01-13 2 区域,单元格,求和,颜色,Excel函数
如果Excel工作表的某区域中包含不同的底纹颜色,我们可以用一个自定义函数对该区域按指定的单元格颜色进行计数或求和。方法是: 1.按Alt+F11,打开VBA编辑器。 2.单击菜单“插入→模块”,将插入名称为“模块1”的模块,在右侧的代码窗口中输入下列代码: F......
2023-01-13 2 区域,单元格,求和,颜色,Excel函数
如果在使用Excel过程中习惯使用F2键切换到单元格编辑状态,有时可能会不小心错按了F1键而弹出Excel帮助窗口,特别是对于键盘较小的笔记本这种情况就更容易出现。如果是Excel 2007/2010,Excel帮助窗口会覆盖工作表窗口,显得有些不便。如果要禁用F1键,可以用下面的VBA代码。 在Excel中按快捷键A......
2023-01-13 0 打开,文件,方法,禁用,Excel函数
如果我们要获取某月中指定日期的数量,例如,2009年1月中有几个星期一?用Excel内置的日期时间函数无法解决这个问题。我们可以用自定义函数的方法来解决。按Alt+F11打开VBA编辑器,单击菜单“插入→模块”,在右侧的代码窗口中输入自定义函数: Function WeekDaysIn......
2023-01-13 0 函数,星期,自定义,输入,Excel函数
当在工作表中设置了自动筛选,而在保护工作表时没有选择允许“使用自动筛选”,那么自动筛选功能在保护工作表后无法使用。如果需要在不解除工作表保护的情况下能够使用自动筛选,可以用下面的VBA代码: 1.按Alt+F11,打开VBA编辑器,在“工程”窗口中选择相应的工作表,在右侧......
2023-01-13 2 代码,保护,工作,筛选,Excel函数
如果活动单元格位于某个已定义名称的区域中,可以用下面的VBA代码来选择这个区域,同时在状态栏中给出提示。 Public Sub SelectRange()Dim RngName As StringDim R As RangeSet R = ActiveCellDim Msg As StringMsg = "活......
2023-01-13 1 区域,名称,定义,选择,Excel函数
Excel中提供了许多快捷键,但遗憾的是没有提供一个快捷键可以将焦点定位与名称框,下面的宏代码就可以实现这个功能。 Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As LongPublic Declare Fun......
2023-01-13 0 名称,快捷键,焦点,Excel函数
如果Excel中的某个宏命令运行时间过长,需要调试或停止其运行,可以按ESC键或Ctrl+Break键,Break键与Pause键是同一个键,通常在Printer Screen键和Scroll Lock键的右侧。Excel会停止宏的运行,并且显示一个对话框: 单击“继续”按钮将继续运行宏命令,......
2023-01-13 17 停止,属性,程序,运行,Excel函数
用下面的VBA代码可以在A1:A100区域中生成由大小写字母和数字组成的12位长度的随机字符串,从中挑选几个作为密码用还是不错的。 在Excel中按Alt+F11打开VBA编辑器,双击“工程”窗口中的某个工作表名称,在右侧的代码窗口中输入下列代码: Sub MakeRandomString()D......
2023-01-13 0 代码,字符串,生成,随机,Excel函数
如果Excel工作簿中包含许多工作表,可以在一个工作表中列出所有工作表目录和相关说明,以方便在各工作表之间跳转。下面的VBA代码就可以实现这个功能,可以在某个工作表的第一列中产生其他工作表的目录列表及其超链接,单击工作表名称就可以跳转到相应的工作表中,并且可以在其他工作表的A1单元格中设置一个返回目录的超链接,单击可以......
2023-01-13 1 代码,工作,目录,运行,Excel函数
如果要用VBA代码在Excel工作表中删除指定的单元格、行和列,可以使用下面的代码: Sub DeleteCellRowColumn()‘删除活动单元格,下方单元格上移ActiveCell.Delete Shift:=xlUp‘删除选定的区域,右方单元格左移Selection.Delete Sh......
2023-01-13 0 删除,利用,区域,单元格,Excel函数
VBA中的Activate方法和Select方法看起来似乎相同,其实二者是有区别的。Activate方法的作用是激活,而Select方法的作用是选择。其区别如下: 1.对于“Sheets”对象 Sheets.Select可以同时选择多个工作表,而Sheets.Active不能同时激活多个工作表。......
2023-01-13 0 区域,单元格,方法,活动,Excel函数
如果需要用VBA的方法获得某个工作簿中工作表的名称,可以使用下面的代码,其中使用了 Microsoft ActiveX Data Objects (ADO),可以将指定工作簿中的工作簿名称显示在A列中,在使用时需将代码中的工作簿名称及路径进行更改。 Sub GetSheetNames() Dim objConn As......
2023-01-13 0 名称,工作,指定,路径,Excel函数
在VBA中,可以用Sheets.Add 方法在工作簿中新建工作表。其语法是: Sheets.Add(Before, After, Count, Type) 其中参数Before、After指定新建工作表的位置,Coun指定工作表的数量,Type指定新建工作表的类型。如下例: 在工作簿新建一个名称为“工作表1......
2023-01-13 0 名称,工作,指定,新建,Excel函数
在Excel中删除空行和空列的方法有很多,下面的方法是用VBA代码来删除工作表指定区域中的空行和空列: Option Explicit Sub Delete_Empty_Rows()Dim rnArea As RangeDim lnLastRow As Long, i As Long, j As Long Applic......
2023-01-13 8 删除,区域,指定,空行,Excel函数
我们可以用一个常规的方法来实现当单击某个单元格时运行一个指定的宏。方法如下: 1.选择一个单元格,按住Shift键的同时,单击菜单“编辑→复制图片”,在弹出的“复制图片”对话框中,“外观”选择“如屏幕所示”,&ld......
2023-01-13 4 单元格,指定,选择,Excel函数
如果要判断一个指定的工作簿是否打开,可以将下面的VBA代码放入标准模块中,然后在子过程中进行调用。 Function IsWkbOpened(sWkbName As String) As Boolean‘如果目标工作簿已打开则返回TRUE,否则返回FALSEDim i As Long For i = Wor......
2023-01-13 6 工作,打开,指定,调用,Excel函数
如果要用出生日期来计算年龄,可以用自定义函数来完成。在VBA编辑器中单击菜单“插入→模块”,并将下面的代码放入其中,以下两段代码都是按虚岁计算的,任选一种即可。 方法一: Function Age(BirthDate As Date)Select Case Month(Date)Ca......
2023-01-13 4 出生日期,单元格,自定义,计算,Excel函数
一个论坛上的会员有如下的要求:如图需要把当前路径中的财务、采购、工厂、计划、人士等工作簿的“出勤明细”工作表的记录复制汇总在“加班汇总表”工作簿中的“加班原因汇总”工作表中,并需要取出各部门的名称,希望批量使用VBA完成?很久没有玩VBA了,今晚手......
2023-01-13 3 加班,原因,工作,汇总,Excel函数
Windows 特殊文件夹,包括 "Desktop" 文件夹、"MyDocuments" 文件夹等,如果我们要在VBA中用到这些文件夹,可以用下列代码来获取这些特殊文件夹的路径。 Option ExplicitSub GetMyDocumentsPath()Dim WSHShel......
2023-01-13 0 代码,文件夹,获取,路径,Excel函数
有时我们需要将指定单元格或区域中的公式打印出来,以便分析。下面的VBA代码可以实现这个功能,可以将选择的单元格或区域中的公式打印到Word中,方便打印。 使用方法: 1.单击菜单“工具→引用”,在弹出的“引用 VBAproject”窗口中,勾选“Mi......
2023-01-13 0 代码,公式,单元格,打印,Excel函数