Excel中宏函数VBA常用语

Excel中宏函数 vba常用语句

(1)Option Explicit

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

Option Private Module

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

字符串不区分大小写

Option Base 1

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

(2)On Error Resume Next

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

(3)On Error GoTo ErrorHandler

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

(4)On Error GoTo 0

恢复正常的错误提示

(5)Application.DisplayAlerts=False

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

(6)Application.ScreenUpdating=False

关闭屏幕刷新

(7)Application.ScreenUpdating=True

打开屏幕刷新

(8)Application.Enable.CancelKey=xlDisabled

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

(1)Workbooks.Add()

创建一个新的工作簿

(2)Workbooks("book1.xls").Activate

激活名为 book1 的工作簿

(3)ThisWorkbook.Save

保存工作簿

(4)ThisWorkbook.close

关闭当前工作簿

(5)ActiveWorkbook.Sheets.Count

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

(6)

返回活动工作薄的名称

(7)

返回当前工作簿名称

(8)ThisWorkbook.FullName

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

(9)ActiveWindow.EnableResize=False

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

(10)A pplication.Window.Arrange xlArrangeStyleTiled

将工作簿以平铺方式排列

(11)A ctiveWorkbook.WindowState=xlMaximized

将当前工作簿最大化

(1)edRange.Rows.Count

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

(2)Rows.Count

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

(3)Sheets(Sheet1).Name= "Sum"

将 Sheet1 命名为 Sum

(4)ThisWorkbook.Sheets.Add Before:=Worksheets(1)

添加一个新工作表在第一工作表前

(5)ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)

将当前工作表移至工作表的最后

(6)Worksheets(Array("sheet1","sheet2")).Select

同时选择工作表 1 和工作表 2

(7)Sheets("sheet1").Delete 或 Sheets(1).Delete

删除工作表 1

(8)ActiveWorkbook.Sheets(i).Name

获取工作表 i 的名称

(9)ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines

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

(10)A ctiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings

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

(11)A edRange.FormatConditions.Delete

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

(12)C ells.Hyperlinks.Delete

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

(13)A ctiveSheet.PageSetup.Orientation=xlLandscape 或 ActiveSheet.PageSetup.Orientation=2

将页面设置更改为横向

(14)A ctiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName

在页面设置的表尾中输入文件路

(15)A ctiveSheet.PageSetup.LeftFooter=erName

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

单元格/单元格区域

(1)ActiveCell.CurrentRegion.Select 或

Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select

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

(2)Cells.Select

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

(3)Range("A1").ClearContents

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

(4)Selection.ClearContents

清除选定区域内容

(5)Range("A1:D4").Clear

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

(6)Cells.Clear

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

(7)ActiveCell.Offset(1,0).Select

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

(8)Range("A1").Offset(ColumnOffset:=1) 或 Range("A1").Offset(,1)

偏移一列