VBA和Excel高手来帮我看看,一个用了inputbox函数的打印的宏在很多机器上运行出现错误!

来源:百度知道 编辑:UC知道 时间:2024/05/14 19:17:52
用来打印的宏,在有些机器上可以正常运行,在有些机器上运行时报错:停在inputbox那,提示“找不到函数或库”,据说Excel要安装安全版的才能用,请问我有什么办法,能让这个宏在一般的Excel中都能运行。

这个宏如下:

Sub 工作底稿打印()
On Error Resume Next
x = InputBox("请输入打印开始序号:", "打印设置")
y = InputBox("请输入打印结束序号:", "打印设置")
For i = x To y
Cells(2, 4) = i
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, CopIEs:=1, Collate:=True
Next i
End Sub

有可能是精简版OFFICE的问题,具体不清楚,按道理说INPUTBOX乃内置函数,应该不会出现这样的问题

建议你用窗体作引导吧,即便是精简版也不会有问题

在窗体上加上两个文本框
x=val(trim(textbox1.text))
y=val(trim(textbox2.text))

下面的跟你说的一样即可

InputBox这里太含糊了
改成这样的模式试试看
x = Application.InputBox("")

嗯,对。