Intenta entender el código correctamente previamente a aplicarlo a tu trabajo si ttienes algo que aportar puedes comentarlo.
Ejemplo 1: color de fondo de celdas excel vba
Range("A1:C2").Cells.Interior.Color = vbRed
Ejemplo 2: texto de color excel vba en la celda
' Occurences of pWord inside pRange's text become bold and red. ' Case insensitive.Sub WordToBold(ByRef pRange As Range,ByVal pWord AsString,_OptionalByVal pPos AsInteger=1)Dim pos AsInteger
pos = InStr(pPos, pRange.Value, pWord, vbTextCompare)If pos >0ThenWith pRange.Characters(pos, Len(pWord)).Font.Bold =True.Font.Color = vbRed
EndWith
WordToBold pRange, pWord, pos +1EndIfEndSub'--------------------------------------------------------------------------------Sub TestIt()
Range("A1")="Run, Forrest run"
WordToBold Range("A1"),"run"EndSub
valoraciones y comentarios
Si estás contento con lo expuesto, tienes el poder dejar una sección acerca de qué le añadirías a este ensayo.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)