Problema de resaltado en EXCEL

Question

Hola,

Entonces te explico mi problema: estoy buscando resaltar una parte de una celda que contiene una función, para ser más claro, tomo un ejemplo:

=concatenar("Texto 1 ";si(B1=1;"VERDADERO";"FALSO");" Texto 2") --> En este ejemplo, me gustaría resaltar en rojo únicamente "VERDADERO" o "FALSO" y no el resto de los caracteres (Texto 1 y 2)

Gracias de antemano por sus respuestas

Configuración: Windows XP / Internet Explorer 7.0

MarcFsB · Answer

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

Mike-31 · Answer

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.

Mike-31 · Answer

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.

eriiic · Answer

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

Mike-31 · Answer

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.

Raymond PENTIER · Answer

¡Entonces, Plato, bien buscado! -- ¡Está bien, la jubilación! Sobre todo en las Antillas... :-) &#9787; Raymond &#9794;

Problema de resaltado en EXCEL

6 respuestas

Mantener las celdas iguales al ejecutar una macro

?? en lugar de smiley

¿qué puedo hacer realmente?

El dispositivo no guarda en memoria horas, fechas

Opiniones sobre zofoot: ¿es fiable este sitio?

Problema de texturas en enshrouded

Pantalla rota huawei p20 lite

[tabla de contenido de word] eliminar un número de página

No puedo transferir mis videos a mi ordenador

Widget de google siempre cargando