掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
選択文字列の位置 (ID:74180)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
上のじゃcompareを指定したいみがないですね^^; と言うわけで修正です。 Public Function UInstr(start As Long, Base As String, Search As String, Optional ByVal compare As VbCompareMethod = vbBinaryCompare) As Long On Error GoTo 1: If Len(Base) = 0 Or Len(Search) = 0 Or start < 0 Or Len(Search) >= Len(Base) Or Base = vbNullString Or Search = vbNullString Then GoTo 1 Dim I As Integer For I = start To 1 Step -1 If StrComp(Mid(Base, I, Len(Search)), Search, compare) = 0 Then UInstr = I: Exit Function Next 1 UInstr = 0 End Function
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.