VBA语法汇总.docx

1、VBA语法汇总目录1. 循环语句 52. 判断语句 63. VBA对象方法和属性 7(一) 工作簿 7(二) 工作表 7(三) 单元格 74. VBA分支及END语句 84.1. END语句 84.2. Exit语句 84.3. GO TO 语句 94.3.1. Goto语句,跳转到指定的地方 94.3.2. goSub.return ,跳过去,再跳回来 94.3.3. on error resume next 遇到错误,跳过继续执行下一句 104.3.4. on error goto 出错时跳到指定的行数 104.3.5. on error goto 0 取消错误跳转 105. excel文

2、件操作 105.1. excel文件和工作簿，excel文件就是excel工作簿，excel文件打开需要excel程的支持 105.2. Workbooks 工作簿集合，泛指excel文件或工作簿 105.3. 工作簿窗口 115.4. 应用 115.4.1. 判断A.Xls文件是否存在 115.4.2. 判断A.Xls文件是否打开 115.4.3. excel文件新建和保存 115.4.4. excel文件打开和关闭 115.4.5. excel文件保存和备份 125.4.6. excel文件复制和删除 126. Excel单元格选取 126.1. 表示一个单元格(a1) 126.2. 表示

3、相邻单元格区域 126.3. 表示不相邻的单元格区域 126.4. 表示行 136.5. 表示列 136.6. 重置坐标下的单元格表示方法 136.7. 表示正在选取的单元格区域 147. 特殊单元格定位 148. 单元格的信息 148.1. 单元格的值 148.2. 单元格的地址 148.3. 单元格的行列信息 158.4. 单元格的格式信息 158.5. 单元格批注信息 158.6. 单元格的位置信息 158.7. 单元格的上级信息 158.8. 内容判断 169. 单元格的格式 169.1. 单元格的数字格式 169.2. 设置单元格自定义格式 179.3. 按指定格式从单元格返回数值

4、179.4. 单元格的颜色 179.5. 单元格合并 189.6. 单元格编辑 199.6.1. 单元格行列的删除和插入 199.6.2. 单元格的输入 2010. 单元格查询 2110.1. 调用工作表函数 2110.2. 使用Find方法 2111. VBA数组 2111.1. 向VBA数组中写入数据 2211.2. VBA数组的读取 2311.3. 数组的空间 2411.3.1. 数组的大小 2411.3.2. 动态数组的动态扩充 2411.3.3. 清空数组 2511.4. 数组与函数 2511.5. 可以生成数组的函数 2612. VBA排序 2812.1. 插入排序 2812.2.

5、 冒泡排序 2812.3. 希尔排序 2812.4. 一个插入排序的函数， 2913. VBA字典 3013.1. VBA字典的使用 3114. Msgbox函数 3314.1. 窗口按钮类型和图标 3314.2. 窗口和标题显示文字 3414.3. 窗体返回值 3514.4. 自动定时关闭消息窗口 3515. Inputbox函数 3515.1. Inputbox语法概述 3615.2. 基本应用 3615.3. Inputbox扩展应用 3716. Excel对话框 3816.1. 取得打开文件的文件名和路径 3816.2. 返回文件夹名和路径 3917. 字符串的拆分组合和转换 4117

6、.1.1. 拆分与组合 4117.1.2. 查找和替换 4117.1.3. 类型转换 4218. Like运算符 4319. 正则表达式 4419.1. 正刚表达式简介 4419.2. 正则表达式常用符 47(一) 号 47(二) . (点) 47(三) + 号 47(四) 号 48(五) * 49(六) ? 号 49(七) 号 50(八) $号 50(九) b 50(十) | 51(十一) un 匹配 51(十二) 52(十三) ( ) 号 531. 循环语句Sub t2()Dim x As Integer For x = 10000 To 2 Step -3 Range(d & x) =

7、Range(b & x) * Range(c & x) Next xEnd SubSub t3()Dim rg As Range For Each rg In Range(d2:d18) rg = rg.Offset(0, -1) * rg.Offset(0, -2) Next rgEnd SubSub t4()Dim x As Integer x = 1 Do x = x + 1 Cells(x, 4) = Cells(x, 2) * Cells(x, 3) Loop Until x = 18End SubSub t5() x = 1 Do While x 0 Then Range(b1)

8、= 正数 Else Range(b1) = 负数或0 End IfEnd SubSub 判断2() 多条件判断 If Range(a1).Value 0 Then Range(b1) = 正数 ElseIf Range(a1) = 0 Then Range(b1) = 等于0 ElseIf Range(B1) = 0 Then Range(b1) = 负数 End IfEnd SubSub 多条件判断2() If Range(a1) And Range(a2) Then Range(a3) = Range(a1) * Range(a2) End IfEnd SubSub 判断1() 单条件判断

9、 Select Case Range(a1).Value Case Is 0 Range(b1) = 正数 Case Else Range(b1) = 负数或0 End SelectEnd SubSub 判断2() 多条件判断 Select Case Range(a1).Value Case Is 0 Range(b1) = 正数 Case Is = 0 Range(b1) = 0 Case Else Range(b1) = 负数 End SelectEnd Sub3. VBA对象方法和属性(一) 工作簿Workbooks 代表工作簿集合，所有的工作簿,Workbooks(N)，表示已打开的第

10、N个工作簿 Workbooks (工作簿名称) ActiveWorkbook 正在操作的工作簿 ThisWorkBook 代码所在的工作簿 (二) 工作表 Sheets(工作表名称) Sheet1 表示第一个插入的工作表,Sheet2表示第二个插入的工作表. Sheets(n) 表示按排列顺序，第n个工作表 ActiveSheet 表示活动工作表，光标所在工作表 worksheet 也表示工作表，但不包括图表工作表、宏工作表等。(三) 单元格cells 所有单元格Range (单元格地址)Cells(行数,列数)Activecell 正在选中或编辑的单元格Selection 正被选中或选取的单

11、元格或单元格区域4. VBA分支及END语句4.1. END语句 作用：强制退出所有正在运行的程序4.2. Exit语句 退出指定的语句1) Exit Sub Sub e1() Dim x As Integer For x = 1 To 100 Cells(1, 1) = x If x = 5 Then Exit Sub End If Next x Range(b1) = 100 End Sub2) Exit function Function ff() Dim x As Integer For x = 1 To 100 If x = 5 Then Exit Function End If N

12、ext x ff = 100 End Function 3) Exit for Sub e2() Dim x As Integer For x = 1 To 100 Cells(1, 1) = x If x = 5 Then Exit For End If Next x Range(b1) = 100 End Sub4) Exit do Sub e3() Dim x As Integer Do x = x + 1 Cells(1, 1) = x If x = 5 Then Exit Do End If Loop Until x = 100 Range(b1) = 100 End Sub4.3.

13、 GO TO 语句4.3.1. Goto语句,跳转到指定的地方Sub t1() Dim reg As New RegExp Dim x As Integer Dim sr 100: sr = Application.InputBox(请输入数字, 输入提示) With reg .Global = True .Pattern = d+$|False If .test(sr) Then MsgBox (正确) Else GoTo 100 End If End WithEnd Sub4.3.2. goSub.return ,跳过去,再跳回来Sub t2() Dim x As Integer For

14、x = 1 To 10 If Cells(x, 1) Mod 2 = 0 Then GoSub 100 Next xExit Sub100: Cells(x, 1) = 偶数 ReturnEnd Sub4.3.3. on error resume next 遇到错误,跳过继续执行下一句Sub t3() On Error Resume Next Dim x As Integer For x = 1 To 10 Cells(x, 3) = Cells(x, 2) * Cells(x, 1) Next x End Sub4.3.4. on error goto 出错时跳到指定的行数 Sub t4()

15、 On Error GoTo 100 Dim x As Integer For x = 1 To 10 Cells(x, 3) = Cells(x, 2) * Cells(x, 1) Next x Exit Sub100: MsgBox 在第 & x & 行出错了 End Sub4.3.5. on error goto 0 取消错误跳转 Sub t5() On Error Resume Next Dim x As Integer For x = 1 To 10 If x 5 Then On Error GoTo 0 Cells(x, 3) = Cells(x, 2) * Cells(x, 1)

16、 Next x Exit Sub End Sub5. excel文件操作5.1. excel文件和工作簿，excel文件就是excel工作簿，excel文件打开需要excel程的支持5.2. Workbooks 工作簿集合，泛指excel文件或工作簿 Workbooks(A.xls)，名称为A的excel工作簿 Sub t1() Workbooks(A.xls).Sheets(1).Range(a1) = 100 End Subworkbooks(2)，按打开顺序，第二个打开的工作簿。 Sub t2() Workbooks(2).Sheets(2).Range(a1) = 200 End Su

17、b ActiveWorkbook ，当打开多个excel工作簿时，你正在操作的那个就是ActiveWorkbook（活动工作簿）Thisworkbook，VBA程序所在的工作簿，无论你打开多少个工作簿，无论当前是哪个工作簿是活动的,thisworkbook就是指它所在的工作簿。5.3. 工作簿窗口Windows(A.xls),A工作簿的窗口，使用windows可以设置工作簿窗口的状态，如是否隐藏等。 Sub t3() Windows(A.xls).Visible = False End Sub Sub t4() Windows(2).Visible = True End Sub5.4. 应用5

18、.4.1. 判断A.Xls文件是否存在 Sub W1() If Len(Dir(d:/A.xls) = 0 Then MsgBox A文件不存在 Else MsgBox A文件存在 End If End Sub5.4.2. 判断A.Xls文件是否打开 Sub W2() Dim X As Integer For X = 1 To Windows.Count If Windows(X).Caption = A.XLS Then MsgBox A文件打开了 Exit Sub End If Next End Sub 5.4.3. excel文件新建和保存 Sub W3() Dim wb As Work

19、book Set wb = Workbooks.Add wb.Sheets(sheet1).Range(a1) = abcd wb.SaveAs D:/B.xls End Sub5.4.4. excel文件打开和关闭 Sub w4() Dim wb As Workbook Set wb = Workbooks.Open(D:/B.xls) MsgBox wb.Sheets(sheet1).Range(a1).Value wb.Close False End Sub5.4.5. excel文件保存和备份 Sub w5() Dim wb As Workbook Set wb = ThisWorkb

20、ook wb.Save wb.SaveCopyAs D:/ABC.xls End Sub 5.4.6. excel文件复制和删除 Sub W6() FileCopy D:/ABC.XLS, E:/ABCd.XLS Kill D:/ABC.XLS End Sub6. Excel单元格选取6.1. 表示一个单元格(a1) Sub s() Range(a1).Select Cells(1, 1).Select Range(A & 1).Select Cells(1, A).Select Cells(1).Select a1.Select End Sub6.2. 表示相邻单元格区域 Sub d() 选

21、取单元格a1:c5 Range(a1:c5).Select Range(A1, C5).Select Range(Cells(1, 1), Cells(5, 3).Select Range(a1:a10).Offset(0, 1).Select Range(a1).Resize(5, 3).Select End Sub 6.3. 表示不相邻的单元格区域 Sub d1() Range(a1,c1:f4,a7).Select Union(Range(a1), Range(c1:f4), Range(a7).Select End Sub Sub dd() union示例 Dim rg As Rang

22、e, x As Integer For x = 2 To 10 Step 2 If x = 2 Then Set rg = Cells(x, 1) Set rg = Union(rg, Cells(x, 1) Next x rg.Select End Sub 6.4. 表示行 Sub h() Rows(1).Select Rows(3:7).Select Range(1:2,4:5).Select Range(c4:f5).EntireRow.Select End Sub 6.5. 表示列 Sub L() Columns(1).Select Columns(A:B).Select Range(

23、A:B,D:E).Select Range(c4:f5).EntireColumn.Select 选取c4:f5所在的行 End Sub6.6. 重置坐标下的单元格表示方法 Sub cc() Range(b2).Range(a1) = 100 End Sub 6.7. 表示正在选取的单元格区域 Sub d2() Selection.Value = 100 End Sub7. 特殊单元格定位7.1. 已使用的单元格区域 Sub d1() Sheets(sheet2).UsedRange.Select wb.Sheets(1).Range(a1:a10).Copy Range(i1) End Su

24、b7.2. 某单元格所在的单元格区域 Sub d2() Range(c10).CurrentRegion.Select End Sub7.3. 两个单元格区域共同的区域 Sub d3() Intersect(Columns(b:c), Rows(3:5).Select End Sub 7.4. 调用定位条件选取特殊单元格 Sub d4() Range(A1:A6).SpecialCells(xlCellTypeBlanks).Select End Sub7.5. 端点单元格 Sub d5() Range(a65536).End(xlUp).Offset(1, 0) = 1000 End Sub

25、 Sub d6() Range(Range(b6), Range(b6).End(xlToRight).Select End Sub8. 单元格的信息8.1. 单元格的值 Sub x1() Range(b10) = Range(c2).Value Range(b11) = Range(c2).Text Range(c10) = & Range(I3).Formula End Sub8.2. 单元格的地址 Sub x2() With Range(b2).CurrentRegion b12 = .Address c12 = .Address(0, 0) d12 = .Address(1, 0) e

26、12 = .Address(0, 1) f12 = .Address(1, 1) End With End Sub 8.3. 单元格的行列信息 Sub x3() With Range(b2).CurrentRegion b13 = .Row b14 = .Rows.Count b15 = .Column b16 = .Columns.Count b17 = .Range(a1).Address End With End Sub 8.4. 单元格的格式信息 Sub x4() With Range(b2) b19 = .Font.Size b20 = .Font.ColorIndex b21 =

27、.Interior.ColorIndex b22 = .Borders.LineStyle End With End Sub 8.5. 单元格批注信息 Sub x5() B24 = Range(I2).Comment.Text End Sub8.6. 单元格的位置信息 Sub x6() With Range(b3) b26 = .Top b27 = .Left b28 = .Height b29 = .Width End With End Sub8.7. 单元格的上级信息 Sub x7() With Range(b3) b31 = .Parent.Name b32 = .Parent.Parent.Name End With End Sub8.8. 内容判断 Sub x8() With Range(i3) b34 = .HasFormula b35 = .Hyperlinks.Count End With End Sub9. 单元格的格式9.1. 单元格的数字格式 1 判断是否为空单元格 Sub d1() b1 = If Range(a1) = Then If Len(a1) = 0 Then If VBA.IsEmpty(a1) Then b1 = 空值 End If End Sub