VBA学习(2)

• Excel版本：Office 07
• 与Excel挂接
  • 在模板中添加VB代码

  • Function MyAdd(varA, varB) As Variant
        MyAdd = varA + varB
    End Function

    
     
• 模板、函数、过程、变量
  • 模板中有2个任务
    • 保存过程和函数
    • 定义模块内的私有变量或者整个工程的公有变量 
  •  变量
    • 声明方法：

      Dim strName As String

      说明：

      Dim:声明

      strName：变量名

      As:变量的存储类型归属

      String：变量类型

      
      
  •  过程
    • 最基本的运行单位
    •  

      Sub TestAdd()
      ......
      End Sub

      说明：

      Sub:过程种类

      Test:过程名

      End Sub：过程结束标识

      
      
    • 标准格式

    • [Private|Pubilc] [Static] Sub name[(arglist)]
          [statements]
          [Exit Sub]
          [statements]
      [End Sub]

      说明：

      arglist格式：[Optional][ByVal|ByRef][ParamArray] varname[()] [As tyype][= defaultvalue]

      默认的参数为按地址传送

      
       
  • 函数
    •  标准格式

    •  

      [Private|Pubilc] [Static] Function name[(arglist)] [As type]
          [statements]

      
              
              
      
               
               [name = expression ]
              
              

          [Exit Function]
          [statements]

      
              
              
      
               
               [name = expression]
              
              
      [End Function]

    •  函数需要一个返回值，返回值类型为As type中type类型。返回值赋值给name，若没有， 则默认返回为0、“”、Empty

    • Function MyAdd(varA, varB) As Variant
          MyAdd = varA + varB
      End Function

      
      
      
  •  

    Sub Main()
        MultiBeep 56000
        Message
    End Sub
    Sub MultiBeep(numbeeps)
        For counter = 1 To numbeeps
            Beep
        Next counter
    End Sub
    
    Sub Message()
        MsgBox "Time to take a break"
    End Sub