在单元格中赋值时出现溢出错误

Question

300000在中分配值cell(1,1)：

Sub test()
   ActiveSheet.Cells(1, 1) = 300000
End Sub

现在替换300000为500*600：

Sub test()
   ActiveSheet.Cells(1, 1) = 500 * 600
End Sub

为什么会遇到错误：overflow？

Answer 1

微软的解释：

您尝试在计算中使用数字，并且该数字被强制转换为整数，但结果大于整数。例如：

Dim x As Long 
x = 2000 * 365   ' Error: Overflow

要解决此情况，请输入数字，如下所示：

Dim x As Long 
x = CLng(2000) * 365