VBA(excel表格vba代码大全)

VBA

VBA（VisualBasicforApplications）是VisualBasic的一种宏言语，是在其桌面应用程序中执行通用的自动化(OLE)任务的编程言语。主要能用来扩展Windows的应用程序功用，特别是MicrosoftOffice软件。它也可说是一种应用程式视觉化的Basic脚本。
1993年由微软公司开发的应用程序共享一种通用的自动化言语——–即VisualBasicforApplication(VBA)，实际上VBA是寄生于VB应用程序的版别。1994年发行的Excel5.0版别中，即具备了VBA的宏功用。

excel表格vba代码大全

(1)OptionExplicit‘强制对模块内一切变量进行声明
(2)OptionBase1‘指定数组的第一个下标为1
(3)OnErrorResumeNext‘忽略过错持续履行VBA代码,防止呈现过错音讯
(4)OnErrorGoTo100‘当过错产生时跳转到过程中的某个位置
(5)OnErrorGoTo0‘恢复正常的过错提示
(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)ActiveWorkbook.name‘回来活动作业薄的称号
(16)ThisWorkbook.Name‘回来当时作业簿称号
(17)ThisWorkbook.FullName‘回来当时作业簿路径和名
(18)ActiveSheet.UsedRange.Rows.Count‘当时作业表中已运用的行数
(19)Rows.Count‘获取作业表的行数(注：考虑兼容性)
(20)Sheets(Sheet1).Name=“Sum”‘将Sheet1命名为Sum
(21)ThisWorkbook.Sheets.AddBefore:=Worksheets(1)‘增加一个新作业表在第一作业表前
(22)ActiveSheet.MoveAfter:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)‘将当时作业表移至作业表的最终
(23)Worksheets(Array(“sheet1”,”sheet2”)).Select‘同时挑选作业表1和作业表2
(24)Sheets(“sheet1”).Delete或Sheets(1).Delete‘删除作业表1
(25)ActiveSheet.UsedRange.FormatConditions.Delete‘删除当时作业表中一切的条件格局
(26)Cells.Hyperlinks.Delete‘取消当时作业表一切超链接
(27)ActiveCell.CurrentRegion.Select挑选当时活动单元格所包含的范围，等同于快捷键Ctrl+A
(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”).CopyRange(“B1”)‘仿制单元格A1，粘贴到单元格B1中
(33)Range(“A1:D8”).CopyRange(“F1”)‘将单元格区域仿制到单元格F1开端的区域中
(34)Range(“A1:D8”).CutRange(“F1”)‘剪切单元格区域A1至D8，仿制到单元格F1开端的区域中
(35)Range(“A1”).CurrentRegion.CopySheets(“Sheet2”).Range(“A1”)‘仿制包含A1的单元格区域到作业表2中以A1起始的单元格区域中。
(36)ActiveWindow.RangeSelection.Count‘活动窗口中挑选的单元格数
(37)Selection.Count‘当时选中区域的单元格数
(38)Range(“A1”).Interior.ColorIndex‘获取单元格A1背景色
(39)cells.count‘回来当时作业表的单元格数
(40)Range(“B3”).Resize(11,3)
(41)Union(Range(“A1:A9”),Range(“D1:D9”))区域连接
(42)Intersect(Range(“A1:B9”),Range(“A1:D9”)))‘回来的穿插区域
(43)Selection.Columns.Count‘当时选中的单元格区域中的列数
(44)Selection.Rows.Count‘当时选中的单元格区域中的行数
(45)ActiveSheet.UsedRange.Row‘获取单元格区域中运用的第一行的行号
(46)Application.WorksheetFunction.IsNumber(“A1”)‘运用作业表函数查看A1单元格中的数据是否为数字
(47)Range(“A:A”).Find(Application.WorksheetFunction.Max(Range(“A:A”))).Activate’激活单元格区域A列中最大值的单元格
(48)MsgBox“Hello!”‘音讯框中显现音讯Hello
(49)Ans=MsgBox(“Continue?”,vbYesNo)‘在音讯框中点击“是”按钮，则Ans值为vbYes；点击“否”按钮，则Ans值为vbNo。
(50)Userform1.Show‘显现用户窗体