Red de conocimiento informático - Material del sitio web - Usa VBA para cambiar el color de la celda en EXCEl

Usa VBA para cambiar el color de la celda en EXCEl

El código es el siguiente:

Sub?ts()

Dim?rg?As?Range

Dim?r?As?Long

r?=?Columns("A:C").SpecialCells(xlLastCell).Row

Para?Cada ?rg? En?Rango("A1:C"? &?r)

Si?rg?

rg.Interior.Color?Color?=? 255 ,?0,?0)

Else

rg.Interior.Color?=? fYnjn4nH6sgvPsT6K1TL0qnfK1TL0z5HD0IgF_5y9YIZ0lQzqlpA- bmyt8mh7GuZR8mvqVQL7dugPYq8Q1Rdn1DYrH6zPHfznWRvrHbLn6" ?target="_blank"?class="baidu- resaltado">RGB(146,?208,?80)

¿Fin?