如图,怎样自定义一个函数能直接将各行结果汇总求和PublicFunctionSumf(rAsRange)AsDoubleDimiAsIntegerDimjAsIntegerDimrtnAsDoubleDimevlAsDoublertn=0Fori=1Tor.Rows.CountForj=1Tor.Columns.Cou

Question

如图,怎样自定义一个函数能直接将各行结果汇总求和
Public Function Sumf(r As Range) As Double
  Dim i As Integer
  Dim j As Integer
  Dim rtn As Double
  Dim evl As Double
  
 rtn = 0
 For i = 1 To r.Rows.Count
  For j = 1 To r.Columns.Count
      evl = Application.Evaluate(r.Cells(i, j))
      rtn = rtn + evl
  Next j
  Next i
 Sumf = rtn
 End Function
我编写了以上代码但不知在哪里有错,结果不对.
没人回答,不过经过两天的查找资料和分析终于解决问题了,Public Function Sumf(r As Range) As Double
  Dim i As Integer
  Dim j As Integer
  Dim x As String
  Dim rtn As Double
  Dim evl As Double
  
 rtn = 0
 For i = 1 To r.Rows.Count
  For j = 1 To r.Columns.Count
         If r.Cells(i, j) = "" Then
         x = 0
         Else
         x = r.Cells(i, j)
         End If
      evl = Application.Evaluate(x)
      rtn = rtn + evl
&nbsp

Answer 1

不用函数也行,用数据菜单下的列表 就可以实现 比函数方便