変更を追跡中にVBAでコンパイルエラーが発生する

Question

コンパイルエラー "byRef argument type mismatch。"が表示されるこれを促しているか、それをどうやって消し去ることができるのかを確かめてください。私は他のサブfuctionsを確認し、vOldArrはそれらのすべての範囲です。エラーがByRefを渡された引数が手続きに予想される正確なデータ型を持っている必要があります

Dim vOldVal 
    Dim vOldArr 
Private Sub Worksheet_SelectionChange(ByVal target As Range) 
    vOldVal = target.Value 
    Set vOldArr = target 
End Sub 

Private Sub Worksheet_Change(ByVal target As Range) 

    Call Get_Dirction(vOldVal, target, vOldArr) 

End Sub 

Sub Get_Dirction(vOldVal As Variant, target As Variant, vOldArr As Range) 
    If target.Count = 1 Then 
     Call Check_Change_Single(vOldVal, target) 
     Exit Sub 
    Else 
     Call Check_Change_Mult(vOldArr, target) 
    End If 
End Sub 

Answer 1

Worksheet_Changeサブに入っています。

たとえば、Integerが予想されるときにLong変数を渡そうとすると、このエラーが発生します。

例

Sub Sample() 
    Dim SampleValue As Long 

    SampleValue = 1 

    SomeProcedure SampleValue 
End Sub 


Sub SomeProcedure(l As Integer) 
    ' 
    '~~> Some Code 
    ' 
End Sub 

あなたがコードを実行すると、あなたが

Sub Get_Dirction(vOldVal As Variant, target As Variant, vOldArr As Range) 

を持っているあなたはあなたのケースでは

を取得しているエラーが表示されます。はの2つの変種と1つの範囲を期待しています。

vOldArrはRangeと期待されていますが、Variantとなり、エラーが発生します。

ソリューション