在Excel中,用数据透视表可以轻松进行多个区域的数据合并计算。但当区域较多时,要在数据透视表向导中多次选择区域,稍显繁琐。如果需要合并的工作表较多,可以用下面的VBA代码来快速合并数据。区域的大小可以不同,各行或列的品种可以重复,但要求工作簿中各工作表中的数据存放在相同的位置。如下图为工作簿中某两个工作表中的数据,区......
2023-01-13 0 区域,合并,工作,数据,Excel函数
在Excel中,用数据透视表可以轻松进行多个区域的数据合并计算。但当区域较多时,要在数据透视表向导中多次选择区域,稍显繁琐。如果需要合并的工作表较多,可以用下面的VBA代码来快速合并数据。区域的大小可以不同,各行或列的品种可以重复,但要求工作簿中各工作表中的数据存放在相同的位置。如下图为工作簿中某两个工作表中的数据,区......
2023-01-13 0 区域,合并,工作,数据,Excel函数
我们在编辑Excel工作表的过程中,如果有某个重要的事情需要在某一时间去完成,例如要在16:40分打个电话,或将报表交给部门经理等,为了避免遗忘,可以用VBA给工作簿添加一个定时提醒功能。方法如下: 1.打开工作簿,按快捷键Alt+F11,打开VBA编辑器。 2.单击菜单“插入→模块”......
2023-01-13 0 工作,打开,提醒,时间,Excel函数
通常,当我们打开一个Excel工作簿时,标题栏中仅仅显示一个简单的文件名。我们可以用下面的VBA代码,让工作簿在打开时在标题栏显示其路径和文件名: 按Alt+F11,打开VBA编辑器,在“工程”窗口中双击“ThisWorkBook”,在右边的代码窗口中输入以下代码: Pr......
2023-01-13 0 代码,工作,打开,栏中,Excel函数
在Excel中,当光标移动到包含批注的单元格中时,通常会在状态栏和批注中显示批注者的名称。如果需要将批注者改为其他人,可以用下面的VBA代码。以后再插入新的批注,也将使用新输入的名称。使用前先将代码中的“新作者”和“原作者”按照需要进行替换。 Sub ChangeComm......
2023-01-13 1 作者,原作者,名称,批注,Excel函数
当我们在运行一个执行时间稍长的VBA代码时,可以用下面的VBA代码在状态栏中显示一些信息来提示用户: Application.StatusBar = "提示信息" 代码运行完毕,再恢复默认状态栏: Application.StatusBar = FALSE 例如下面的代码在状态栏中显示“......
2023-01-13 0 代码,提示信息,显示,状态栏,Excel函数
如果要用VBA来设置区域的行高和列宽,可以用Range.ColumnWidth 属性和Range.RowHeight 属性,例如下例将选定的区域中各单元格的列宽和行高调整为指定的数值: Sub SetColumnAndRow()With ActiveWindow.RangeSelection.ColumnWidth =......
2023-01-13 1 单元格,可以用,属性,选定,Excel函数
有时需要在Excel中运行一个工作时间较长的宏,当宏在运行时,消耗了一定的系统资源,并且似乎不能在Excel中做其他事情了。如果此时急需处理其他一些Excel表格,可以按Ctrl+Pause暂停宏的运行。此外,还可以在保持宏继续运行的同时,打开另一个Excel窗口,然后选择其他的工作表继续工作。由于此时鼠标变成沙漏状无......
2023-01-13 0 工作,窗口,运行,选择,Excel函数
在VBA中,赋予变量或属性的字符串都是用引号 “" "”括起来的。如果字符串中要包含英文双引号,可以在代码中将输出时包含引号的文本用两对双引号括起来,然后再将整个字符串用引号括起来。例如下面的代码: Range("A2") = ""&q......
2023-01-13 0 字符串,引号,英文,输出,Excel函数
我们知道VBA中的Like运算符是用来比较两个字符串的,其语法为: result = string Like pattern 如果string与pattern匹配,则result为True,如果不匹配,则result为False。Like运算符的比较方式比较灵活,除了可以使用通配符外,pattern中还可以使用中括号&......
2023-01-13 2 匹配,字符串,技巧,运算符,Excel函数
如果我们在Excel中选择了一些单元格,可以通过下面的VBA代码来统计所选单元格的数量。例如,如果需要统计表格中某种类型的单元格数量,可以这样操作: 1.单击菜单“编辑→定位”,在弹出的“定位”对话框中单击“定位条件”按钮。 2.如果要统......
2023-01-13 0 单元格,数量,统计,Excel函数
我们可以用一个自定义函数来提取单元格注释。方法如下: 1.按Alt+F11,打开VBA编辑器。 2.单击菜单“插入→模块”,在右边的代码窗口中输入代码: Function GetCommentText(rCommentCell As Range)Dim strGotIt As Stri......
2023-01-13 0 函数,单元格,注释,自定义,Excel函数
Excel中没有内置工作表排序的命令或方法,我们可以用VBA来实现工作表排序。下面的VBA代码可以将工作表按其名称的拼音或笔画的顺序来排序,同时还可以指定升序或降序。 Sub SortWorksheets()Dim SortOrd, SortM, ActiveSht As StringDim NumSht()Activ......
2023-01-13 0 工作,排序,笔画,顺序,Excel函数
大家知道大多数的Excel工作表函数可以用在VBA中,通过下面的方法来调用,例如对A1:A10单元格求和: Sub Sum1()MsgBox WorksheetFunction.Sum(Sheet1.Range("A1:A10"))End Sub 或:Sub Sum2()MsgBox Applica......
2023-01-13 0 包含,单元格,工作,错误,Excel函数
如果Excel表格单元格中包含有许多用文本形式显示的超链接,如“给我发邮件”、“访问我的网站”等,要逐一查看所有超链接的地址,用手工的方法显得太繁琐,我们可以用自定义函数来批量提取这些超链接中的地址,将下列代码插入到标准模块中: Function GetURL(rng A......
2023-01-13 0 代码,单元格,地址,超链接,Excel函数
我们知道在Excel单元格中输入当前时间的快捷键是“Ctrl+Shift+;”,但是这种输入方法只能显示小时和分钟,即HH:MM格式的时间。用下面的VBA代码可以实现用上述快捷键输入当前时间时,在单元格中显示的是包含秒的“HH:MM:SS”格式。方法如下: 按Alt+F1......
2023-01-13 1 快捷键,时间,格式,输入,Excel函数
如果要在VBA中使用非连续区域,可以用类似Range("A1, B2, C3:D10")的语句,如下例: Sub NonContiguousRange()Dim oRng As RangeSet oRng = Range("A1, B2, C3:D10")oRng.Value =......
2023-01-13 2 利用,区域,设置,连续,Excel函数
在Excel中要对工作表进行保护,可以通过单击菜单“工具→保护→保护工作表”的方法来进行。如果要用VBA来保护工作表或撤消工作表保护,可以用下面的代码: Public Sub Protect_Sheet()‘保护工作表,设置密码为“password&r......
2023-01-13 4 保护,密码,工作,撤消,Excel函数
在Excel中通过自定义页脚的方式在页脚中插入日期时,Excel默认将使用短日期格式,如“2009-10-9”,但大家通常习惯使用“2009年10月9日”这样的长日期格式。Excel没有提供直接的方法在页眉或页脚中修改日期格式。在工作量不大的情况下,可以在页眉或页脚中手工......
2023-01-13 2 工作,日期,格式,页眉,Excel函数
用下面的自定义函数可以将某个单元格中的批注提取到其他单元格中,方法如下: 1.按Alt+F11打开VBA编辑器,单击菜单“插入→模块”,在“工程”窗口中会看到Excel插入了一个名称为“模块1”的模块。 2.在右侧“模块1&r......
2023-01-13 1 函数,单元格,批注,自定义,Excel函数
如果要用VBA创建新的工作簿,可以使用Add方法,如下面的代码。Excel自动将该工作簿命名为“BookN”,其中“N”是下一个可用的数字,同时新工作簿将成为活动工作簿。 Sub AddOne()Workbooks.AddEnd Sub 另外,创建新工作簿更好的方法是将其......
2023-01-13 0 创建,对象,属性,工作,Excel函数