カウント選択中のすべてのコンマまたは選択したテキスト

Question

私はすべてのカンマをカウントするには「」私はloop

私の質問は、私は,カウントはどうすればよいです実行するIntegerとしてカウントを使用します。画像を以下を示して：

私はsplitとuboundを使用する方法を知ってはいけません。次のコードで何が問題になっていますか？

Sub CountComma() 
Dim x As String, count As Integer, myRange As Range 

Set myRange = ActiveDocument.Range(Selection.Range.Start, Selection.Range.End) 

x = Split(myRange, ",") 
    count = UBound(x) 

    Debug.Print count 

End Sub 

Answer 1

単純な分割が機能します。あるよう

x = Split("XXX,XXX,XXX,XXX,XX,XX", ",") 
    Count = UBound(x) 
    Debug.Print Count 

B /配列はゼロから始まり、cを、あなたはUbound数に取ることができます。

編集： rangeを使用する。

x = Split(Range("A1").Value, ",") 

コードを分解します。

Split("A string value","Delimiter to split the string by") 

そして、あなたはより単一のコード行をしたい場合は、KyloRenとシンディマイスターへ

x = UBound(Split(myRange, ",")) 

Answer 2

おかげで、今私はselection.textで,をカウントするsplitとUboundを使用することができます。

with x = Split(myRange, ",") 

あなたがxをしたいと思い、その後の文であるため、

Sub Count_Words() 
     Dim WrdArray() As String, myRange As String 

     myRange = ActiveDocument.Range(Selection.Range.Start, Selection.Range.End) 

     WrdArray() = Split(myRange, ", ") 

     MsgBox ("Total , in the string : " & UBound(WrdArray())) 

    End Sub 

Answer 3

あなたのコードがstringタイプのようx変数の初期宣言文で間違っている：

は、次のコードを働いていますSplit()関数の戻り値を配列（here参照）で保持すると、Variantタイプ

ので、あなたは

Dim x As Variant 

を使用する必要があります。しかし

Option Explicit 

Sub CountComma() 
    Dim count As Integer 

    count = UBound(Split(Selection, ",")) 
    Debug.Print count 

End Sub 

を次のようにするので、あなたのコードを簡素化することができます：あなたが保存するためにあらゆるRange型変数を必要としない

• Selection object into、Selection選択範囲は既にあります（here参照）

• あなたはxVariant変数を必要としないどちらも、上で見たように、Split()機能と直接（その最初の引数として配列を期待する）UBound()機能を供給し、ちょうど配列を返しません！

最後に、私はあなたがここ数日かなりの数の質問をしてきた範囲で

Sub CountComma() 
    Dim countAs Integer 
    count = Len(Selection) - Len(Replace(Selection, ",", "")) 

    Debug.Print count 
End Sub