Tag: 整数溢出

在VBA中错误溢出

我是VBA的新手。 最近，我input了一些代码，以下是我的代码示例： Dim n As Long n = Range("A1", Range("A1").End(xlDown)).Rows.Count For i = 3 To n Range("P" & i).Value = WorksheetFunction.IfError(Range("N" & i).Value / Range("O" & i).Value, 0)) Next 原来有溢出的错误。 我在互联网上search，并找出它我的示例代码应该转换为Long型数据。 但是，当我改变成： Range("P" & i).Value = CLng(WorksheetFunction.IfError(CLng(Range("N" & i).Value) / CLng(Range("O" & i).Value), 0)) 问题也依然存在。 感谢您的任何帮助 ！

新的VBA运行时错误6，脚本停在空白单元而不是循环

最近开始与VBA合作。 Youtube和这个论坛迄今为止都非常出色。 但是，我的问题是这样的： Private Sub CommandButton1_Click() Dim i As Integer i = 1 Do While Sheet2.Cells(i, 1).Value <> 0 Sheet3.Cells(i, 1).Value = Sheet2.Cells(i, 1) i = i + 1 Loop Do While Sheet2.Cells(i, 10).Value <> 0 Sheet3.Cells(i, 4).Value = Sheet2.Cells(i, 10) i = i – 1 Loop Do While Sheet2.Cells(i, 6).Value <> 2 Sheet3.Cells(i, 3).Value […]

Excel VBA中可以允许整数溢出吗？

很简单，但我找不到任何通过谷歌search。 我想要发生的一个例子： Function myFunc() Dim a As Integer Dim b As Integer Dim c As Integer a = 20000 b = 15000 c = a + b myFunc = c End Function 我希望myFunc（）返回-30536，而不是抛出一个溢出exception。 我知道我可以写一个这样做的函数，但是我已经为一个项目编写了一堆代码，假设溢出是允许的，所以我希望有一个快速的修复。 编辑：我不需要帮助来解决types转换溢出问题的function。 我已经有一个; 我只想避免改变数百个加减运算。 我也有点沮丧，VBA似乎走出了禁用溢出function的方式 – 它应该让用户决定是否要使用它。