文字操作 指定文字数を数える

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 指定文字数を数える]

Public Function pfnCntMoji(taishou As String, kensaku As String) As Long
'*******************************************************************************
'指定文字数を数える
'*******************************************************************************
Dim argArray As Variant, cnt As Long
Dim arg As Variant
argArray = Split(taishou, kensaku)
cnt = 0
For Each arg In argArray
  cnt = cnt + 1
Next
pfnCntMoji = cnt - 1
End Function





Production Japan Import Application. Since 1998