where expertise comes together - since 1996 -

The Largest Open Access Portal of Nondestructive Testing (NDT)

Conference Proceedings, Articles, News, Exhibition, Forum, Network and more

where expertise comes together
- since 1996 -
300 views
Technical Discussions
Jairo Humberto Guzman
Jairo Humberto Guzman
05:55 Jul-27-1998
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



 
 Reply 
 

Product Spotlight

TESTD-PT SYSTEM

Pulse thermography is a non-contact test method that is ideal for the characterization of thin fil
...
ms and coatings or the detection of defects. With a remarquable short test time and a high detection sensitivity, the Telops TESTD-PT is the perfect tool for non- destructive testing. With such high frame rates, it is even possible to investigate highly conductive or diffusive materials.
>

TraiNDE UT

TraiNDE UT is a virtual tool associated with a signal database which simulates real inspection con
...
ditions for numerous applications (Type A/V1 block, DAC block, welds and plates).
>

NEW - TD Focus-ScanRX

The NEW Next Generation Advanced UT platform, TD Focus ScanRX - Also available as a card stack solut
...
ion. Key Improvements 1. Data acquisition is significantly faster than current design 2. Better aesthetic – closely aligns with HandyScan RX 3. Improved IP rating (Target IP66) 4. Ruggedized housing 5. Connectors are protected from impact and ingress 6. Integrated stand and separate retractable handle easy to keep clean) 7. Touchscreen with ruggedized display glass 8. 3-Axis encoder input
>

IRIS 9000Plus - Introducing the next generation of heat exchanger inspection.

Representing the seventh generation of the IRIS system, the IRIS 9000 Plus has nearly 200 years of c
...
ombined field inspection experience incorporated in its design. This experience combined with a strong commitment to quality and a history of innovation has made Iris Inspection Services® the undisputed leader in IRIS technology.
>

Share...
We use technical and analytics cookies to ensure that we will give you the best experience of our website - More Info
Accept
top
this is debug window