Excel VBA入门代码200例

2024年9月13日发(作者：)

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

Excel VBA入门代码200例

vba在excel中的使用之vba语句解释

(1) Set objExcel = CreateObject("ation")

‘创建Excel工作簿

(2) teMicrosoftApp xlMicrosoftWord '开启Word应用程序

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

(4) ation = xlCalculationManual ‘设置工作簿手动计算

ation = xlCalculationAutomatic ‘工作簿自动计算

(5) Worksheets(1).EnableCalculation = False ‘不对第一张工作表自动进行重算

(6) ateFull '重新计算所有打开的工作簿中的数据

(7) = 5 '将最近使用的文档列表数设为5

(8) Files(4).Open '打开最近打开的文档中的第4个文档

(9) DateSerial(2006,6,6)+TimeValue(“16:16:16”),“BaoPo”

‘在2006年6月6日的16:16:16开始运行BaoPo过程

(10) ("Hello" & me) ‘播放声音，并使用用户的姓名问候用户

(11) MsgBox parator '获取""号

(12) MsgBox ational(xlCountrySetting) '返回应用程序当前所在

国家的设置信息

(13) "葛洲坝", "三峡" '自动将在工作表中进行输入的"葛洲坝"更正为"三峡"

(14) Beep '让计算机发出声音

(15) ‘返回错误代码

(16) MsgBox IMEStatus '获取输入法状态

(17) Date = #6/6/2006#

Time = #6:16:16 AM# '将系统时间更改为2006年6月6日上午6时16分16秒

(18) om = Not om '切换是否能利用鼠标中间

的滑轮放大/缩小工作表

(19) ndowsInTaskba = True ‘显示任务栏中的窗口,即各工作簿占

用各自的窗口

(20) yScrollBars = True ‘显示窗口上的滚动条

(21) yFormulaBar = Not yFormulaBar '切换

是否显示编辑栏

(22) s(xlDialogPrint).Show ‘显示打印内容对话框

(23) terReturnDirection = xlToRight '设置按Enter键后单元格

的移动方向向右

(24) le '显示打开对话框

(25) Hyperlink ‘打开超链接文档

(26) FileAccess Mode:=xlReadOnly '将当前工作簿设置为只读

(27) avorites '将当前工作簿添加到收藏夹文件夹中

(28) pelling '在当前工作表中执行"拼写检查"

(29) t userinterfaceonly:=True ‘保护当前工作表

1文档来源为:从网络收集整理.word版本可编辑.

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

(30) = me ‘在当前工作表的左侧页眉处打印出工作簿的完整路

径和文件名

(31) Worksheets("Sheet1").Range("A1:G37").Locked = False

Worksheets("Sheet1").Protect

'解除对工作表Sheet1中A1:G37区域单元格的锁定

'以便当该工作表受保护时也可对这些单元格进行修改

(32) Worksheets("Sheet1").PrintPreview '显示工作表sheet1的打印预览窗口

(33) review Enablechanges:=False ‘禁用显示在Excel的“打印

预览”窗口中的“设置”和“页边距”按钮

(34) = True '在打印预览中显示网格线

= True '在打印预览中显示行列编号

(35) taForm '开启数据记录单

(36) Worksheets("Sheet1").Columns("A").Replace _

What:="SIN", Replacement:="COS", _

SearchOrder:=xlByColumns, MatchCase:=True '将工作表sheet1中A列的SIN替换为

COS

(37) Rows(2).Delete '删除当前工作表中的第2行

Columns(2).Delete '删除当前工作表中的第2列

(38) before:=ActiveCell '在当前单元格左侧插入一条垂直分页符

before:=ActiveCell '在当前单元格上方插入一条垂直分页符

(39) Row = 14 '将当前工作表窗口滚动到第14行

Column = 13 '将当前工作表窗口滚动到第13列

(40) '关闭当前窗口

(41) '获取当前窗口中的窗格数

(42) Worksheets("sheet1").Range("A1:D2").CreateNames Top:=True '将A2至D2的

单元格名称设定为A1到D1单元格的内容

(243) tomList listarray:=Range("A1:A8") '自定义当前工作表中

单元格A1至A8中的内容为自动填充序列

(44) Worksheets("sheet1").Range("A1:B2").CopyPicture xlScreen, xlBitmap '将单

元格A1至B2的内容复制成屏幕快照

(45) ‘删除所选区域的所有链接

Columns(1). ‘删除第1列中所有的链接

Rows(1). ‘删除第1行中所有的链接

Range("A1:Z30"). ‘删除指定范围所有的链接

(46) Anchor:=ActiveCell, _

Address:="C:", ScreenTip:="按下我，就会开启Windows

计算器", TextToDisplay:="Windows计算器" '在活动单元格中设置开启Windows计算器

链接

(47) = Shell("C:", vbNormalFocus) '

开启Windows计算器

(48) (1).AutoFilter ‘打开自动筛选。若再运行一次，则关闭自动

筛选

(49) lter ‘开启/关闭所选区域的自动筛选

(50) lData ‘关闭自动筛选

(51) lterMode ‘检查自动筛选是否开启，若开启则该语句返回True

2文档来源为:从网络收集整理.word版本可编辑.

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

(52) s("A").ColumnDifferences(Comparison:=ActiveSheet. _

Range("A2")).Delete '在A列中找出与单元格A2内容不同的单元格并删除

(53) ("A6").ClearNotes '删除单元格A6中的批注，包括声音批注

和文字批注

(54) ("B8").ClearComments '删除单元格B8中的批注文字

(55) ("A1:D10").ClearFormats '清除单元格区域A1至D10中的格

式

(56) ("B2:D2").BorderAround ColorIndex:=5, _

Weight:=xlMedium, LineStyle:=xlDouble '将单元格B2至D2区域设置为蓝色双线

(57) Range("A1:B2").Item(2, 3)或Range("A1:B2")(2, 3) ‘引用单元格C2的数据

Range("A1:B2")(3) ‘引用单元格A2

(58) (1, 1). = TRUE ‘设置字体加粗

(1, 1). = 24 ‘设置字体大小为24磅

(1, 1).ndex = 3 ‘设置字体颜色为红色

(1, 1). = TRUE ‘设置字体为斜体

(1, 1). = "Times New Roman" ‘设置字体类型

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

(59) ("C2:E6").AutoFormat Format:=xlRangeAutoFormatColor3 '

将当前工作表中单元格区域C2至E6格式自动调整为彩色3格式

(60) lCells(xlCellTypeLastCell) ‘选中当前工作表中的最后一个单元

格

(61) '选定包含活动单元格的整个数组单元格区域.假定该单元格在数据单元格区域中

(62) FormatLocal = "0.000; [红色] 0.000" '将当前单元格数字格

式设置为带3位小数,若为负数则显示为红色

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

(64) = LTrim() '删除字符串前面的空白字符

(65) Len() '获取活动单元格中字符串的个数

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

写

(67) = StrConv(, vbLowerCase) '将活动单元格

中的字符串转换成小写

(68) ("C1").AddComment '在当前工作表的单元格C1中添加批注

(69) Weekday(Date) '获取今天的星期,以数值表示,1-7分别对应星期日至星期六

(70) ("A1").AutoFill Range(Cells(1, 1), Cells(10, 1)) '将单

元格A1的数值填充到单元格A1至A10区域中

(71) DatePart("y", Date) '获取今天在全年中的天数

(72) = DateAdd("yyyy", 2, Date) '获取两年后的今天的日期

(73) MsgBox WeekdayName(Weekday(Date)) '获取今天的星期数

(74) = Year(Date) '在当前单元格中输入今年的年份数

= Month(Date) '在当前单元格中输入今天所在的月份数

= Day(Date) '在当前单元格中输入今天的日期数

(75) = MonthName(1) '在当前单元格中显示月份的名称,本句为显示

"一月"

(76) = Hour(Time) '在当前单元格中显示现在时间的小时数

3文档来源为:从网络收集整理.word版本可编辑.

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

= Minute(Time) '在当前单元格中显示现在时间的分钟数

= Second(Time) '在当前单元格中显示现在时间的秒数

(77) (1).Delete '删除当前工作表中的第一个形状

(78) '获取当前工作表中形状的数量

(79) (1).VerticalText '改变当前工作表中第

一个艺术字的方向

(80) (1).alic = True '将当前工作表中第一个

艺术字的字体设置为斜体

(81) , "三峡", _

"Arial Black", 22#, msoFalse, msoFalse, 66#, 80).Select '在当前工作表中创建一

个名为"三峡"的艺术字并对其进行格式设置和选中

(82) , BeginY:=10, EndX:=250, _

EndY:=100).Select '在当前工作表中以(10,10)为起点(250,100)为终点画一条直线并选

中

(83) , _

Left:=70, Top:=40, Width:=130, Height:=72).Select '在当前工作表中画一个左上角

在(70,40),宽为130高为72的三角形并选中

(84) , _

Left:=70, Top:=40, Width:=130, Height:=72).Select '在当前工作表中画一个以点

(70,40)为起点,宽130高72的矩形并选中

(85) , _

Left:=70, Top:=40, Width:=130, Height:=72).Select '在当前工作表中画一个左上角

在(70,40),宽为130高为72的椭圆

(86) (1). = RGB(0, 0, 255) '将当前工作表中第一个形状的线条

颜色变为蓝色

(87) (2). = RGB(255, 0, 0) '将当前工作表中第2个形状的前景

色设置为红色

(88) (1).Rotation = 20 '将当前工作表中的第1个形状旋转20度

(89) msoFlipHorizontal '将当前选中的形状水平翻转

msoFlipVertical '将当前选中的形状垂直翻转

(90) msoThreeD1 '将所选取的形状设置为第1种立体样式

(91) (1). = 20 '将当前工作表中第一个立体形状的

深度设置为20

(92) (1). = RGB(0, 0, 255) '将当前工作表中第1个立体形状的

进深部分的颜色设为蓝色

(93) (1).onX = 60 '将当前工作表中的第1个立体

形状沿X轴旋转60度

(1).onY = 60 '将当前工作表中的第1个立体形状沿

Y轴旋转60度

(94) = msoFalse '将所选择的立体形状转换为平面形状

(95) '在形状中让指定的连接符起点脱离原来所连接的形状

(96) (1).PickUp '复制当前工作表中形状1的格式

(97) , 260, 160, 180, 30). = "" '在工作簿中新建一个文本框并输入内容

(98) , 20, 80, 100, 200). = "" '在当前工作表中建立一个水平文本框并输入内容

4文档来源为:从网络收集整理.word版本可编辑.

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

(99) "d:", True, True, 60, 20, 400, 300 '在当前工作表中插入一张d盘中

名为sx的图片

(100) ustomType xl3DArea '将当前图表类型改为三维面积图

****************************************************************************

*****

excel－vba应用示例之语句

(101) ‘清除程序运行过程中所有的错误

工作簿

(102) nDocumentProperties(“Last Save Time”)

或 Save Time”) ‘返回上次保存工作簿的日期和时间

(103) nDocumentProperties("Last Print Date")

或 Print Date”) ‘返回上次打印或预览工作簿的日期和时间

(104) ‘关闭所有打开的工作簿

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

链接

(106) me

me ‘返回工作簿代码的名称

(107) rmat

rmat ‘返回当前工作簿文件格式代码

(108)

‘返回当前工作簿的路径(注:若工作簿未保存,则为空)

(109) ly

ly ‘返回当前工作簿的读/写值(为False)

(110)

‘返回工作簿的存储值(若已保存则为False)

(111) e = False ‘隐藏工作簿

e = True ‘显示工作簿

注:可与用户窗体配合使用,即在打开工作簿时将工作簿隐藏,只显示用户窗体.可

设置控制按钮控制工作簿可见

*******************************************************

工作表

(112) s("B").Insert ‘在A列右侧插入列，即插入B列

s("E").Cut

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

数据相应后移

s("B").Cut

s("E").Insert ‘以上两句将B列数据移至D列，原C列和D列数

据相应左移一列

(113) ate ‘计算当前工作表

(114) eets(“sheet1”).Visible=xlSheetHidden ‘正常隐藏工

作表，同在Excel菜单中选择“格式——工作表——隐藏”操作一样

eets(“sheet1”).Visible=xlSheetVeryHidden ‘隐藏工作表，

不能通过在Excel菜单中选择“格式——工作表——取消隐藏”来重新显示工作表

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

5文档来源为:从网络收集整理.word版本可编辑.

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

表

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

(116) Count:=2, _

Before:=eets(2)

或 eets(2), , 2 ‘在第二个工作表之前添加两个新的工作表

(117) eets(3).Copy ‘复制一个工作表到新的工作簿

(118) eets(3).Copy eets(2) ‘复制第三个

工作表到第二个工作表之前

(119) = 20 ‘改变工作表的列宽为20

= _

‘将工作表的列宽恢复为标准值

= 20 ‘改变工作表列1的宽度为20

(120) = 10 ‘改变工作表的行高为10

= _

‘将工作表的行高恢复为标准值

= 10 ‘改变工作表的行1的高度值设置为10

(121) eets(1).Activate ‘当前工作簿中的第一个工作表被激活

(122) eets("Sheet1").Rows(1). = True ‘设置工作表

Sheet1中的行1数据为粗体

(123) eets("Sheet1").Rows(1).Hidden = True ‘将工作表Sheet1

中的行1隐藏

= True ‘将当前工作表中活动单元格所在的行隐藏

注：同样可用于列。

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

列列宽

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

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

*******************************************************

公式与函数

(126) ptions Macro:=”SumPro”,Category:=4 ‘将自定义的

SumPro函数指定给Excel中的“统计函数”类别

(127) ptions Macro:=”SumPro”, _

Description:=”First Sum,then Product” ‘为自定义函数SumPro进行了功能说明

(128) ‘获取A列的下一个空单元格

(129) (Column) ‘返回该单元格所在列非空单

元格的数量

(Row) ‘返回该单元格所在行非空单元格的数量

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

(131) (“A20:D20”).Formula=“=Sum(R[-19]C:R[-1]C”’对A列

至D列前19个数值求和

*******************************************************

图表

(132) e=False

或 ct ‘使图表处于非活动状态

(133) TypeName(Selection)=”Chart” ‘若选中的为图表，则该语句为真，否则为假

6文档来源为:从网络收集整理.word版本可编辑.

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

(134) ‘删除工作表上所有的ChartObject对象

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

*******************************************************

窗体和控件

(135) (MyForm).Show ‘添加用户窗体MyForm并显示

(136)us ‘设置文本框获取输入焦点

(137) =0 ‘将数值调节钮控件的值改为0

(138) = ‘将数值调节钮控件的值赋值给文本框控件

="/Val()" ‘将文本框控件值赋给数值调节钮控

件

CStr()= ‘数值调节钮控件和文本框控件相比较

(139) ‘显示窗体UserForm1上的控件数目

(140) m “Command1” ‘在列表框中添加Command1

(141) dex ‘返回列表框中条目的值，若为-1，则表明未选中任何列表

框中的条目

(142) ‘返回代表单元格区域地址的文本字符串

= ‘初始化RefEdit控件显示当前所选单元格区域

Set FirstCell=Range().Range(“A1”) ‘设置某单元格区域左上

角单元格

(143) Now + TimeValue("00:00:15"), "myProcedure" ‘等待15

秒后运行myProcedure过程

(144) Column= ‘将滚动条控件的值赋值

给ActiveWindow对象的ScrollColumn属性

Row= ‘将滚动条控件的值赋值给

ActiveWindow对象的ScrollRow属性

(145) Sheets(“Sheet1”).Cells(1,1) ‘将单元格A1中的数据添加到列表框中

=Product ‘将一个名为Product数组的值添加到ListBox1中

rce=”Sheet2!SumP” ‘使用工作表Sheet2中的SumP区域的值填充列

表框

(146) ed(0) ‘选中列表框中的第一个条目(注：当列表框允许一次选

中多个条目时，必须使用Selected属性)

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

*******************************************************

对象

Application对象

(148) me ‘返回应用程序的用户名

(149) ‘返回代表调用函数的单元格

(150) ‘返回调用函数的工作簿名称

(151) Bar=”请等待……” ‘将文本写到状态栏

Bar=”请等待……” & Percent & “% Completed” ‘更新状态栏

文本，以变量Percent代表完成的百分比

Bar=False ‘将状态栏重新设置成正常状态

(152) Reference:=Range(“A1:D4”) ‘指定单元格区域A1至D4，

等同于选择“编辑——定位”，指定单元格区域为A1至D4，不会出现“定位”对话框

(153) s(xlDialogFormulaGoto).Show ‘显示“定位”对话框，但

7文档来源为:从网络收集整理.word版本可编辑.

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

定位条件按钮无效

(154) s(xlDialogSelectSpecial).Show ‘显示“定位条件”对话

框

(155) s(xlDialogFormatNumber).show ‘显示“单元格格式”中的

“数字”选项卡

s(xlDialogAlignment).show ‘显示“单元格格式”中的“对齐”

选项卡

s(xlDialogFontProperties).show ‘显示“单元格格式”中的“字

体”选项卡

s(xlDialogBorder).show ‘显示“单元格格式”中的“边框”选项

卡

s(xlDialogPatterns).show ‘显示“单元格格式”中的“图案”选

项卡

s(xlDialogCellProtection).show ‘显示“单元格格式”中的“保

护”选项卡

注：无法一次显示带选项卡的“单元格格式”对话框，只能一次显示一个选项卡。

(156) s(xlDialogFormulaGoto).show Range("b2"), True ‘显示

“引用位置”的默认单元格区域并显示引用使其出现在窗口左上角(注：内置对话框参数

的使用)

(157) dBars(1).Controls(2).Controls(16).Execute ‘执行“定

位”话框，相当于选择菜单“编辑——定位”命令

(158)

ose(Array(“Sun”,”Mon”,”Tur”,”Wed”,”Thu”,”Fri”,

”Sat”)) ‘返回一个垂直的数组

(159) n ‘返回使用的Excel版本号

(160) = xlNorthwestArrow ‘设置光标形状为北西向箭头

= xlIBeam ‘设置光标形状为Ⅰ字形

= xlWait ‘设置光标形状为沙漏(等待)形

= xlDefault ‘恢复光标的默认设置

(161) State ‘返回窗口当前的状态

State = xlMinimized ‘窗口最小化

State = xlMaximized ‘窗口最大化

State = xlNormal ‘窗口正常状态

(162) Height ‘获取当前窗口的高度

Width ‘获取当前窗口的宽度

(163) ‘返回活动单元格的地址(注:返回的是绝对地址)

(164) Printer ‘返回当前打印机的名称

(165) ‘返回活动工作表的名称

(166) ‘返回活动窗口的标题

(167) ‘返回活动工作簿的名称

(168) ‘返回所选区域的地址

(169) ‘返回当前工作簿的名称

(170) ationVersion ‘返回Excel计算引擎版本(右边四位数字)及

Excel版本(左边两位数字)

8文档来源为:从网络收集整理.word版本可编辑.

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

(171) Free ‘以字节为单位返回Excel允许使用的内存数(不包括

已经使用的内存)

(172) Used ‘以字节为单位返回Excel当前使用的内存数

(173) Total ‘以字节为单位返回Excel可以使用的内存数(包括已

使用的内存,是MemoryFree和MemoryUsed的总和)

(174) ingSystem ‘返回所使用的操作系统的名称和版本

(175) zationName ‘返回Excel产品登记使用的组织机构的名称

(176) rmat ‘查找的格式种类

eFormat ‘替换查找到的内容的格式种类

What:=” “, _

Replacement:=” “,SearchFormat:=True,ReplaceFormat:=True ‘替换查找到的格式

(177) ctive=False ‘忽略键盘或鼠标的输入

(178) te("Rate") ‘若在工作表中定义了常量0.06的名称

为”Rate”,则本语句将返回值0.06

(179) “Undo Option”,“Undo Procedure” ‘选择UndoOption

后，将执行Undo Procedure过程

Range对象

(180) Range(A1:A10).value="/" ‘将一个含有10个元素的数组转置成垂直方向的工作

表单元格区域(A1至A10)

注：因为当把一维数组的内容传递给某个单元格区域时，该单元格区域中的单元格必须

是水平方向的，即含有多列的一行。若必须使用垂直方向的单元格区域，则必须先将数

组进行转置，成为垂直的。

(181) Range(“A65536”).End(xlUp).Row+1 ‘返回A列最后一行的下一行

(182) (“A1”) ‘返回区域左上角的单元格

(183) ‘访问当前单元格所在的工作簿

(184) ‘切换所选单元格是否加粗

(185) ("A:B").Sort Key1:=Columns("B"), Key2:=Columns("A"), _

Header:=xlYes ‘两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，升序

排列

(186) (“A1”).NumberFormat ‘显示单元格或单元格区域中的第一个单元

格的数字格式

(187) (“A1”).HasFormula ‘检查单元格或单元格区域中的第一个单元格

是否含有公式

或mula ‘工作表中单元格是否含有公式

(188) Column ‘单元格所在的整列

Row ‘单元格所在的整行

(189) ‘显示rng区域的名称

(190) s ‘返回rng区域的地址

(191) (“A1”).Formula ‘返回包含在rng区域中左上角单元格中的公式。

注：若在一个由多个单元格组成的范围内使用Formula属性，会得到错误；若单元格中

没有公式，会得到一个字符串，在公式栏中显示该单元格的值。

(192) Range(“D5:D10”).Cells(1,1) ‘返回单元格区域D5:D10中左上角单元格

(193) ‘活动单元格所在的行数

‘活动单元格所在的列数

(194) Range("A1:B1").HorizontalAlignment = xlLeft ‘当前工作表中的单元格区域

9文档来源为:从网络收集整理.word版本可编辑.

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

数据设置为左对齐

(195) (“A2:A10”).NumberFormat=”#,##0” ‘设置单元格区域A2

至A10中数值格式

(196) e “ “,”0” ‘用0替换单元格区域中的空单元格

*******************************************************

Collection与object

(197) Dim colMySheets As New Collection

Public colMySheets As New Collection ‘声明新的集合变量

(198) Set MyRange=Range(“A1:A5”) ‘创建一个名为MyRange的对象变量

(199)