Question

ExcelVBA代码运行过程时出错6 提示"溢出"

Sub 练习题3() Dim sum As Integer, i As Integer sum = 0 i = 2 Do Until sum > 50000 If Range("B" & i) <> xlCellTypeBlanks Then sum = sum + Range("B" & i) i = i + 1 Else MsgBox "所有数据总未超过5万" End If Loop MsgBox "在第" & i - 2 & "天总和超出5万,总和为：" & sumEnd Sub

Answer 1

Dim sum As Integer, i As Integer
vb中整形是不能超过32767

追问

但是i的值只循环到了18行就提示溢出，而且前面已经If判断了B&i单元格不等于空才执行的

追答

这和几行有关系么 难道不是sum变量溢出么