Excel VBAのサブストリングの色付け：なぜ明らかな方法が機能しないのですか？

Question

私はExcelで部分文字列に異なる色を設定するVBAコードの機能に依存する興味深い視覚化を構築しています。文字列を含むセルの場合、構文は次のようになります。rCell.Characters(start,end).Font.Color=SomeColour

私のアプリケーションは、既存の値に新しい文字列を追加し、新しい文字列の色を設定することによって文字列を作成し、色の値を設定します。これはうまくいかなかった。完全な文字列で始まり、複数のサブストリングを着色すると、はになります。

2つの単純なルーチンが違いを示しています

Sub TestColourString1() 
    'designed to show that substring colour can be done to preexisting string 
    Dim rngTestString As Range 

    Set rngTestString = Range("colour_string") 

    rngTestString.Value = "red green blue" 

    rngTestString.Characters(1, 4).Font.Color = RGB(255, 0, 0) 
    rngTestString.Characters(5, 10).Font.Color = RGB(0, 255, 0) 
    rngTestString.Characters(11, 14).Font.Color = RGB(0, 0, 255) 

    End Sub 




    Sub TestColourString2() 
    'designed to show that setting colour while building string doesn't work 
    Dim rngTestString As Range 

    Set rngTestString = Range("colour_string") 

    rngTestString.Value = "red " 
    rngTestString.Characters(1, 4).Font.Color = RGB(255, 0, 0) 

    rngTestString.Value = rngTestString.Value & "green " 
    rngTestString.Characters(5, 10).Font.Color = RGB(0, 255, 0) 

    rngTestString.Value = rngTestString.Value & "blue" 
    rngTestString.Characters(11, 14).Font.Color = RGB(0, 0, 255) 


    End Sub 

2つのルーチンは、以下に示す二つの異なる結果になる：より多くのサブセグメントと長い文字列の場合

それはさらに悪くなります。私はExcel 2010を使用しています。

これは私のせいですかバグですか？ VBAから文字列を作成して色分けするには良い方法はありますか？

Answer 1

.Valueを割り当てると、既存のデータに追加する方法が魔法のようには分かりません。古いデータが消去され、新しいデータが格納されます。

文字に色が付いていた場合、最初の文字の色が新しい文字列の色に使用されます。

あなたは、実際の添付が必要な場合は、手動でExcelの数式バーを使用する場合と同じ、そして.Charactersを使用して追加します。マクロでExcelのセルの範囲内（着色含む）

Dim rngTestString As Range 

Set rngTestString = Range("colour_string") 

Range("colour_string").Characters(Len(Range("colour_string").Value) + 1).Text = "red " 
rngTestString.Characters(1, 4).Font.Color = RGB(255, 0, 0) 

Range("colour_string").Characters(Len(Range("colour_string").Value) + 1).Text = "green " 
rngTestString.Characters(5, 10).Font.Color = RGB(0, 255, 0) 

Range("colour_string").Characters(Len(Range("colour_string").Value) + 1).Text = "blue" 
rngTestString.Characters(11, 14).Font.Color = RGB(0, 0, 255) 

Answer 2

フォーマットsubstrigns 、ビデオを参照してください。

http://youtu.be/O0h6T5Z7HwY