图片就不更新了,只更新代码。
Integer是整数型,范围:-32,768 到 32,767
Long 长整数型,范围:-2,147,483,648 到 2,147,483,647
把Dim i As Integer改为Dim i As Long即可。
【下面的代码已更新】:
Sub JiSuan()
b = [A2]
e = [B2]
g = [C2]
r = [D65536].End(3).Row + 1 '赋值r=D列最后一个数据的行号+1
Range("D2:E" & r).Delete Shift:=xlUp '删除D2至Fr区域,准备写入结果
Dim i As Long
For i = 1 To g
a = i
d = (g - a * b) / e
If d > 0 And d = Int(d) Then
r = [D65536].End(3).Row + 1 '重新赋值r
Range("D" & r) = a
Range("E" & r) = d
End If
If g < a * b Then
If [D2] = "" Then
[D2] = "无解"
[E2] = "无解"
End If
r = [D65536].End(3).Row '重新赋值r
Range("D2:E" & r).Interior.Color = 10213316 '结果区域添加背景颜色 草绿
Range("D2:E" & r).Borders.LineStyle = xlContinuous '结果区域添加边框线
Exit Sub '退出Sub
End If
Next
End Sub
追问大师,我的条件给错了,能不能帮我再看一下?
追答答案已更新。
追问大神,谢谢你的代码,运行尚好,唯一的问题是g值输入超过32400时,运行到 For i = 1 To g,就提示溢出错误,请问如何修改?
追答【前面的答案已经更新】。