将excel中的单元格范围传递给vba函数

Question

我试图创建一个函数，以便= processCells（A1：A10）将单元格范围添加到每个项目并显示单元格A11中的新数字：A20。我想在工作表中使用该功能，以便用户可以手动选择单元格A1：A10，因此他们可以选择B1：B10等...而不是A1：A10

我的问题是将单元格范围一个工作表到一个函数然后处理它们。

Answer 1

下面是一个示例UDF，让你开始

Function processCells(rng As Variant, Optional AddValue = 10) As Variant 
    Dim v As Variant 
    Dim i As Long, j As Long 
    Select Case TypeName(Application.Caller) 
     Case "Range" 
      ' Called from a Formula 
      v = rng 
      If IsArray(v) Then 
       ' Called from an Array Formula 
       For j = 1 To UBound(v, 1) 
       For i = 1 To UBound(v, 2) 
        If IsNumeric(v(j, i)) Then 
         v(j, i) = v(j, i) + AddValue 
        End If 
       Next i, j 
      Else 
       ' Called from a single Cell 
       If IsNumeric(v) Then 
        v = v + AddValue 
       End If 
      End If 
      processCells = v 
     Case Else 
      processCells = vbEmpty 
    End Select 
End Function 

要为您介绍用它，在细胞的细胞输入为数组公式=processCells(A1:A10)A11:A20