808479_es-ES

liliconcom

Colorear celdas mediante formato condicional

Necesito un script que mire todas las columnas y coloree las celdas con el valor "< LOD". Mi script no arroja el resultado deseado. ¿Algún consejo?

dt = Current Data Table();

// Get all of the column names in the data table
ColNames = dt << get column names( string );
NRows = N Rows( dt );

// Loop through each column and row to find "< LOD" and color the previous cell
For( i = 1, i <= N Items( ColNames ), i++,
	column = Column( dt, ColNames[i] );
	For( j = 2, j <= NRows, j++, // Start at row 2 to avoid coloring out-of-bound cells
		If( Row(j) == "< LOD",
			column << Color Cells( j - 1, "Red" );
		)
	);
);

Automatización y scriptingRe: Colorear celdas mediante formato condicional

¡Otras soluciones más elegantes son más que bienvenidas!

Re: Colorear celdas mediante formato condicional

Esto busca el valor "F", pero probablemente da algunas ideas de lo que podría cambiar (obtener todas las filas de antemano para cada columna, ordenar los argumentos de las celdas de color, ...)

Names Default To Here(1); 

dt = Open("$SAMPLE_DATA/Big Class.jmp");

colnames = dt << get column names(character, string);

For Each({colname}, colnames,
	r = Loc(dt[0, colname], "F");
	If(N Items(r) > 0,
		Column(dt, colname) << Color Cells("Red", r);
	);
);

Write();

Editar: Se eliminó el Show(r); innecesario del bucle