Excel VBA常用代码及解释

Excel VBA常用代码及解释

(1) Option Explicit

解释：强制对模块内所有变量进行声明

(2) Option Base 1

解释：指定数组的第一个下标为1

(3) On Error Resume Next

解释：忽略错误继续执行VBA代码,避免出现错误消息

(4) On Error GoTo 100

解释：当错误发生时跳转到过程中的某个位置

(5) On Error GoTo 0

解释：恢复正常的错误提示

(6) yAlerts=False

解释：在程序执行过程中使出现的警告框不显示

(7) yAlerts=True

解释：在程序执行过程中恢复显示警告框

(8) Updating=False

解释：关闭屏幕刷新

(9) Updating = True

解释：打开屏幕刷新

(10) ()

解释：创建一个新的工作簿

(11) Workbooks(“”).Activate

解释：激活名为book1的工作簿

(12)

解释：保存工作簿

(13)

解释：关闭当前工作簿

(14)

解释：获取活动工作薄中工作表数

(15)

解释：返回活动工作薄的名称

(16)

解释：返回当前工作簿名称

(17) me

解释：返回当前工作簿路径和名

(18)

解释：当前工作表中已使用的行数

(19)

解释：获取工作表的行数

(20) Sheets(Sheet1).Name= “Sum”

解释：将Sheet1命名为Sum

(21) Before:=Worksheets(1)

解释：添加一个新工作表在第一工作表前

(22)

After:=()

解释：将当前工作表移至工作表的最后

(23) Worksheets(Array(“sheet1”,”sheet2”)).Select

解释：同时选择工作表1和工作表2

(24) Sheets(“sheet1”).Delete或 Sheets(1).Delete

解释：删除工作表1

(25)

解释：删除当前工作表中所有的条件格式

(26)

解释：取消当前工作表所有超链接

(27) 选择当前活动单元格所包含的范围，等同于快捷键Ctrl+A

(28)

解释：选定当前工作表的所有单元格

(29) Range(“A1”).ClearContents

解释：清除活动工作表上单元格A1中的内容。ontents

解释：清除选定区域内容。

Range(“A1:D4”).Clear

解释：彻底清除A1至D4单元格区域的内容，包括格式。

(30)

解释：清除工作表中所有单元格的内容

(31) (1,0).Select

解释：活动单元格下移一行，同理，可下移一列

(32) Range(“A1”).Copy Range(“B1”)

解释：复制单元格A1，粘贴到单元格B1中

(33) Range(“A1:D8”).Copy Range(“F1”)

解释：将单元格区域复制到单元格F1开始的区域中

(34) Range(“A1:D8”).Cut Range(“F1”)

解释：剪切单元格区域A1至D8，复制到单元格F1开始的区域中

(35)Range(“A1”).

Sheets(“Sheet2”).Range(“A1”)

解释：复制包含A1的单元格区域到工作表2中以A1起始的单元格区域中。

(36)

解释：活动窗口中选择的单元格数

(37)

解释：当前选中区域的单元格数

(38) Range(“A1”).ndex

解释：获取单元格A1背景色

(39)

解释：返回当前工作表的单元格数

(40) Range(“B3”).Resize(11, 3)

(41) Union(Range(“A1:A9”),Range(“D1:D9”)) 区域连接

(42) Intersect(Range(“A1:B9”),Range(“A1:D9”)))

解释：返回的交叉区域

(43)

解释：当前选中的单元格区域中的列数

(44)

解释：当前选中的单元格区域中的行数

(45)

解释：获取单元格区域中使用的第一行的行号

(46) er(“A1”)

解释：使用工作表函数检查A1单元格中的数据是否为数字

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

解释：激活单元格区域A列中最大值的单元格

(48) MsgBox “Hello!”

解释：消息框中显示消息Hello

(49) Ans=MsgBox(“Continue?”,vbYesNo)

解释：在消息框中点击“是”按钮，则Ans值为vbYes；点击“否”按钮，则Ans值为vbNo。

(50)

解释：显示用户窗体

(51) Load Userform1

解释：加载一个用户窗体,但该窗体处于隐藏状态

(52)

解释：隐藏用户窗体

(53) Unload Userform1 或 Unload Me

解释：卸载用户窗体

(54) 0

解释：将窗体设置为无模式状态

(55) Events=False

解释：禁用所有事件

(56) Events = True

解释：启用所有事件

(57) Set d = CreateObject(nary)

解释：创建一个 Dictionary 对象变量

(58) “a”, “Athens”

解释：为对象变量添加关键字和条

(59) “^I”,”macro”

解释：设置Ctrl+I键为macro过程的快捷键

(60) yMode=False

解释：退出剪切/复制模式

(61) le True

解释：无论何时工作表中任意单元格重新计算，都会强制计算该

函数

(62) le False

解释：只有在该函数的一个或多个参数发生改变时，才会重新计算该函数

(63)

解释：清除程序运行过程中所有的错误

(64)

解释：关闭所有打开的工作簿

(65)

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

(66)

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

(67) e = False

解释：隐藏工作簿

(68) e = True

解释：显示工作簿

(69) s(“B”).Insert

解释：在A列右侧插入列，即插入B列

(70) s(“E”).Cut

(71) s(“B”).Insert 70,71两句将E列数据移至B列，原B列及以后的数据相应后移

(72) ate

解释：计算当前工作表

(73)

eets(“sheet1”).Visible=xlSheetHidden

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

(74)eets(“sheet1”).Visible=xlSheetVeryHidden

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

(75)eets(“sheet1”).Visible=xlSheetVisible

解释：显示被隐藏的工作表

(76) (1).ProtectContents

解释：检查工作表是否受到保护

(77)

Before:=eets(2)Count:=2,

或

eets(2), ,

2

解释：在第二个工作表之前添加两个新的工作表

(78) eets(3).Copy

解释：复制一个工作表到新的工作簿

(79)eets(3).Copy

eets(2)

解释：复制第三个工作表到第二个工作表之前

(80) eets(1).Activate

解释：当前工作簿中的第一个工作表被激活

(81)eets(“Sheet1”).Rows(1).Hidden =

True

解释：将工作表Sheet1中的1隐藏

(82) = True

解释：将当前工作表中活动单元格所在的行隐藏

(83) (“A:A”).t

解释：自动调整当前工作表A列列宽

(84)lCells(xlCellTypeConstants,xlTextValues)

解释：选中当前工作表中常量和文本单元格

(85)lCells(xlCellTypeConstants,xlErrors+xlTextValues)

解释：选中当前工作表中常量和文本及错误值单元格

(86)(Range(“A:A”))+1

解释：获取A列的下一个空单元格

(87)Set FirstCell=Range().Range(“A1”)

解释：设置某单元格区域左上角单元格

(88) Now + TimeValue(“00:00:15”),

“myProcedure”

解释：等待15秒后运行myProcedure过程

(89) Application对象

(90) me

解释：返回应用程序的用户名

(91)

解释：返回调用函数的工作簿名称

(92) Bar=”请等待……”

解释：将文本写到状态栏

(93) Bar=False

解释：将状态栏重新设置成正常状态

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

解释：返回一个垂直的数组

(95) s

解释：返回活动单元格的地址(注:返回的是绝对地址)

(96)

解释：返回活动工作表的名称

(97) n

解释：返回活动窗口的标题

(98)

解释：返回活动工作簿的名称

(99) s

解释：返回所选区域的地址

(100)

解释：返回当前工作簿的名称

(101)Range(A1:A10).Value=ose(MyArray)

解释：将一含有10个元素的水平数组转置成垂直数组，并写入工作表单元格区域(A1至A10)。

(102) Cells(,1).End(xlUp).Row+1

解释：返回A列最后一行的下一行

(103) (“A1”)

解释：返回区域左上角的单元格

(104)(“A:B”).Sort

Key1:=Columns(“B”), Key2:=Columns(“A”), Header:=xlYes

解释：两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，升序排列

(105) (“A1”).HasFormula

解释：检查单元格或单元格区域中的第一个单元格是否含有公式或mula

解释：工作表中单元格是否含有公式

(106) Column

解释：单元格所在的整列

(107) Row

解释：单元格所在的整行

(108) s

解释：返回rng区域的地址

(109) Range(“D5:D10”).Cells(1,1)

解释：返回单元格区域D5:D10中左上角单元格

(110)

解释：活动单元格所在的行数

(111)

解释：活动单元格所在的列数

(112) Set MyRange=Range(“A1:A5”)

解释：创建一个名为MyRange的对象变量

(113) ation = xlCalculationManual

解释：设置工作簿手动计算

(114)ation= xlCalculationAutomatic

解释：工作簿自动计算

(115) Worksheets(1).EnableCalculation = False

解释：不对第一张工作表自动进行重算

(116) ture “d:”, True,

True, 60, 20, 400, 300

解释：在当前工作表中插入一张d盘中名为的图片