Kolorowanie podłoŜa z Excela VBA: dlaczego niektóre oczywiste metody nie działają?

Question

Zbudowałem kilka ciekawych wizualizacji, które opierają się na zdolności VBA do ustawiania różnych kolorów dla podciągów w Excelu. W przypadku komórki zawierającej ciąg składnia działa tak, jak ta: Moja aplikacja tworzy ciągi i ustawia wartości kolorów w jednym kroku, dodając nowe łańcuchy do istniejących wartości, a następnie ustawiając kolor nowego łańcucha. To nie zadziałało. Zaczynając od kompletnego napisu, a następnie kolorując wiele pod-ciągów działa.

Dwa proste procedury zilustrować różnicę:

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 

Obie procedury prowadzić w dwóch różnych wyników przedstawionych poniżej:

przypadku dłuższych ciągów z kilku podsegmentów jest jeszcze gorzej. Używam programu Excel 2010.

Czy to moja wina, czy to błąd? Czy istnieje lepszy sposób tworzenia i kolorowania łańcuchów z VBA?

Answer 1

Przypisanie .Value nie magicznie rysunek, jak dołączyć do istniejących danych. Usuwa stare dane i umieszcza nowe dane.

Jeśli postacie miały kolorowanie, kolor pierwszego znaku jest używany do pokolorowania nowego ciągu.

Jeśli chce rzeczywistej dołączanie, tak samo jak w przypadku ręcznego z baru wzór w programie Excel, a następnie dodać stosując .Characters:

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

formatowanie (włączając barwienie) substrigns w szeregu komórek Excel z makro zobacz wideo:

http://youtu.be/O0h6T5Z7HwY