指定文字の数え方 (ID:84058)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 '*----------------------------------------------------------------------------- '* CharCount : 指定の文字列を数える '* '* arguments : 対象文字列 '* : 検索する文字列 '* '* return : 検索数 '*----------------------------------------------------------------------------- Private Function CharCount(ByVal sTarget As String, ByVal sSearch As String) As Long CharCount = (Len(sTarget) - Len(Replace(sTarget, sSearch, ""))) / Len(sSearch) End Function Private Sub Command1_Click() Debug.Print CharCount(TEXT, ",") End Sub こんな感じでいかがでしょうか？