VBA的分配空间

★IVY★

下图是我编辑的VBA程序，当在C15输入"679"执行Sheet3.showsum时出现溢出提示。
向各位请教关于VBA分配空间的问题，以及关于此程序的调试。
先谢谢了

VBA程序及溢出提示

ggsmart

上传附件来看看。。。。

hehex

楼主，我能理解你这个自定义函数的意思是累加7的倍数。
看你附图的主程序段：
sum 这个变量明显是用来存贮累加结果的，你定义为String (字符串)变量，这明显是错误的，也是产生累加溢出错误的原因。
还有你的Function calsum 定义成为integer(整型）变量，将来如果n 给的较大，也会产生溢出错误，超过integer 变量能覆盖的范围。

修改你的主程序部分如下，已用你的675 数字测试通过：
Function calsum(n As Integer) As Long
    Dim i As Long, sum&
       For i = 1 To n
           If i Mod 7 = 0 Then sum = sum + i
      Next
     calsum = sum
  End Function

lk089441

不明白楼主意思