初めて投稿します。どうぞよろしくお願いします。
エクセルの条件付き書式では4通りにしか設定できないため、マクロ初心者ではありますが、こちらでの回答を参考に作ってみました。
0~0.999 薄ピンク
1~1.999 ピンク
2~2.999 赤
3~3.999 オレンジ
↓
↓
25~25.999 濃い紫
と26パターンに自動的に塗りつぶすマクロを作りました。
ところが空白のセルも0~0.999で指定している薄ピンクに塗りつぶされてしまいます。
何分初心者なもので、どこを修正したら良いのかわかりません。
どなたかアドバイス頂けると助かります。
よろしくお願いします。
Sub color0_25()
Dim Target As Range
For Each Target In Range("A1:Z1000")
Select Case Target.Value
Case Is < 0
Target.Interior.ColorIndex = 0
Case Is < 1
Target.Interior.ColorIndex = 38
Case Is < 2
Target.Interior.ColorIndex = 7
Case Is < 3
Target.Interior.ColorIndex = 22
Case Is < 4
Target.Interior.ColorIndex = 3
Case Is < 5
Target.Interior.ColorIndex = 46
Case Is < 6
Target.Interior.ColorIndex = 45
Case Is < 7
Target.Interior.ColorIndex = 44
Case Is < 8
Target.Interior.ColorIndex = 6
Case Is < 9
Target.Interior.ColorIndex = 36
Case Is < 10
Target.Interior.ColorIndex = 35
Case Is < 11
Target.Interior.ColorIndex = 4
Case Is < 12
Target.Interior.ColorIndex = 50
Case Is < 13
Target.Interior.ColorIndex = 14
Case Is < 14
Target.Interior.ColorIndex = 34
Case Is < 15
Target.Interior.ColorIndex = 37
Case Is < 16
Target.Interior.ColorIndex = 33
Case Is < 17
Target.Interior.ColorIndex = 28
Case Is < 18
Target.Interior.ColorIndex = 41
Case Is < 19
Target.Interior.ColorIndex = 5
Case Is < 20
Target.Interior.ColorIndex = 11
Case Is < 21
Target.Interior.ColorIndex = 55
Case Is < 22
Target.Interior.ColorIndex = 17
Case Is < 23
Target.Interior.ColorIndex = 39
Case Is < 24
Target.Interior.ColorIndex = 54
Case Is < 25
Target.Interior.ColorIndex = 13
Case Is < 26
Target.Interior.ColorIndex = 21
End Select
Next
End Sub
No.1
- 回答日時:
select caseに入る前に if Target.Value="" then で、一番後ろまで
ジャンプさせてしまえばいいかと。
この回答への補足
さっそくの回答ありがとうございます!
こんなに早くお返事がきて嬉しいです。
Dim Target As Range
For Each Target In Range("A1:Z1000")
If Target.Value = "" Then
Select Case Target.Value
と入力するということですよね?
コンパイルエラーが出てしまって
「Next に対応する For がありません」と。
End Select
End if
Next
End Sub
としてみたら、動きますがさっきと変わりませんでした・・。
何を追加したらよいのでしょうか?
度々すみませんが、よかったらご回答ください。
No.2
- 回答日時:
Case Is = "" '→ 追加
Target.Interior.ColorIndex = 0 '→ 追加
Case Is < 0
Target.Interior.ColorIndex = 0
ではダメですか?
この回答への補足
回答ありがとうございます!
希望通りの塗りつぶしができました!!
どうもありがとうございます。
これで作業がとっても楽になります。
本当にありがとうございました。
No.3ベストアンサー
- 回答日時:
こんにちは
Case Is < 0
を
Case Is <= 0
としてみては?
0を入れたときは塗りつぶしができませんが・・・
または
Case Is = ""
Target.Interior.ColorIndex = 0
を最初に付け加えるとか・・・
この回答への補足
回答ありがとうございます!
0の時も塗りつぶしにならなければいけないので
Case Is = ""
Target.Interior.ColorIndex = 0
を試してみました。
思い通りの塗りつぶしになりました!!
""は、エクセルの時はよく使うのに、マクロだと意気込むと思い浮かびませんでした(汗)
これからも参考にさせていただきます。
ありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) select caseの入れ子 3 2023/03/08 18:48
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) Worksheet_Change 4 2023/03/12 21:54
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) Excelのマクロについて教えてください。 3 2022/06/30 09:36
- 英語 Once upon a time, cash was king and credit cards, 3 2022/07/15 23:31
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Visual Basic(VBA) 先ほど、回答者様によって教えていただいたのですがどうしたらいいか分かりません。 ユーザーフォーム上に 2 2023/02/21 22:25
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
ExcelのVBA。public変数の値が...
-
メッセージボックスのOKボタ...
-
2つのマクロでチェックボックス...
-
エクセルのマクロについて教え...
-
Excel2013 VBA マクロ実行中に...
-
エクセルのマクロについて教え...
-
VBA初心者 Ctrl+での操作、ボタ...
-
エクセルで別のセルにあるふり...
-
エクセルのマクロについて教え...
-
Excelマクロを引数付で起動
-
「マクロ」の語源
-
エクセルのマクロについて教え...
-
レポートで空データ時に印刷しない
-
ユーザーフォームを起動しなが...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
ExcelVBAでPDFを閉じるソース
-
EXCELのVBAでRange("A1:C4")を...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
マクロ実行時、ユーザーフォー...
-
Excelのマクロについて教えてく...
-
ソース内の行末に\\
おすすめ情報