VBA【color】
Posted: 2014年6月07日(土) 19:30
保険料の妥当性(保険会社が儲かっているかどうか)を判断するプログラムを組んでいます。
以下は、プログラムの最後に来る、「黒字・赤字を判断するfor文」です。
For k = 0 To n - 1
.Cells(124 + k, 20) = .Cells(124 + k, 17) - .Cells(124 + k, 8)
Next k
これについて、見やすくするために
.Cells(124 + k, 20)<0なら、そのセルの値を赤で、
.Cells(124 + k, 20)≧0なら、黒のままで
表記したいです。
調べたのですが、やり方がよく分かりません。教えてください。
以下は、プログラムの最後に来る、「黒字・赤字を判断するfor文」です。
For k = 0 To n - 1
.Cells(124 + k, 20) = .Cells(124 + k, 17) - .Cells(124 + k, 8)
Next k
これについて、見やすくするために
.Cells(124 + k, 20)<0なら、そのセルの値を赤で、
.Cells(124 + k, 20)≧0なら、黒のままで
表記したいです。
調べたのですが、やり方がよく分かりません。教えてください。