作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/17 00:11:07
如何在vba中输入两个数字变量
我要在程序的开头输入两个整型的数字变量W和T,以便在后面的程序中用到这两个变量,请问开头这两个变量如何输入,比如用inputbox如何编或是用其他实现就可以
方法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