Excel VBA で オブジェクト内の特定の文字列の数を数える

こんにちは。お願いします。
たとえば、セルA1のコメントに"東京都　目黒区　中目黒"というテキストが入っているとします。
"　"の数"2"を取得することは可能でしょうか？
ご回答よろしくお願いいたします。

No.3 回答者： kmetu 回答日時： 2009/09/07 19:22

セルの値ではなくてコメントですよね

UBound(Split(Range("A1").Comment.Text, "　"))

でいかがでしょう

この回答へのお礼

ありがとうございます。
もしセルの値だとしたら、何か関数みたいなのがあるのでしょうか？

お礼日時：2009/09/07 19:52

No.2 ベストアンサー 回答者： xls88 回答日時： 2009/09/07 19:00

サンプルです。

Split関数はExcel2000以降です。
Sub test1()
With ActiveCell.Comment.Shape.TextFrame
MsgBox UBound(Split(.Characters.Text, "　"))
End With
End Sub

あるいは
Sub test2()
With ActiveCell.Comment.Shape.TextFrame.Characters
MsgBox Len(.Text) - Len(WorksheetFunction.Substitute(.Text, "　", ""))
End With
End Sub

この回答へのお礼

ありがとうございます！

お礼日時：2009/09/07 19:53

No.1 回答者： cistronezk 回答日時： 2009/09/07 18:57

＞たとえば、セルA1のコメントに"東京都　目黒区　中目黒"というテキストが入っているとします。

＞"　"の数"2"を取得することは可能でしょうか？

スペースの個数を数えるのでしょうか？それともスペースのある箇所を数えるのでしょうか？

この回答へのお礼

ありがとうございます。
個数なのですが、すでにご回答いただき、解決いたしました。

お礼日時：2009/09/07 20:10