VBA 属性类型

VBA属性类型

vba
Sub BasicDataTypeExample()
    Dim age As Integer
    Dim salary As Double
    Dim name As String
    Dim isMarried As Boolean
    
    age = 25
    salary = 50000.5
    name = "John"
    isMarried = True
    
    MsgBox "Name: " & name & vbCrLf & _
           "Age: " & age & vbCrLf & _
           "Salary: " & Format(salary, "Currency") & vbCrLf & _
           "Married: " & IIf(isMarried, "Yes", "No")
End Sub

vba
Sub ObjectDataTypeExample()
    Dim workbook As Workbook
    Dim worksheet As Worksheet
    Dim range As Range
    
    Set workbook = ThisWorkbook
    Set worksheet = workbook.Worksheets("Sheet1")
    Set range = worksheet.Range("A1")
    
    range.Value = "Hello, VBA!"
End Sub

vba
Type Person
    Name As String
    Age As Integer
    Salary As Double
    IsMarried As Boolean
End Type
Sub CustomDataTypeExample()
    Dim employee As Person
    
    employee.Name = "John"
    employee.Age = 25
    employee.Salary = 50000.5
    employee.IsMarried = True
    
    MsgBox "Name: " & employee.Name & vbCrLf & _
           "Age: " & employee.Age & vbCrLf & _
           "Salary: " & Format(employee.Salary, "Currency") & vbCrLf & _
           "Married: " & IIf(employee.IsMarried, "Yes", "No")
End Sub

vba
Sub ArrayDataTypeExample()
    Dim numbers(1 To 5) As Integer
    Dim i As Integer
    
    For i = 1 To 5
        numbers(i) = i * 10
    Next i
    
    For i = 1 To 5
        MsgBox "Number " & i & ": " & numbers(i)
    Next i
End Sub