如何在vba中输入两个数字变量

如何在vba中输入两个数字变量

方法1:
Sub test()
Dim W, T As Long
W = Application.InputBox("请输入W变量的值:", "W变量输入窗口", 100, Type:=1)
If W = False Then Exit Sub
T = Application.InputBox("请输入T变量的值:", "T变量输入窗口", 200, Type:=1)
If T = False Then Exit Sub
MsgBox "W变量的值是:" & W & vbCrLf & "T变量的值是:" & T
End Sub
方法2
Sub test()
Dim W, T As Long, Temp As String, Arr
Temp = InputBox("请输入W,T变量的值以"",""隔开:", "变量输入窗口", "100,200")
If Temp = "" Then Exit Sub
Arr = Split(Temp, ",")
W = Arr(0)
T = Arr(1)
MsgBox "W变量的值是:" & W & vbCrLf & "T变量的值是:" & T
End Sub
追问：不行啊，这两个变量我在后面的程序中要同时用到。
追答：你把这两个变量定义为公共变量不就行了.
别说你不知道在哪定义哦 在任意一个模块的最上面一行加入一句 public w,t as long 呵呵
Public W, T As Long
Sub test()
W = Application.InputBox("请输入W变量的值:", "W变量输入窗口", 100, Type:=1)
If W = False Then Exit Sub
T = Application.InputBox("请输入T变量的值:", "T变量输入窗口", 200, Type:=1)
If T = False Then Exit Sub
End Sub
sub WTshow()
MsgBox "W变量的值是:" & W & vbCrLf & "T变量的值是:" & T
End Sub

Dim x
x = InputBox("Input x:")
追问：一个变量我也会，关键是要输入两个变量。
追答：VB中是如何解决的？借鉴一下就清楚了阿
再不然，直接输入两个数据，做为string来接收；
然后解析string将你需要的数值分离出来就是了阿

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！