Question

vba 模块不是有效类型

小弟初学 各路大神帮忙看下问题在哪 谢谢
Sub mysum()
Dim i As range, s As Long
For Each i In Selection
If IsNumeric(i.Value) Then
s = s + i.Value
End If
Next
MsgBox ("所选区域求和：" & s)
End Sub

Answer 1

代码写法上一点问题都没有，S定义为LONG也足够了

只是用循环，数据多了速度就慢了，建议还是直接用SUM函数

Sub mysum2()
  MsgBox ("所选区域求和：" & Application.Sum(Selection))
End Sub

Answer 2

问题太多，都不知道说哪句不对 了
For Each i In Selection---selection对象不支持这种用法，况且i是一个range对象，selection本身也可能是一个range，for each 无用
i.value也不符合规范，在excel中，如果range对象刚好是一个单元格，还可以用，其它情况就会出错

Answer 3

基本无误，
只是在超过long范围的数值会报错，建议不要定义s的类型