2016-07-07 28 views
0

私の質問を読んでくれてありがとう、私は自分の機能と型の不一致を続けています。私はInStrRevのMSサイトを読んで、整数を返すと述べています。私の関数は整数を返すように設定されているので、私は何が間違っていたのか分かりません。Type InStrRevとの不一致

Function gSearch(str As String, find As String, Optional dir As String) As Integer 
Select Case dir 
    Case "L", "l", "left", "Left" 
     gSearch = InStrRev(str, find) 
    Case "R", "r", "right", "Right" 
     gSearch = InStrRev(Len(str), str, find) 
    Case Else 
     gSearch = InStrRev(str, find) 
End Select 

あなたは第二の場合には、あなたのエラーを取得している

+0

正確なエラーは「ランタイムエラー '13':タイプが一致しません –

答えて

2

エンド機能:

Case "R", "r", "right", "Right" 
    gSearch = InStrRev(Len(str), str, find) 

InStrRevのあなたの最初のパラメータはレン(STR)です。 Len(文字列)の結果は数値です。 InStrRev最初のパラメータは文字列である必要があります。

+0

まあ、恥ずかしいですよ、デュ...ありがとう –

+0

@RickFlyFishそれは私たち全員に起こります –