如何在vba中输入两个数字变量
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/17 00:11:07
如何在vba中输入两个数字变量
我要在程序的开头输入两个整型的数字变量W和T,以便在后面的程序中用到这两个变量,请问开头这两个变量如何输入,比如用inputbox如何编或是用其他实现就可以
我要在程序的开头输入两个整型的数字变量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
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
如何在vba中输入两个数字变量
VBA 中公式中的变量
如何在stata中 cluster 两个变量
vba range 列号变量如何表示
在数字电子技术中,五变量的卡若图如何画?
从键盘输入两个数字字符并分别存放在字符型变量a,b中,通过程序将这两个字符相加后输出,如:输入字符型数字7和5,则输出整
在SPSS中如何对两个变量进行相关性分析
excel2003 vba如何编写二元一次函数?就是可以给出一个公式,输入x和斜率k就可以在excel表中得到y的值?
如何在Word中输入几次方的数字?
如何在MATLAB中输入一个矩阵变量的行元素和列元素?
spss 输入数据时,想输入a1,a2,a3,b1,b2,b3.在变量中如何设置
一个函数中有两个变量,如何在matlab的同一张图上生成分别对于两个变量的函数图形?