VBA ByRef引数型不一致

Question

最初は私のメインコードセクションでは、醜いif文がありました。私はこれを呼び出す関数にすることにしました。これにより、エラー "コンパイルエラー：ByRef引数型不一致"が発生しました。私の前提は、関数を適切に参照する必要があるということですが、私はドキュメントを読んできましたが、その理由を見ることはできません。 Dim ShiftValue As String
ShiftValue = LCase(Sheets("Raw_Rota").Cells(Counter, "C").Value)

機能の内容と宣言：：

Function ShiftCompare(ByRef ShiftValue As String) 

If StrComp(ShiftValue, "am", vbTextCompare) = 0 Then 
     Call IncAMs(AMs) 'this function increments the variable by 1. 
     Call Inc(Counter) 

    ElseIf StrComp(ShiftValue, "pm", vbTextCompare) = 0 Then 
     Call IncPMs(PMs) 
     Call Inc(Counter) 

    ElseIf StrComp(ShiftValue, "days", vbTextCompare) = 0 Then 
     Call IncDays(Days) 
     Call Inc(Counter) 

    ElseIf StrComp(ShiftValue, "leave", vbTextCompare) = 0 Then 
     Call IncLeave(Leave) 
     Call Inc(Counter) 

    Else 'If the string doesn't compare to the above values tally it as unknown 
     Call IncUnknown(Unknown) 
     Call Inc(Counter) 
    End If 
End Function 

更新：

私の関数呼び出しが他にそうようなIF部の一部である：

ShiftValue変数を宣言<

If X 
"'Do stuff..." 

Else 

Call ShiftCompare(ShiftValue) 

EndIf 

エラーは、関数行に上昇する：

Function ShiftCompare(ByVal ShiftValue As String)

参照されるどのようなセルの値が空または文字列のいずれかです。

Answer 1

関数を呼び出すときのパラメータの値は文字列ではありません。 ShiftValueの値を確認して、もう一度お試しください。あなたはそれが文字列であることを確認したい場合は、このCall ShiftCompare("MyStringValue")

---

ようにそれを渡す機能のアイデアは、値を返すことは良いということです。 あなたは返されません。 FunctionをSubに変更してください。

Answer 2

上記のVityataの回答に加えて、すべてのそれらのElseIfステートメントを避けるためにSelectステートメントを検討します。それはより速く走る。

Option Compare Text 
Public Sub ShiftCompare(ByVal ShiftValue As String) 
    Select Case True 
     Case StrComp(ShiftValue, "am") = 0: 
      Call IncAMs(AMs) 'this function increments the variable by 1. 
      Call Inc(Counter) 

     Case StrComp(ShiftValue, "pm") = 0: 
      Call IncPMs(PMs) 
      Call Inc(Counter) 

     Case StrComp(ShiftValue, "days") = 0: 
      Call IncDays(Days) 
      Call Inc(Counter) 

     Case StrComp(ShiftValue, "leave") = 0: 
      Call IncLeave(Leave) 
      Call Inc(Counter) 

     Case Else: 'If the string doesn't compare to the above values tally it as unknown 
      Call IncUnknown(Unknown) 
      Call Inc(Counter) 
    End Select 
End Sub