where expertise comes together - since 1996

Web's Largest Portal of Nondestructive Testing (NDT)
Open Access Database (Conference Proceedings, Articles, News), Exhibition, Forum, Network

All Forum Boards
Technical Discussions >
Re: Coloring cells for MS excel thickness survey report
Career Discussions
Job Offers
Job Seeks
Classified Ads
About NDT.net
Articles & News

207 views
05:55 Jul-27-1998
Jairo Humberto Guzman
Re: Coloring cells for MS excel thickness survey report

I send a macro example to color cells in excel
sorry These example is in spannish, but you can change the colors and value range
good luck


' Macro1 Macro
' Macro grabada 27/07/98 por Red Nacional de Datos
'
'
Proced Macro1()
Para Cada d En Rango(Rango("A1"), Rango("d1").Desviar.Fin(xlAbajo))
Número = d.Valor ' Inicializa variable.
Seleccionar Caso Número ' Evalúa Número.
Caso 1 Al 2
d.Fuente.ÍndiceColor = 5
Caso 2 Al 4
d.Fuente.ÍndiceColor = 1
Caso 5 Al 6
d.Fuente.ÍndiceColor = 2
Caso 7 Al 8
d.Fuente.ÍndiceColor = 3
Caso 9 Al 10
d.Fuente.ÍndiceColor = 4
Caso SiOtro
d.Fuente.ÍndiceColor = 6
Fin Seleccionar
Siguiente
Fin Proced



 


© NDT.net - The Web's Largest Portal of Nondestructive Testing (NDT) ISSN 1435-4934

Open Access Database, |Conference Proceedings| |Articles| |News| |Exhibition| |Forum| |Professional Network|