Function InputBox(Prompt, [Title], [Default], [XPos], [YPos], [HelpFile], [Context]) As String
看到没有,as string ,用val转一下就行了Dim x As Long
x = Val(InputBox(""))
Print x
看到没有,as string ,用val转一下就行了Dim x As Long
x = Val(InputBox(""))
Print x
Function inputbox(" 调压箱交接单编号:", "修改") As String
这一行有错,是“缺少标志符”,怎么回事?
定义函数?有你那样定义函数的吗?
使用inputbox函数?好好看看帮助,inputbox是那样用的吗?