VBA中常用技巧

常量定义

Public Const i as Integer = 1

 

自定义类型

Type mytype

　　i   as Integer

     b  as  Boolean

     s  as  String

end Type

 

错误处理

①跳过出错语句，继续执行

   On Error Resume Next

   处理代码

   On Error Goto 0

②执行错误处理

   On Error Resume Next

   处理代码

   On Error Goto ErrorHandler

   ErrorHandler:

   错误处理代码

 

分支处理

Select case condition

      case "value1"

              详细处理

      case "value2"

              详细处理

      case  else

             详细处理

End Select

 

循环处理

①For i = 1 to j (Step y)

        详细处理

   next i

②For each obj in objs

        详细处理

   next obj

③Do While / Until Condition

　　　详细处理

   Loop

或Do

         详细处理

    Loop While / Until Condition

 

函数可选参数定义

Function funs(Optional i as Interger) as String

　　详细处理

End Function

参数类型是Variant的场合，可用Ismissing(x)判断参数是否赋值

 

函数随机参数定义

Function funs(ParamArray arglist() as Variant) as Integer

End Function

函数有多个参数时，随机参数需定义在最后

 

变量显式定义

Option Explicit

所用变量必须事先定义，否则无效。一个好的变成习惯。

 

控件相关

①使用控件的MouseDown和MouseMove事件，实现在窗体内移动控件。

Private Sub Image1_MouseDown(Button, Shift, x, y)

　　OldX = x

      OldY = y

      Image1.Zorder 0

End Sub

x,y是选中控件的鼠标坐标值，Zorder使该图像位于最前面。

Private Sub Image1_MouseMove(Button, Shift, x, y)

　　If Button = 1 then

　　　　Image1.Left = Image1.Left + (X - OldX)

　　　　Image1.Top = Image1.Top + (Y - OldY)

　　End if

End Sub

Button=1意味着按下了鼠标左键。