Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

15839 / 76733

←次へ　｜　前へ→


	【66368】Re:条件を満たすセルの背景色を変えるには

あああ - 10/8/27(金) 20:48 -


	引用なし

	パスワード

その30セットってのはシート30枚ってことっすか？なら

Sub aaa()
Dim a, b, c
For a = 1 To 30
For b = 1 To 365
Set c = Worksheets(a).Cells(b, 2)
If Worksheets(a).Cells(b, 1) > c Then c.Interior.Color = vbRed
If Worksheets(a).Cells(b, 3) < c Then c.Interior.Color = vbBlue
Next
Next
Set c = Nothing
End Sub

数字入れるごとに変えるならイベントで検索

1 hits

▼

【66367】条件を満たすセルの背景色を変えるには ムカイ 10/8/27(金) 20:02