| |
はじめまして、ＥｘｃｅｌＶＢＡでどうしてもわからないことがあるので質問させていただきます。
まず、プログラムを見ていただいたほうが早いと思うので、プログラムをお見せします。これは例なのですが、
Sub 色付け()
Sheets("色付け").Select
Rows("1:24").RowHeight = 12
Columns("A:Z").ColumnWidth = 2
Cells.Interior.ColorIndex = xlNone
Set MyRange = Range("A1:Z24")
For Each r In MyRange
v = r.Value
Select Case v
Case 0, 1
r.Interior.ColorIndex = 5
Case 1, 2
r.Interior.ColorIndex = 4
Case 3, 4
r.Interior.ColorIndex = 6
Case 5, 6
r.Interior.ColorIndex = 1
Case Else
r.Interior.ColorIndex = 8
End Select
Next r
End Sub
色付けというシートに("A1:Z24")の範囲でランダムに数字
を打ち込んだとします。
そして、上記のプログラムを実行すると、確かに色は付く
のですが、空白の部分にまで色が付いてしまいます。
そこで、Case Speace でColorIndex=0としてみたところ、
確かに空白の部分はクリアな色になったのですが、次は０
までクリアになってしまいました。ちなみに、０は上記の
通り、"5"つまり青色を指定しています。
どうすれば、空白がクリアになって、０は指定した通りの
色になるのでしょうか。お願いします。
|
|
太陽
- 05/11/27(日) 22:49 -
