Color de subcadena de Excel VBA: ¿por qué algunos métodos obvios no funcionan?

Question

He estado construyendo algunas visualizaciones interesantes que dependen de la capacidad del código VBA para establecer diferentes colores para subcadenas en Excel. Para una celda que contiene una cadena, la sintaxis funciona de la siguiente manera: rCell.Characters(start,end).Font.Color=SomeColour

Mi aplicación crea las cadenas y establece los valores de color en un paso al agregar nuevas cadenas a los valores existentes y luego establecer el color de la nueva cadena. Esto no funcionó. Comenzando con una cadena completa y luego coloreando múltiples subcadenas funciona.

Dos rutinas simples ilustran la diferencia:

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 

Las dos rutinas dan lugar a los dos resultados diferentes que se muestran a continuación:

Para las cadenas más largas con más subsegmentos que es aún peor. Estoy usando Excel 2010.

¿Esto es culpa mía o es un error? ¿Hay una mejor manera de crear y colorear cadenas desde VBA?

Answer 1

Al asignar .Value, mágicamente no se explica cómo anexar a los datos existentes. Borra los datos antiguos y pone los nuevos datos.

Si los caracteres tienen color, el color del primer carácter se usa para colorear la nueva cuerda.

Si desea que la Anexión real, igual que si se ha utilizado manualmente la barra de fórmulas en Excel, a continuación, añadir usando .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

de formato (incluyendo colorante) substrigns en una gama de celdas de Excel con una macro , ver el video:

http://youtu.be/O0h6T5Z7HwY