Excel vbaコンパイルエラー - 引数はオプションではありません。

Question

私はこれを理解しようとしており、できません。

「コンパイルエラー - 引数はオプションではありません」というエラーが発生します。私は引数を提供しており、オプションとして設定されています！

文字列と配列を関数に渡し、渡された文字列内の配列文字列を数えようとしています。

コード行で実行を停止：行にValを強調： "引数オプションのないコンパイルエラー" メッセージ：

For Each Val In toCountARR 

全コード：

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim nameR As Range 
    Dim colR As Range 

    Dim TKRcnt As Integer 
    Dim TKRarr() As Variant 
    TKRarr = Array("TKR", "THR", "Bipolar") 

    Dim ORIFcnt As Integer 
    Dim ORIFarr() As Variant 
    TKRarr = Array("ORIF", "Ilizarov", "PFN") 


    Set nameR = Range("P2:P9") 
    Set colR = Range("B2:B50,G2:G50,L2:L50") 

    For Each namecell In nameR 
     For Each entrycell In colR 
      If entrycell.text = namecell.text Then 
       TKRcnt = countTextInText(entrycell.Offset(0, 2).text, TKRarr) 
       ORIFcnt = countTextInText(entrycell.Offset(0, 2).text, TKRarr) 
      End If 
     Next entrycell 

     MsgBox (namecell.text & " TKR count: " & TKRcnt & " ORIF count: " & ORIFcnt) 

    Next namecell 
End Sub 

Public Function countTextInText(Optional text As String, Optional toCountARR As Variant) As Integer 
    Dim cnt As Integer 
    Dim inStrLoc As Integer 

    For Each Val In toCountARR 
     inStrLoc = InStr(1, text, Val) 
     While inStrLoc <> 0 
      inStrLoc = InStr(inStrLoc, text, Val) 
      cnt = cnt + 1 
     Wend 
    Next Val 

    Set countTextInText = cnt 
End Function 

と

Public Function countTextInText(Optional text As String, Optional toCountARR As Variant) As Integer 

Answer 1

Valは、単一のVBA関数である必須、引数 - したがって、引数を指定しないと、コンパイラは "引数はオプションではありません"というメッセージを生成します。 （MSDN documentation of Val）

変数名としてVBA関数名を使用することが悪い考えですので、私はあなたが変数名としてValを使用していないお勧めします - VBAがすでに使用されていないことをmyValまたは何か他のものを使用します。

あなた本当にはValを使用したい（とあなたがすべてでVal機能にアクセスするために必要とされないことを確信している）場合は、単にそのように宣言する場合は、変数名として使用することができ、例えば

Dim Val As Variant 

---

ます。またIntegerであると宣言された

Set countTextInText = cnt 

countTextInTextと言ってあなたのラインに問題があるだろうし、基準となる変数を設定するときSetにのみ使用してくださいオブジェクトに。その行は、

countTextInText = cnt