Problema de resaltado en EXCEL

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 ♂

¿El subrayado en rojo debe hacerse en la fórmula
o en la visualización del resultado
Marc?