文字列の中から特定の文字列の数を調べるには？ (ID:125245)

名前

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

本文 はやり、対して面白くなかったわ Public Function fGetCStrig(String1 As Atring,String2 As String) As Long Dim strData As String Dim lngLength As Long fGetCStrig=0 strData = String1 lngLength=Len(String2) Do Until (Len(strData)=0) If InStr(strData , String2) > 0 Then fGetCStrig = fGetCStrig + 1 strData = Right(strData , Len(strData ) - (InStr(strData , String2)+lngLength)+1) Else strData = "" End If Loop End Function ...ほとんど変化なし…。 別のPCで動かした後、手打ちなので、間違ってるかも