VBA（Absolute Differenceの合計）範囲

Question

2つの範囲または2つの配列を入力とし、これらの2つの範囲/配列の要素数が同じか、エラーメッセージを送信する場合は、各要素の絶対差の合計を取得しますこれらの2つの配列/範囲のサイズが同じでない場合これはVBAの問題です。私は荒い時間を抱えています。

Public Function MyFunction(Rng1 As Range, Rng2 As Range) 
    Dim CountRng1 As Long 
    Dim CountRng2 As Long 

    Rng1.Count = CountRng1 
    Rng2.Count = CountRng2 

    If CountRng1 = CountRng2 Then 

    Else 
     MsgBox "Error, the ranges you passed to the function are not the same size" 
    End If 
End Function 

Answer 1

機能は、任意のポップアップメッセージを表示しない：

は、これは私がこれまで持っているものです。あなたの予想されるタスクを行うためにあなたのコードで少し変更が行われました。

あなたがセルに簡単な式でそれを行うことができます

Public Function MyFunction(Rng1 As Range, Rng2 As Range) 
    Dim CountRng1 As Long 
    Dim CountRng2 As Long 

    CountRng1 = Rng1.Count 
    CountRng2 = Rng2.Count 

    If CountRng1 = CountRng2 Then 
     'Your Code Goes here... 
    Else 
     MyFunction = "Error, the ranges you passed to the function are not the same size" 
    End If 
End Function 

Answer 2

：

=SUMPRODUCT(ABS(A1:A10-B1:B10))