07/10/29 10:26:46
>>235
VBA使うとか､Excel2007(条件付き書式数無制限)使うとか。
VBAだと､その数字の表を選択した状態で
Const n As Long = 3
Dim r As Range
For Each r In Selection
If IsNumeric(r.Value) Then r.Interior.ColorIndex = Choose(r.Value Mod n + 1, 26, 27, 28)
Next r
とかね。最初の ｢= 3｣ が除数､途中にある ｢26, 27, 28｣ がそれぞれ ｢除余0の場合の色番号, 除余1の場合の色番号, 除余2の場合の色番号｣
あとは除数に合わせて ｢Choose(r.Value Mod n + 1, 26, 27, 28, 4, 22, 24)｣ って感じで増やしていけばいい。
色番号の対応表はググればいくらでもあるが
Dim i As Long
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Next i
で､｢行番号=色番号｣の状態でシートに出力できる。
>>236
表示形式で小数表示桁を指定した場合､四捨五入で表示されるわけだが
-0.04は1/100の位を四捨五入して表示は0.0だけど､値は負数なので文字色は負数のものになる。
例え計算結果が負数でも､表示が0.0になるものは黒にしたいなら､ROUND関数で表示形式の桁数に合わせて丸めるか､表示形式で
[赤][<=-0.05]0.0;0.0
のように｢0以下は赤｣ではなく｢四捨五入して-0.1以下になるものは赤｣というようなユーザー定義を指定してやれば良い
ちなみにおいらも低学歴(中卒)。