→用户自定义数据类型需要使用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中的替换有点相似)
→暂停语句,Stop语句,语句会在Stop位置停下,再按下运行可以继续运行。。。分号也可以连接字符串,而且会在数字左右加入空格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
。
Sub Stop1()
Dim i As Integer
For i = 1 To 5
Debug.Print "程序第"; i; "次暂停"
Stop
Next
End Sub