Microsoft Access Club >


AC97でInStrRev関数と同等の関数を自作


○分類
VBA
○解説
  • AC2000以降で追加された、InStrRev関数は、非常に便利な関数ですが、AC97にはないので
    自作してみました。

    モジュールを新規作成し、下記をカットアンドペーストして下さい。
    --
    Public Function LastStrPosition(Str1 As String, Str2 As String) As Long
    '; Str1中ので一番最後にStr2が見つかった位置を表示する関数
    '; 例:Str1が"19-2-1"でStr2が"-"の場合、LastStrPosition=5
    Dim L As Long, P As Long
    L = Len(Str2)
    P = InStr(Str1, Str2)
    While P <> 0
    LastStrPosition = P
    P = InStr(P + L, Str1, Str2)
    Wend
    End Function
    --

    使い方は、LastStrPosition("19-2-1","-")のように使います。

    (たん)
  • ○私的意見
  • AC2000にある機能を補完した関数という位置付けになると思います。(たん)
  • ○関連リンク
    書き込みはまだありません。

    --この記事は、みんなのAccess備忘録に投稿いただいた内容です--

    Microsoft Access Club