Problema de resaltado en EXCEL

Hola,

el resultado proveniente de una fórmula no puede ser formateado parcialmente ni manualmente ni por fórmula, a mi conocimiento, únicamente en VBA
A+
Mike-31

Un periodo de fracaso es un momento ideal para sembrar las semillas del conocimiento.

Re,

Clic derecho en la pestaña de la hoja correspondiente/Visualizar el código
pegar este código en la hoja en blanco, tan pronto como se ingrese el valor 1 o 2 en la columna B, en la misma fila en la columna D se inscribirá Texto 1 VERDADERO Texto 2
o Texto 1 FALSO Texto 2

Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As String
Dim place As Byte
Dim i As Byte
If Target.Column <> 2 Then Exit Sub
If Target = 1 Then
t = "Texto 1 " & "VERDADERO" & " Texto 2"
place = InStr(3, t, "VERDADERO")
With Target.Offset(0, 2)
.Value = t
For i = place To place + Len("VERDADERO")
.Characters(i, 1).Font.Underline = xlUnderlineStyleSingle
Next i
End With
Else
t = "Texto 1 " & "FALSO" & " Texto 2"
place = InStr(3, t, "FALSO")
With Target.Offset(0, 2)
.Value = t
For i = place To place + Len("FALSO")
.Characters(i, 1).Font.Underline = xlUnderlineStyleSingle
Next i
End With
End If
End Sub

Estoy buscando un resaltado en color
A+
Mike-31

Un período de fracaso es un momento ideal para sembrar las semillas del conocimiento.

Hola,

¿en qué versión de Excel?
En 2003 puedes cambiar el color de la fuente pero no el fondo de una parte de la cadena.
Además, esta cadena debe ser ingresada y no ser el resultado de una fórmula.

eric

Re,

Aquí está el código con VERDADERO o FALSO subrayado en rojo, aún es posible variar el color y añadir negrita

Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As String
Dim place As Byte
Dim i As Byte
If Target.Column <> 2 Then Exit Sub
If Target = 1 Then
t = "Texto 1 " & "VERDADERO" & " Texto 2"
place = InStr(3, t, "VERDADERO")
With Target.Offset(0, 2)
.Value = t
For i = place To place + Len("VERDADERO")
.Characters(i, 1).Font.ColorIndex = 3
.Characters(i, 1).Font.Underline = xlUnderlineStyleSingle
Next i
End With
Else
t = "Texto 1 " & "FALSO" & " Texto 2"
place = InStr(3, t, "FALSO")
With Target.Offset(0, 2)
.Value = t
For i = place To place + Len("FALSO")
.Characters(i, 1).Font.ColorIndex = 3
.Characters(i, 1).Font.Underline = xlUnderlineStyleSingle
Next i
End With
End If
End Sub

A+
Mike-31

Un período de fracaso es un momento ideal para sembrar las semillas del conocimiento.

¡Entonces, Plato, bien buscado!
--
¡Está bien, la jubilación! Sobre todo en las Antillas... :-)
☻ Raymond ♂