Excel VBA質問箱 IV

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

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


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

47904 / 76732

←次へ　｜　前へ→


	【33773】Re:条件別に背景色を変える場合

ＮＥＣＲＯ - 06/1/20(金) 11:02 -


	引用なし

	パスワード

さちきょんさん、こたつねこさん、こんにちは。。。

>1.Case "B"のところで、.Font.Color = RGB(0, 0, 0)
>　としてみたら、エラーになってしまいました。
>　どうやったらいいのでしょうか？
".Font" の前の ".Interior" をはずしてみてください。

>2.また、E列のABCDEFの選択により、同時に他のセルの色も
>　変えたいのですが、どのようにすればいいでしょうか？
>
>　例）E8がAのとき赤色→G8、I8、K8、M8も赤色
>　　　E9がBのとき緑色→I9、K9、M9も緑色.......
「選択により」ということでしたのでワークシートチェンジを使用してみました。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　　Dim rngLOOP As Range

　　'エラートラップ
　　On Error GoTo SIGNAL_RETURN

　　'変更セルとＥ列の共有セルをループ
　　For Each rngLOOP In Intersect(Target, Columns(5))
　　　　Select Case Trim(rngLOOP.Value)
　　　　Case "A"
　　　　　　rngLOOP.Interior.ColorIndex = 3

　　　　　　'例)　他の列も背景色変更(G8、I8、K8、M8)
　　　　　　Cells(rngLOOP.Row, 7).Interior.ColorIndex = 3
　　　　　　Cells(rngLOOP.Row, 9).Interior.ColorIndex = 3
　　　　　　Cells(rngLOOP.Row, 11).Interior.ColorIndex = 3
　　　　　　Cells(rngLOOP.Row, 13).Interior.ColorIndex = 3
　　　　Case "B"
　　　　　　rngLOOP.Font.Color = RGB(0, 0, 0)
　　　　Case "C"
　　　　　　rngLOOP.Interior.ColorIndex = 5
　　　　Case "D"
　　　　　　rngLOOP.Interior.ColorIndex = 6
　　　　Case "E", "F"
　　　　　　rngLOOP.Interior.ColorIndex = 1
　　　　Case Else
　　　　　　Rows(rngLOOP.Row).Interior.ColorIndex = xlNone
　　　　　　Rows(rngLOOP.Row).Font.ColorIndex = 0
　　　　End Select
　　Next rngLOOP

　　'参照開放
　　Set rngLOOP = Nothing

SIGNAL_RETURN:
　　'参照開放
　　Set rngLOOP = Nothing

End Sub

ではでは。。。

0 hits

▼

【33767】条件別に背景色を変える場合 さちきょん 06/1/20(金) 3:08