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 

업데이트 :

내 함수 호출이 너무 같은 경우에는 섹션의 그렇지 않은 부분에 있습니다

<

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의 대답 외에도 Select 문을 사용하여 모든 ElseIf 문을 피하십시오. 그것은 더 빨리 달린다.

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