« ◆Excel VBA(<PC資産管理>使用ソフトウェアのバージョンを管理するツール) | トップページ | ◆Excel VBA(複数の条件で文字列を一括置換する関数) »

2010年11月 9日 (火)

◆Excel VBA(文字列内の検索文字の出現数を取得する関数)

例えば"9月12日(金)~9月13日(土)"という文字列内に"日"という文字はいくつ含まれているか
をチェックするマクロです。
Msgbox
'呼び出しテスト
Sub testGetMojiSu()
    MsgBox GetMojiSu("9月12日(金)~9月13日(土)", "日")
End Sub

'################################################################################
'# <機能名>      文字列出現数取得
'# <機能概要>    対象文字内に検索文字の出現数を求める
'# <引数>        pText:対象文字
'#         pMoji:検索文字
'# <返却値>      出現数(Integer)
'################################################################################
Function GetMojiSu(pText, pMoji) As Integer
    If pText = "" Then Exit Function
   
    GetMojiSu = 0
    lStPoint = 1
    Do
        lStPoint = InStr(lStPoint, pText, pMoji)
        If lStPoint > 0 Then
            GetMojiSu = GetMojiSu + 1
            lStPoint = lStPoint + 1
        Else
            Exit Do
        End If
    Loop
   
End Function

« ◆Excel VBA(<PC資産管理>使用ソフトウェアのバージョンを管理するツール) | トップページ | ◆Excel VBA(複数の条件で文字列を一括置換する関数) »

パソコン・インターネット」カテゴリの記事

コメント

コメントを書く

(ウェブ上には掲載しません)

« ◆Excel VBA(<PC資産管理>使用ソフトウェアのバージョンを管理するツール) | トップページ | ◆Excel VBA(複数の条件で文字列を一括置換する関数) »