运行时错误“6”溢出-vba

Question

执行以下代码时出现运行时错误“6”溢出。

Private Sub ComboBox1_CLICK()

If val(Label27) >= 0 And val(Label27) <= val(Label9) Then    
    Label35 = (val(Label13) - val(Label14) + 1) * val(Label27)/val(Label9)    
ElseIf val(Label27) >= val(Label9) And val(Label27) <= val(Label6) Then    
    Label35 = val(Label13) + 1    
Else     
    Label35 = (val(Label13) + 1) * val(Label6) / val(Label27)            
End If

end sub

Answer 1

听起来您正试图将零除以零。检查Label9和Label27的值不为零。

通常除以零会产生一个

运行时错误“11”：除以零

错误，但如果 Label9 为零（或空白）并且 (val(Label13) - val(Label14) + 1) * val(Label27) 的计算结果为零（可能是因为 Label27 为零），您将计算 0 / 0，这会导致 VBA生成一个

运行时错误“6”：溢出

错误。

Answer 2

如果 VBA 使用 int 作为数据类型并且中间结果超过了 int 的大小，则可能会发生溢出 - 即使最终结果小到足以放入 int 中也是如此

Dim i As Integer
i = 1000 * 1000 / 2000    ' Will raise overflow

您应该强制 VBA 使用数据类型 long。 所以不要使用函数val，而是使用函数CLng。

Dim i As Integer
i = CLng(1000) * 1000 / 2000    ' Okay
i = CLng("1000") * CLng("1000") / cLng("2000")    ' Okay

正如 YowEwK 所说，这可能无法解决您的问题。如果不是，请为您正在处理的每个值定义一个变量（如long 或double），将标签的值分配给它，如果运行时错误仍然发生，请在调试器中检查它们的值：

Dim val27 As doubble
Dim val19 As doubble
val27 = Val(Label27)
val9 = Val(Label9)
...

顺便说一句：您应该考虑用有意义的名称命名所有字段和变量。并且不要忘记添加Option explicit