Sub demo()
Dim x1 As Double
x1 = 5.5
Dim x2 As Boolean
x2 = True
Dim x3 As String
x3 = "Dahan"
Dim x4 As Variant
x4 = " Good "
MsgBox "變數:" & x1 & x2 & x3 & x4
End Sub
Sub ex01()
Static count_var As Integer
count_var = count_var + 1
tot_var = count_var * 5
MsgBox ("第" & count_var & "次呼叫,每次5元,共" & tot_var & "元")
End Sub
Sub js()
For i = 1 To 10
x = i
Range("a" & (i)).Value = i
Next i
End Sub