topic Re: Color cells in Discussions

Color cells

LargeCanary830 — Wed, 01 Nov 2023 20:33:08 GMT

Hi,

How I can gray-out empty or with dots cells?

I have version 16.1.

Thanks

Re: Color cells

mmarchandTSI — Thu, 02 Nov 2023 11:01:01 GMT

If you want it done to each column, you could use this script.

For Each( {col}, dt << Get Column Names( "String" ),
	Eval(
		Eval Expr(
			dt << Select Where( Is Missing( As Column( Expr( col ) ) ) );
			Expr( Column( col ) ) << Color Cells( "gray" );
			dt << Clear Select;
		)
	)
);

*edit

The Expr() and all that are completely unnecessary. @jthi pointed that out with his example.

For Each( {col}, dt << Get Column Names( "String" ),
	dt << Select Where( Is Missing( As Column( col ) ) );
	Column( col ) << Color Cells( "gray" );
	dt << Clear Select;
);

Re: Color cells

jthi — Thu, 02 Nov 2023 06:09:04 GMT

If by graying-out you mean changing the cell color, easiest options are most likely script based. One option is using << Get Rows Where to get the rows which you want to color and then using << Color Cells to set the color to those rows

Names Default To Here(1);

dt = Current Data Table();

For Each({colname}, dt << Get Column Names("String"),
	rows_to_color = dt << Get Rows Where(Is Missing(Column(dt, colname)[]));
	Column(dt, colname) << Color Cells("Gray", rows_to_color);
	dt << Clear Select;
);

Re: Color cells

jthi — Thu, 02 Nov 2023 11:06:09 GMT

@mmarchandTSI you might also want to add check that some rows are selected (<< Color Cells will otherwise color all the cells).

Names Default To Here(1);

dt = New Table("Untitled",
	Add Rows(3),
	Compress File When Saved(1),
	New Column("Column 1", Numeric, "Continuous", Format("Best", 12), Set Values([., ., 1])),
	New Column("Column 2", Numeric, "Continuous", Format("Best", 12), Set Values([., ., .])),
	New Column("Column 3", Numeric, "Continuous", Format("Best", 12), Set Values([2, 3, 4]))
);

For Each({col}, dt << Get Column Names("String"),
	dt << Select Where(Is Missing(As Column(col)));
	Column(col) << Color Cells("gray");
	dt << Clear Select;
);
/*
For Each({col}, dt << Get Column Names("String"),
	dt << Select Where(Is Missing(As Column(col)));
	If(N Items(dt << Get Selected Rows) > 0,
		Column(col) << Color Cells("gray");
	);
	dt << Clear Select;
);
*/

Re: Color cells

mmarchandTSI — Thu, 02 Nov 2023 11:22:48 GMT

Should be okay, because <<Select Where only adds to the current selection when the "extend" option is specified. Default is to select only rows that satisfy the conditions. Could amend the <<Select Where to be safe.

dt << Select Where( Is Missing( As Column( col ) ), current selection( "clear" ) )

Re: Color cells

LargeCanary830 — Thu, 02 Nov 2023 12:20:03 GMT

Hi Jarmo,

Where can I add this option? sorry I'm new using JMP software.

Re: Color cells

jthi — Thu, 02 Nov 2023 12:20:53 GMT

What I meant is that if there are no rows selected at all, all the cells in that column will be colored.

In this case all the cells in Age will get colored because there are no rows selected

Names Default To Here(1);

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

:Age << Color Cells("Red");
wait(1);

dt << Select Rows([2,4,6,20]);
:Name << Color Cells("Blue");
dt << Clear Select;

Re: Color cells

mmarchandTSI — Thu, 02 Nov 2023 12:24:23 GMT

Yes, good point.

Re: Color cells

jthi — Thu, 02 Nov 2023 12:33:06 GMT

Depending on how this will be used, there are few options. Simplest option and what will get you going is to open new script file from File menu

Then copy paste the script to that window which will open

Check that you have correct table from the top "toolbar" (it should be if it was last active when you did open the new script file).

Then Press Run Script from the toolbar

If this must be done repeatedly, you could make that script into a toolbar item, add-in, table script, script file... depending on the use

Re: Color cells

LargeCanary830 — Thu, 02 Nov 2023 13:18:07 GMT

Perfect! Thank you for your help. I really appreciate it.