当前位置:文库下载 > 所有分类 > IT/计算机 > 计算机软件及应用 > 常用VBA基础语句
免费下载此文档侵权投诉

常用VBA基础语句

常用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) Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示

(7) Application.DisplayAlerts=True '在程序执行过程中

(8) Application.ScreenUpdating=False '关闭屏幕刷新

(9) Application.ScreenUpdating = True '打开屏幕刷新

(10) Workbooks.Add() '创建一个新的工作簿

(11) Workbooks(“book1.xls”).Activate '激活名为book1的工作簿

(12) ThisWorkbook.Save '保存工作簿

(13) ThisWorkbook.close '关闭当前工作簿

(14) ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数

(15) http://www.wenkuxiazai.com '返回活动工作薄的名称

(16) http://www.wenkuxiazai.com ‘返回当前工作簿名称

(17) ThisWorkbook.FullName ‘返回当前工作簿路径和名

(18) (18) http://www.wenkuxiazai.comedRange.Rows.Count ‘当前工作表中已使用的行数

(19) Rows.Count ‘获取工作表的行数(注:考虑兼容性)

(20) Sheets(Sheet1).Name= “Sum” '将Sheet1命名为Sum

(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) '添加一个新工作表在第一工作表前

(22) ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) '将当前工作表移至工作表的最后

(23) Worksheets(Array(“sheet1”,”sheet2”)).Select '同时选择工作表1和工作表2

(24) Sheets(“sheet1”).Delete或 Sheets(1).Delete '删除工作表1

(25) http://www.wenkuxiazai.comedRange.FormatConditions.Delete ‘删除当前工作表中所有的条件格式

(26) Cells.Hyperlinks.Delete ‘取消当前工作表所有超链接

(27) ActiveCell.CurrentRegion.Select选择当前活动单元格所包含的范围,上下左右无空行

(28) Cells.Select ‘选定当前工作表的所有单元格

(29) Range(“A1”).ClearContents '清除活动工作表上单元格A1中的Selection.ClearContents '清除选定区域内容Range(“A1:D4”).Clear '彻底清除A1至D4单元格区域的内容,包括格式

(30) Cells.Clear '清除工作表中所有单元格的内容

(31) ActiveCell.Offset(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”).CurrentRegion.Copy Sheets(“Sheet2”).Range(“A1”) '复制包含A1的

第1页

免费下载Word文档免费下载:常用VBA基础语句

(下载1-4页,共4页)

我要评论

返回顶部