VB se da cuenta de que cuando una celda EXCEL contiene un determinado carácter, ¿el carácter cambia de color, no la celda?
Marque el carácter d en A1:A10 en rojo: Sub? Macro 1()
Dim?findstr$,?i&
findstr?=? d"
For?i?=?1?To?10
For?j?=?1?To?Len(Cells(i,?1)) p >
Si?Mid(Celdas(i,?1),?j,?1)?=?findstr?Entonces
Celdas(i,?1).Caracteres(Inicio:=j, ?Longitud:=1).Font.Color?=?RGB(255,?0,?0)
Fin?Si
Siguiente
Siguiente
¿Fin?Sub