如何在vba中输入两个数字变量我要在程序的开头输入两个整型的数字变量W和T,以便在后面的程序中用到这两个变量,请问开头这两个变量如何输入,比如用inputbox如何编或是用其他实现就可以
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 20:31:59
![如何在vba中输入两个数字变量我要在程序的开头输入两个整型的数字变量W和T,以便在后面的程序中用到这两个变量,请问开头这两个变量如何输入,比如用inputbox如何编或是用其他实现就可以](/uploads/image/z/8320276-28-6.jpg?t=%E5%A6%82%E4%BD%95%E5%9C%A8vba%E4%B8%AD%E8%BE%93%E5%85%A5%E4%B8%A4%E4%B8%AA%E6%95%B0%E5%AD%97%E5%8F%98%E9%87%8F%E6%88%91%E8%A6%81%E5%9C%A8%E7%A8%8B%E5%BA%8F%E7%9A%84%E5%BC%80%E5%A4%B4%E8%BE%93%E5%85%A5%E4%B8%A4%E4%B8%AA%E6%95%B4%E5%9E%8B%E7%9A%84%E6%95%B0%E5%AD%97%E5%8F%98%E9%87%8FW%E5%92%8CT%2C%E4%BB%A5%E4%BE%BF%E5%9C%A8%E5%90%8E%E9%9D%A2%E7%9A%84%E7%A8%8B%E5%BA%8F%E4%B8%AD%E7%94%A8%E5%88%B0%E8%BF%99%E4%B8%A4%E4%B8%AA%E5%8F%98%E9%87%8F%2C%E8%AF%B7%E9%97%AE%E5%BC%80%E5%A4%B4%E8%BF%99%E4%B8%A4%E4%B8%AA%E5%8F%98%E9%87%8F%E5%A6%82%E4%BD%95%E8%BE%93%E5%85%A5%2C%E6%AF%94%E5%A6%82%E7%94%A8inputbox%E5%A6%82%E4%BD%95%E7%BC%96%E6%88%96%E6%98%AF%E7%94%A8%E5%85%B6%E4%BB%96%E5%AE%9E%E7%8E%B0%E5%B0%B1%E5%8F%AF%E4%BB%A5)
如何在vba中输入两个数字变量我要在程序的开头输入两个整型的数字变量W和T,以便在后面的程序中用到这两个变量,请问开头这两个变量如何输入,比如用inputbox如何编或是用其他实现就可以
如何在vba中输入两个数字变量
我要在程序的开头输入两个整型的数字变量W和T,以便在后面的程序中用到这两个变量,请问开头这两个变量如何输入,比如用inputbox如何编或是用其他实现就可以
如何在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