文字操作 指定文字数を数える
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
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 |