[求助][VBA] 请各位大虾改错！！！

efan2000

slbl(i) = Val(Controls("TextBox" & Trim(Str(i))).Text)


问题应该出在这儿，当文本框中为空时，Val("")会出错，当文本框中不是数字时也会出错，如Val("a")，另Val函数不能识别负数，这样也会出错，Val("-1")。

wei186

但我的文本框中均为正实数呀，不会空或为负数呀，我传上来了，帮我改改吧，我做毕业论文的结束一点点啦，救急！！！

雪山飞狐_lzh

未输入参数时运行


把On Error GoTo err注释掉，发现在运行到

1. slja1 = Int((slbl(1) / slbl(2) * 1000) + 0.5) / 1000

复制代码

时溢出


当然该语句没错


做调试时尽量把错误处理语句注释掉，可以发现错误所在

雪山飞狐_lzh

测试：

2. Sub test()
3. MsgBox Val("")
4. MsgBox Val("-1")
5. MsgBox Val("a")
6. End Sub

Sub test() MsgBox Val("") MsgBox Val("-1") MsgBox Val("a") End Sub

未发现错误分别返回：0，－1，0

雪山飞狐_lzh

Dim slbl(1 To 11) As Long


这里错了


slbl（）数组应该是Double型的数组，改为：


Dim slbl(1 To 11) As Double

wei186

出来啦


不胜感激各位！！！

wei186

我想再请问可能用vba启动vlisp吗？

wei186

我想做一个“保存”按钮，但vba里面没得vb里面的commanddialog按钮，不知道能不能用其他方法解决？？？

雪山飞狐_lzh

wei186发表于2004-4-20 11:28:00vba里面没得vb里面的commanddialog按钮

可以在VBA里调用CommonDialog控件呀

wei186

在文本框中不能输出双引号吗，比方输出“(command "line")”？？？