エクセル2003で、数式で出されたセルの値によって、そのセル自体を塗り分けしたいのですが、7種類あるため条件付書式では対応出来ず困っています。
具体的には「2.7000~2.7099」ならピンク、「2.7100~2.7199」なら黄色、「2.7200~2.7299」なら黄色「2.7300~2.7399」なら緑色「2.7400~2.7499」なら青色「2.7500~2.7599」なら紫「2.7600~2.7699」なら灰色
という具合です
漠然としていて申し訳ないのですが、マクロを使用したいと思っています。お力を貸していただけないでしょうか?
No.2ベストアンサー
- 回答日時:
>数式で出されたセルの値によって、そのセル自体を塗り分けしたい
マクロに精通しているともっと高速なマクロにチューニングできますが,今の丸投げの様子では無理そうなので,とりあえず「A列にある数式セル」を毎回色を塗ります。
手順:
シート名タブを右クリック,コードの表示を選ぶ
現れたシートに下記をコピー貼り付ける
Private Sub Worksheet_Calculate()
Dim h As Range
Dim c
’色を塗るセル範囲を変更するのはここ
For Each h In Range("A:A").SpecialCells(xlCellTypeFormulas)
Select Case h.Value
Case Is < 2.7
c = xlNone
Case Is < 2.71
'「2.7000~2.7099」ならピンク、
c = 7
Case Is < 2.72
'「2.7100~2.7199」なら黄色、
c = 6
Case Is < 2.73
'「2.7200~2.7299」なら黄色
c = 6
Case Is < 2.74
'「2.7300~2.7399」なら緑色
c = 10
Case Is < 2.75
'「2.7400~2.7499」なら青色
c = 5
Case Is < 2.76
'「2.7500~2.7599」なら紫
c = 13
Case Is < 2.77
'「2.7600~2.7699」なら灰色
c = 15
Case Else
c = xlNone
End Select
h.Interior.ColorIndex = c
Next
End Sub
ファイルメニューから終了してエクセルに戻る。
再計算が走る都度,A列を塗り替える。
#塗りたい色のご説明が変だったりしますので,またもうちょい違う色にしたい時も,下記のURLを参考に自力で色の番号(c=5とかの所)を直してみてください。
あといわずもがなですが,ご相談の状況では通常よく使われるchangeイベントのマクロは,そのままでは使えません。(高速なマクロにチューニングする時には使いますが)
参考URL:http://furyu.tea-nifty.com/annex/2006/05/excel_c …
No.5
- 回答日時:
こんばんは!
すでに色々回答は出ていますので、
参考程度で・・・
色をつけたいセルを範囲指定した後に実行します。
Sub test()
Dim c As Range
For Each c In Selection
Select Case c.Value
Case Is < 2.7: c.Interior.ColorIndex = 0
Case Is < 2.71: c.Interior.ColorIndex = 7
Case Is < 2.72: c.Interior.ColorIndex = 36
Case Is < 2.73: c.Interior.ColorIndex = 6
Case Is < 2.74: c.Interior.ColorIndex = 10
Case Is < 2.75: c.Interior.ColorIndex = 5
Case Is < 2.76: c.Interior.ColorIndex = 13
Case Is < 2.77: c.Interior.ColorIndex = 16
End Select
Next c
End Sub
カラーインデックスは↓のURLが参考になると思います。
http://homepage2.nifty.com/vbasys/vbasys/vbaUtil …
No.4
- 回答日時:
たとえば 以下のような感じでしょうか
入力した行と同じ行のD列に計算結果が入るとして(D列自体にデータを入力しても同じ)D列の色を変えます。
Private Sub Worksheet_Change(ByVal Target As Range)
With Range("D" & Target.Row)
Select Case .Value
Case 2.7 To 2.7099
.Interior.ColorIndex = 7
.Interior.Pattern = xlSolid
Case 2.71 To 2.7199
.Interior.ColorIndex = 6
.Interior.Pattern = xlSolid
End Select
End With
End Sub
No.3
- 回答日時:
解決したのではないのですか?
こんな感じでどうでしょうか。
対象セル範囲は実際に合わせて書き直してください。
ColorIndex値は適当にしていますからご自分で調べてください。
セルの塗り潰しをマクロの記録すれば得られます。
Private Sub Worksheet_Calculate()
Dim rng As Range
Dim c As Range
Dim idx As Variant
Set rng = Range("B2:B11")
For Each c In rng
Select Case c.Value
Case Is <= 2.6099: idx = 0
Case Is <= 2.7099: idx = 3
Case Is <= 2.7199: idx = 4
Case Is <= 2.7299: idx = 5
Case Is <= 2.7399: idx = 6
Case Is <= 2.7499: idx = 7
Case Is <= 2.7599: idx = 8
Case Is <= 2.7699: idx = 9
Case Else: idx = 0
End Select
c.Interior.ColorIndex = idx
Next
End Sub
以前助けていただいた方でしょうか。値の導き方で不具合が生じてしまい更に変更が必要になってしまったので、再度質問させていただきました。ありがとうございました
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) EXCELのセルへの色づけ 2 2023/06/07 01:22
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) セルに特定の色が出た時だけ、式を発動させたい 4 2022/06/17 10:32
- Excel(エクセル) Excel 数式を使用した条件付き書式が、一つのセルにしか反映されない 3 2022/06/08 23:20
- Excel(エクセル) エクセル関数の質問 5 2022/04/20 09:46
- Excel(エクセル) 出勤簿の土、日、休日に色付けできない 2 2022/08/04 20:10
- Excel(エクセル) 条件付き書式の色付きセルのカウント方法について 2 2022/10/21 14:51
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
Excelで挿入した図をセルの中央...
-
現在のセルの位置を返す関数は...
-
エクセルでの検索ボックスの作...
-
クリックすると文章が表示され...
-
マクロを実行すると画像がズレ...
-
【EXCEL】先週の月曜日の日付を...
-
Excelでセルをクリックす...
-
太字に設定されているセルの個...
-
セルがクリックされた回数をカ...
-
Excelで、図形内の文字をセルに...
-
Excel ハイパーリンクのURLを別...
-
Excel2007 色のカウント (VBA)
-
エクセルマクロ 赤色の文字を検...
-
フォントの色を指定して削除出...
-
アポストロフィーの一括挿入 ...
-
エクセルグラフ数値軸の最大最...
-
セル背景や文字を点滅させる方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで特定のセルに表示...
-
エクセル 数字をすべて○などの...
-
Excel内での検索結果をシート...
-
クリックすると文章が表示され...
-
Excelでセルをクリックす...
-
マクロを実行すると画像がズレ...
-
太字に設定されているセルの個...
-
Excelで、図形内の文字をセルに...
-
Excelで挿入した図をセルの中央...
-
フォントの色を指定して削除出...
-
Excel ハイパーリンクのURLを別...
-
エクセルでPDFリンクを大量...
-
エクセル 未入力セルがあると...
-
現在のセルの位置を返す関数は...
-
VBA 見つからなかった時の処理
-
EXCELのセルや文字色の反映
-
【EXCEL】先週の月曜日の日付を...
-
セルの値が変ると自動でマクロ...
-
エクセルでセルをダブルクリッ...
-
アポストロフィーの一括挿入 ...
おすすめ情報