vbaの関数にあるセルの範囲をExcelから渡す

Question

= processCells（A1：A10）がセルの範囲を取り、各項目に10を追加して表示するように関数を作成しようとしています。セルA11：A20の新しい数値。 A1：A10の代わりにA1：A10を手動で選択できるように、ワークシートの関数を使用します。A1：A10の代わりにA1：A10

セルの範囲を渡しています。関数へのワークシートを作成し、処理します。ここで

Answer 1

は、細胞の細胞A11:A20

で配列数式 =processCells(A1:A10)としてそれを入力して、あなたが説明するように、それを使用するには

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 

を始めるためのサンプルUDFです