掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
「アプリからひらく」には？ (ID：75012)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
まだありました^^;まったくどじですね^^; Public Function Countstr(Base As String, Search As String, Optional start As Long = 0, Optional ByVal compare As VbCompareMethod = vbBinaryCompare) As Long On Error GoTo 1: If Len(Base) = 0 Or Len(Search) = 0 Or start < -1 Or Len(Search) > Len(Base) Or Base = vbNullString Or Search = vbNullString Then GoTo 1 Dim i As Byte, n As Integer n = start Do n = InStr(n + 1, Base, Search, compare) If n = 0 Then Exit Do Else: i = i + 1 Loop 1 Countstr = i End Function もうないよね^^;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.