2024年2月8日发(作者：)

经典Excel VBA代码 收藏

经典Excel VBA代码

Application（Excel程序）篇

Events= True/ False ’启用/禁用所有事件

yAlerts=True/False ’显示/关闭警告框提示框

Updating= True/False ’显示/关闭屏幕刷新

Bar = "软件报专用" ’在地址栏中显示文本，标题栏用Caption属性

= xlIBeam ‘设置光标形状为Ⅰ字形，xlWait为沙漏(等待)形，xlNormal为正常

State = xlMinimized ‘窗口最小化，xlMaximized最大化，xlNormal为正常

teMicrosoftApp xlMicrosoftWord ’开启Word应用程序

tesPath ‘获取工作簿模板的位置

ateFull ’重新计算所有打开的工作簿中的数据

m = 2 ’将最近使用的文档列表数设为2

Files(3).Open ’打开最近打开的文档中的第3个文档

lacement "sweek", "软件报" ’自动将输入的"sweek"更正为"软件报"

s(xlDialogPrint).Show ‘显示打印文档的对话框

Now + TimeValue("00:00:45"), "process" ’45分钟后执行指定过程

TimeValue("14:00:00"), " process " ’下午2点执行指定过程

EarliestTime:=TimeValue("14:00:00"), _

Procedure:="process", Schedule:=False ’取消指定时间的过程的执行

工作簿/工作表篇

’获取活动工作薄中工作表数

urces(xlExcelLinks)(1) ‘返回当前工作簿中的第一条链接

eets(“sheet2”).Visible=xlSheetHidden ‘隐藏工作表，与在Excel菜单中执行“格式—工作表—隐藏”操作一样

eets(“sheet2”).Visible=xlSheetVeryHidden ‘隐藏工作表，不能通过在Excel菜单中执行“格式—工作表—取消隐藏”来重新显示工作表

eets(“sheet2”).Visible=xlSheetVisible ‘显示被隐藏的工作表

(1).ProtectContents ‘检查工作表是否受到保护

s("B").Cut

s("F").Insert ‘以上两句将B列数据移至F列，原C列后的数据左移

(“A:A”).t ‘自动调整当前工作表A列的列宽

lCells(xlCellTypeConstants,xlTextValues) ‘选中当前工作表中常量和文本单元格

lCells(xlCellTypeConstants,xlErrors+xlTextValues) ‘选中当前工作表中常量和文本及错误值单元格

‘当前工作表中已使用的行数

eets(3), , 2 ‘在第3张工作表之前添加2个新的工作表

After:=ActiveWorkbook. _

Sheets() ’将当前工作表移至工作表的最后

Worksheets(Array(“sheet1”,”sheet2”)).Select ’同时选择工作表sheet1和sheet2

‘删除当前工作表中应用的条件格式

‘取消当前工作表中所有单元格的超链接

ooter=me ‘在页脚显示文件的路径

review Enablechanges:=False ‘禁用显示在Excel的“打印预览”窗口中的“设置”和“页边距”按钮

单元格/单元格区域篇

‘获取已使用的单元格区域的第一行的行号

Range(“A65536”).End(xlUp).Row ‘返回A列最后一行(即记录的总条数)

(“A1”).HasFormula ‘检查单元格或单元格区域中的第一个单元格是否含有公式或mula ‘工作表中单元格是否含有公式

‘选择单元格所在的整个列，为选择单元格所在的整行

‘活动单元格所在的行号，为活动单元格所在的列数

Row = 2 ’将当前工作表窗口滚动到第2行

Column = 5 ’将当前工作表窗口滚动到第5列

Worksheets("sheet1").Range("A1:C5").CopyPicture xlScreen, xlBitmap ’将指定的单元格区域的内容复制成屏幕快照

‘删除所选区域的所有链接

(1, 1). = TRUE ‘Bold属性用于设置字体是否为加粗， Size属性设置字体大小， ColorIndex属性设置字体颜色（其值为颜色索引号）， Italic属性设置字型是否为倾斜， Name属性设置字体名称

(1, 1).ndex = 3 ‘将单元格的背景色设置为红色

IsEmpty () ’判断活动单元格中是否有值

= UCase() ’将当前单元格中的字符转换成大写

= StrConv(, vbLowerCase) ’将活动单元格中的字符串转换成小写

’选择当前活动单元格所在的连续的非空区域，也可以用Range(ActiveCell, (xlDown)).Select

(1,0).Select ’活动单元格下移一行

Range(“B2”).Offset(ColumnOffset:=1)或Range(“B2”).Offset(,1) ‘读取指定单元格右侧单元格中的数据

Range(“B2”).Offset(Rowoffset:=-1)或Range(“B2”).Offset(-1) ‘读取指定单元格上一行单元格中的数据

Range(“A1”).Copy Range(“B1”) ’复制单元格A1中的内容到B1中

Range(“A1:D8”).Copy Range(“H1”) ’将指定单元格区域复制到从H1开始的区域中，用Cut方法可以实现剪切操作

= "软件报" ’将指定字符串输入到所选单元格区域中

窗体（控件）篇

Option Explicit ’强制对模块内所有变量进行声明

‘显示用户窗体

Load Userform1 ‘加载一个用户窗体,但该窗体处于隐藏状态

‘隐藏用户窗体

Unload Userform1 或 Unload Me ‘卸载用户窗体

=Int(0.5 * ) ‘窗体高度为当前活动窗口高度的一半，宽度用ActiveWindow. Width属性

m Sheets("Sheet1").Cells(1, 1) ‘将指定单元格中的数据添加到复合框中

=MyProduct() ‘将数组MyProduct的值添加到列表框ListBox1中

rce=”Sheet1!isum” ‘将工作表Sheet1中名为的isum区域的值添加到列表框中

ed(0) ‘选中列表框中的指定的条目

Item dex ‘移除列表框中选中的条目

If MsgBox(“要退出吗？”,vbYesNo)<>vbYes Then Exit Sub ’返回值不为“是”，则退出

Config=vbYesNo+vbQuestion+vbDefaultButton2 ’使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮

MsgBox “This is the first line.” & vbNewLine & “Second line.” ’在消息框中强制换行，

也可用vbCrLf代替vbNewLine。

MsgBox "平均值为:"&Format(e(Selection),"#,##0.00"),vbInformation, "显示选区平均值" ’应用工作表函数返回所选区域的平均值并按指定显示的格式

公式与函数

er(“A1”) ’检查指定单元格中的数据是否为数字

Range(“A:A”).Find((Range(“A:A”))).Activate

’激活单元格区域A列中最大值的单元格

ptions Macro:=”GetSum”,Category:=4 ‘将自定义的GetSum函数指定给Excel中的“统计函数”类别

ptions Macro:=” GetSum”, _

Description:=”先求和,然后再输出。” ‘为自定义函数GetSum进行功能说明

(Column) ‘返回该单元格所在列非空单元格的数量，所在行使用EntireRow属性

(Cells) ‘返回当前工作表中非空单元格数量

图表篇

‘删除工作表中所有的ChartObject对象

‘删除当前工作簿中所有的图表工作表

’获取当前工作表中图表的个数

Worksheets("Sheet1").ChartObjects(1).Chart. _

Export Filename:="C:", FilterName:="GIF" ‘将指定工作表中的图表1导出到C盘上并命名为