Sub test()
Dim mystr As String
mystr = “HelloWorld”
Range(“A1”).Value = mystr
MsgBox (mystr)
End Sub
接下來可以試著練習看看其他的類型,使用的方式都一樣。
例如:
宣告mydouble為浮點數Double:
Dim mydouble As Double
mydouble = 3.2
MsgBox (mydouble)
宣告myint為整數Integer:
Dim myint As Integer
myint = 7
MsgBox (myint)
宣告myboolean為布林Boolean(如果是布林為True印出真,False則印出偽):
Dim myboolean As Boolean
myboolean = True
MsgBox (myboolean)
宣告myvariant為任意型別Variant
Dim myvariant As Variant
myvariant = 1.5
MsgBox (“V1=” & myvariant)
myvariant = False
MsgBox (“V2=” & myvariant)
完整程式碼參考如下:
Sub test()
Dim mystr As String
mystr = “HelloWorld”
Range(“A1”).Value = mystr
MsgBox (mystr)
Dim mydouble As Double
mydouble = 3.2
MsgBox (mydouble)
Dim myint As Integer
myint = 7
MsgBox (myint)
Dim myboolean As Boolean
myboolean = True
MsgBox (myboolean)
Dim myvariant As Variant
myvariant = 1.5
MsgBox (“V1=” & myvariant)
myvariant = False
MsgBox (“V2=” & myvariant)
End Sub