【ﾕｰｻﾞ定義関数】指定した文字はいくつ入っている？

◆構文

　uNumInStr(文字列, 対象記号)

◆解説

ある文字列の中から 対象記号 がいくつ入っているかを調べる。

◆ソースコード

Function uNumInStr(文字列 As String, 対象記号 As String)
    Dim i As Long
    Dim cnt As Long
    cnt = 0
    For i = 1 To Len(文字列)
        If Mid(文字列, i, 1) = 対象記号 Then
            cnt = cnt + 1
        End If
    Next i
    uNumInStr = cnt
End Function

◆補足
例えば、
　文字列    = "かいじゃりすいぎょの　すいぎょうまつ"
　対象記号 = "ぎ"
とすると
　uNumInStr("かいじゃりすいぎょの　すいぎょうまつ", "ぎ")
は
　2　（文字）
を返します。
VBA関数 Split と組合せると単語分解するときに効果大です。

◆登録方法