Resaltar parte del texto de una celda

[Antoni]

Hola amado "Populus romanae":

"Vos" dejo una pequeña macro para resaltar parte del texto de una celda.

Antes de que lo pregunteis, deciros que no se puede poner color de relleno.

[SIZE=2][FONT=courier new][COLOR=#000080]Sub ResaltarParteDeUnaCelda()


Range("A1").Select

cadena1 = "Esto es una prueba "

cadena2 = "[/COLOR][B][SIZE=3][COLOR=#ff0000]de poner mas tamaño, resalte y color [/COLOR][/SIZE][/B][COLOR=#000080]"

cadena3 = "de una cadena de texto entre otras dos. "


inicio = Len(cadena1) + 1

longitud = Len(cadena2)


ActiveCell = cadena1 & cadena2 & cadena3

inicio = Len(cadena1) + 1

longitud = Len(cadena2)


With ActiveCell.Characters(Start:=inicio, Length:=longitud).Font

    .Name = "Calibri"

    .FontStyle = "Negrita"

    .Size = 12

    .Color = vbRed

[/COLOR][/FONT][/SIZE][COLOR=#000080][FONT=courier new]End With[/FONT][/COLOR][SIZE=2][FONT=courier new][COLOR=#000080]

End Sub[/COLOR][/FONT][/SIZE][/CODE]

[color=#ff0000][b][size=3]SPQR[/size][/b][/color]

[pegones1]

Igual lo uso para la próxima versión de mi https://www.ayudaexcel.com/foro/ideas-aportes-64/prototipo-lector-libros-excel-28855/ cuando le añada marcadores, si algún día lo continuo.

Este plebeyo te da las gracias por tus aportes, magnánimo Macro Antonio, ¡ten misericordia del populacho cuando luchemos en la arena!

[Armando Montes]

Otra opcion:

Sub ColorBold()

Dim n As Long

With Worksheets("Hoja1").Cells(1, 1)

    n = InStr(1, .Value, "sisi", 1)

    Do While n

        .Characters(Start:=n, Length:=Len("sisi")).Font.ColorIndex = 3

        .Characters(Start:=n, Length:=Len("sisi")).Font.Bold = True

        n = InStr(n + 1, .Value, "sisi", 1)

    Loop

End With

End Sub

[/CODE]