1. '1，VBA注释 
  2. 'A，Rem 第一种注释方式(只能用于行收) 
  3. 'B，'单引号为第二种注释方式 
  4. '例如： 
  5. Rem 定义一个字符串变量 
  6. Dim wksName As String 
  7. WksName = ActiveSheet.Name'获取当前活动的工作表名称 
  8.  
  9. '2，GoTo语句 
  10. '书上建议不要使用(个人建议适当的用用) 
  11. Sub GotoStatementDemo() 
  12.     Dim Number,MyString 
  13.     Number = 1'设置变量的初始值 
  14.     '判断Number的值以决定要完成哪一个程序区段(以"程序标签"来表达) 
  15.     If Number = 1 Then GoTo Line1 Else GoTo Line2 
  16.     Line1: 
  17.     MyString = "Number equals 1" 
  18.     GoTo LastLine '完成最后一行 
  19.     Line2: 
  20.     '下列的语句根本不会被完成 
  21.     MyString = "Number equals 2" 
  22.     LastLine: 
  23.     Debug.Print MyString '将"Number equals 1"'现实在立即窗口 
  24. End Sub 
  25.  
  26. '3，VBA操作符 
  27. 'A，算数运算符： 
  28. '+,-,*,/(出发),Mod(取余),￥(出发取整),^(指数，求某个数的次方) 
  29. 'B，比较运算符： 
  30. '<,<=,>,>=,=,<> 
  31. 'C，连接运算符 
  32. '&,+ 
  33. 'C，逻辑运算符 
  34. 'And，Or，Not(逻辑非)，Xor(逻辑异或)，Eqv(逻辑等价运算),Imp(逻辑蕴含运算) 
  35.  
  36. '4，VBA错误处理 
  37. 'On Error GoTo line：驱动错误处理程序，且该例程从必要的line参数中指定的line开始 
  38. 'On Error Resume Next：运行发生错误时,控件转到紧接着发生错误的语句之后的语句，并继续执行。访问对象时要使用这种形式而不使用One Error GoTo 
  39. 'On Error GoTo 0：禁止当前过程中任何已启动的错误处理程序 
  40. '例子： 
  41. Sub OnErrorStatementDemo() 
  42.     On Error GoTo ErrorHandler '打开错误处理程序 
  43.     Open "TESTFILE" For Output As #1 '打开输出文件 
  44.     Kill "TESTFILE" '视图删除已打开的文件 
  45.     On Error GoTo 0 '关闭错误陷阱 
  46.     On Error Resume Next'产生错误后继续执行 
  47.     ObjectRef = GetObject("MyWord.Basic")'试图启动不存在的对象 
  48.     '检查可能发生的Automation错误 
  49.     If Err.Number = 440 Or Err.Number = 432 Then 
  50.     '告诉用户出了什么shiq，然后清除Err对象 
  51.     Msg = "这里有一个尝试打开自动化对象的错误!" 
  52.     MsgBox Msg,,"错误测试" 
  53.     Err.Clear 
  54.     End If 
  55. Exit Sub 
  56. ErrorHandler: '错误处理程序 
  57.     Select Case Err.Number 
  58.         Case 55 
  59.             Close #1'关闭已打开的文件 
  60.         Case Else 
  61.     End Select 
  62.     Resume'将控制返回到产生错误的语句 
  63.  
  64. End Sub