エクセル数値の色分け

質問

お世話になります　エクセルの数値を色分けしたいと思っていますがやり方を教えて下さい。　たとえば、０１０、０２０、０４０、０５０、５５１、５６５　等の２０種類ほどの数値ですが、それぞれの数字毎に色分けしたいと考えています。　　条件付き書式でしますと３種類の条件でしか設定出来ないため　困っています。　お忙しいところ申し訳ありませんがよろしくお願い致します。　わがままですが早急にお願い致します。

回答No.4

hallo-2007 · ベストアンサー

>数値毎に指定した色と言うことは出来ませんか
Case "010"　'←が数値ごとの指定
c.Interior.ColorIndex = 3　’←の数値が色の指定です。
上記の2行をご希望の数だけ追加してください。
ちなみに番号と色の関係ですが。
別途、新しい空白のブックで
Sub Macro3()
For i = 1 To 56
Cells(i, 4).Value = i
Cells(i, 3).Interior.ColorIndex = i
Next
End Sub
を実行してみてください。

おまけですが、範囲が常に固定しているのであれば
Sub Macro1()
Range("B1:B100").End(xlUp).Row).Select
For Each c In Selection
Select Case c.Value
・・・と入れても始めても良いですし
色付けしたい列だけが決まっているのであれば
Sub Macro1()
Range("B1:B" & Range("B65536").End(xlUp).Row).Select
For Each c In Selection
Select Case c.Value
・・・と入れておくとB列のデータが入っている行までが対象となります。

お礼

有り難う御座いました。早速実行して希望通りの結果が出ました。
今後ともよろしくお願い致します。

回答No.3

fujillin

色指定のもととなるセルを作成しておきます。（値が０１０で色が赤など）
このセルを全て（20個ほど？）選択した状態で、以下を実行すれば、シート全体に対して反映されます。

Sub test()
Dim c As Range, i As Long
Dim txt() As String, col() As Integer
i = -1
For Each c In Selection
　i = i + 1
　ReDim Preserve txt(0 To i)
　ReDim Preserve col(0 To i)
　txt(i) = c.text
　col(i) = c.Font.ColorIndex
Next c
Set c = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)
For Each c In Range("A1:" & c.Address)
　For i = 0 To UBound(txt)
　　If c.text = txt(i) Then
　　　c.Font.ColorIndex = col(i)
　　　Exit For
　　End If
　Next i
Next c
End Sub

お礼

よく考えてみると　ここまで教えて頂きこれ以上の質問は失礼でした。
大変勉強になり有り難う御座いました。

補足

早速の回答有り難う御座いました。
VABを実行すると走るのですが色分けが出来ません。又、色々トライしましたが出来ませんでした。　本当に初心者な質問で申し訳ありませんが　考えられる間違えを教えて下さい。

回答No.2

hallo-2007

条件付書式の設定が３つ以上の場合は、エクセル2007にアップしてもらうか、VBAの力を借りることになります。
VBAについてご理解いただけるのであれば、以下を応用してみてください。
範囲を指定して、以下マクロを実行します。

Sub Macro1()
For Each c In Selection
Select Case c.Value
Case "010"
c.Interior.ColorIndex = 3
Case "020"
c.Interior.ColorIndex = 4
Case "030"
c.Interior.ColorIndex = 5
Case "040"
c.Interior.ColorIndex = 6
Case "050"
c.Interior.ColorIndex = 7
End Select
Next c
End Sub

お礼

有り難う御座いました。早速実行して成功しました。今後ともよろしくお願い致します。

補足

有り難う御座いました。早速実施したところ上手くいきビックリしました。
もう一つお願いですが　数値毎に指定した色と言うことは出来ませんか
お忙しところ申し訳ありませんが　よろしくお願い致します。

回答No.1

n-jun

http://okwave.jp/qa3985207.html
http://okwave.jp/qa4168696.html

ＶＢＡの経験がおありならご参考になるのでは。

お礼

有り難う御座いました。