最初由 jute 發表

要如何把這個 Sub 改成 Function？就是在 cell 裡可以直接打 =Total(A1:B5) 的 function


呵!!我只是這裡的小鱉三罷了!!這裡的高手最近可能沒時間上來!!


Function應該也一樣：


Function Total(SRng As Range) As Integer
Dim rng As Range
Dim c As Integer
For Each rng In SRng
With rng
If Not IsError(.Value) Then c = c + Len(.Value)
End With
Next
Total = c
End Function

贊助商連結

原來如此！:eek:
我之前都直接 SRng=ActiveWindow.RangeSelection，怪不得都叫出一堆錯誤 :P

再次感謝 web 兄的指點！:D