word格式模板：EXCEL VBA 常用语句400句

VBA 常用语句

定制模块行为

(1)强制对模块内所有变量进行声明

Option Explicit

标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示

Option Private Module

字符串不区分大小写

Option Compare Text

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

Option Base 1

(2)忽略错误继续执行VBA代码,避免出现错误消息

On Error Resume Next

(3)当错误发生时跳转到过程中的某个位置

On Error GoTo ErrorHandler

(4)恢复正常的错误提示

On Error GoTo 0

(5)在程序执行过程中使出现的警告框不显示

Application.DisplayAlerts = False

(6)关闭屏幕刷新

Application.ScreenUpdating = False

打开屏幕刷新

Application.ScreenUpdating = True

(7)禁用Ctrl+Break中止宏运行的功能

Application.Enable.CancelKey = xlDisabled

工作簿

(8)创建一个新的工作簿

Workbooks.Add()

(9)激活名为book1的工作簿

Workbooks("book1.xls").Activate

(10)保存工作簿

ThisWorkbook.Save

(11)关闭当前工作簿

ThisWorkbook.Close

(12)获取活动工作薄中工作表数

ActiveWorkbook.Sheets.Count

(13)返回活动工作薄的名称

(14)返回当前工作簿名称

返回当前工作簿路径和名称

ThisWorkbook.FullName

(15)禁止调整活动工作簿的大小

ActiveWindow.EnableResize = False

(16)将工作簿以平铺方式排列

Application.Window.Arrange xlArrangeStyleTiled (17)将当前工作簿最大化

ActiveWorkbook.WindowState = xlMaximized

工作表

(18)当前工作表中已使用的行数

edRange.Rows.Count

(19)获取工作表的行数(注：考虑向前兼容性)

Rows.Count

(20)将Sheet1命名为Sum

Sheets(Sheet1).Name = "Sum"

(21)添加一个新工作表在第一工作表前

ThisWorkbook.Sheets.Add Before:=Worksheets(1) (22)将当前工作表移至工作表的最后

ActiveSheet.Move After:=ActiveWorkbook. _

Sheets(ActiveWorkbook.Sheets.Count) (23)同时选择工作表1和工作表2

Worksheets(Array("sheet1", "sheet2")).Select (24)删除工作表1

Sheets("sheet1").Delete

或

Sheets(1).Delete

(25)获取工作表i的名称

ActiveWorkbook.Sheets(i).Name

(26)切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮

ActiveWindow.DisplayGridlines = Not ActiveWindow.DisplayGridlines

(27)切换工作表中的行列边框显示

ActiveWindow.DisplayHeadings = Not ActiveWindow.DisplayHeadings

(28)删除当前工作表中所有的条件格式

edRange.FormatConditions.Delete

(29)取消当前工作表所有超链接

Cells.Hyperlinks.Delete

(30)将页面设置更改为横向

ActiveSheet.PageSetup.Orientation = xlLandscape

或

ActiveSheet.PageSetup.Orientation = 2

(31)在页面设置的表尾中输入文件路径

ActiveSheet.PageSetup.RightFooter =

ActiveWorkbook.FullName

将用户名放置在活动工作表的页脚

ActiveSheet.PageSetup.LeftFooter = erName

单元格/单元格区域

(32)选择当前活动单元格所包含的范围，上下左右无空行

ActiveCell.CurrentRegion.Select

或

Range(ActiveCell.End(xlUp),

ActiveCell.End(xlDown)).Select

(33)选定当前工作表的所有单元格

Cells.Select

(34)清除活动工作表上单元格A1中的内容

Range("A1").ClearContents

清除选定区域内容

Selection.ClearContents

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

Range("A1:D4").Clear

(35)清除工作表中所有单元格的内容

Cells.Clear

(36)活动单元格下移一行，同理，可下移一列