Excel VBA - 自定义数据类型及其它

最新推荐文章于 2025-09-21 09:56:19 发布

原创最新推荐文章于 2025-09-21 09:56:19 发布 · 2.3w 阅读

9 ·

CC 4.0 BY-SA版权

文章标签：

#vba #excel #integer #string #object #vb

Excel VBA 专栏收录该内容

11 篇文章

订阅专栏

本文介绍了如何在VBA中定义自定义数据类型，并通过示例展示了具体用法。此外，还讲解了系统常量的使用、Object型数据的特点及操作方法，以及Like操作符的使用技巧。

→用户自定义数据类型需要使用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