【C001】Excel VBA - 自定义数据类型

来源：http://blog.csdn.net/alexbnlee/article/details/6923787

→用户自定义数据类型需要使用Type语句

Type lianxiren
    name As String
    sex As String
    age As Integer
    phone As String
    address As String
    department As String
End Type
Sub AddressList()
    Dim record As lianxiren
    record.name = "Alex"
    record.sex = "Male"
    record.age = 23
    record.phone = "18812345678"
    record.address = "Blahblah"
    record.department = "Blahblah"
    MsgBox record.name
End Sub

前面建立一个自定义的数据类型，后面就可以引用

→ 系统常量指VBA系统内部定义的常量，一般以Vb为前缀开头。
例如：VbRed，VbOKOnly等等~

→ Object型数据表示对象的引用，其中存储的内容是一个对象的地址，对于一个Object型变量赋值时，不能直接采用复制语句，而应当利用Set语句为其赋值
Dim Sheet As Object
Set Sheet = Worksheets("sheet1")

→ Is 比较两个Object型变量应用的是否是同一个变量，如果是同一个变量，则返回True，否则为False。

→ Like举例（与Word中的替换有点相似）

Dim MyCheck
MyCheck = "aBBBa" Like "a*a"    ' 返回 True。
MyCheck = "F" Like "[A-Z]"    ' 返回 True。
MyCheck = "F" Like "[!A-Z]"    ' 返回 False。
MyCheck = "a2a" Like "a#a"    ' 返回 True。
MyCheck = "aM5b" Like "a[L-P]#[!c-e]"    ' 返回 True。
MyCheck = "BAT123khg" Like "B?T*"    ' 返回 True。
MyCheck = "CAT123khg" Like "B?T*"    ' 返回 False。

→ 暂停语句，Stop语句，语句会在Stop位置停下，再按下运行可以继续运行。。。分号也可以连接字符串，而且会在数字左右加入空格

Sub Stop1()
    Dim i As Integer
    For i = 1 To 5
        Debug.Print "程序第"; i; "次暂停"
        Stop
    Next
End Sub