Excel VBA質問箱 IV

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

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


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

14747 / 76807

←次へ　｜　前へ→


	【67549】4つ以上の条件付書式のﾏｸﾛ設定

AAA - 10/12/13(月) 8:27 -


	引用なし

	パスワード

いつもお世話になってます。 4つ以上の条件付書式のﾏｸﾛの設定について教えて下さい。 C列、F列、I列のセルに「あ」が入力されたら、赤「い」が入力されたら、青「う」が入力されたら、黄「え」が入力されたら、グレー「お」が入力されたら、緑「か」が入力されたら、茶が入ったらC列、F列、I列のセルに色を付けたいのですが、 C列の変更のﾏｸﾛの式は出来たのですが、F列、I列も同じ指定をしたいのですが、ﾏｸﾛ初心者なのでどこにどういった式を入れたらよいのか分かりません・・・。初歩的な質問で申し訳有りませんがよろしくお願いします。 Private Sub Worksheet_Change(ByVal Target As Range) 　Dim myColor As Variant 　　If Target.Count <> 1 Then Exit Sub 　　If Target.Column <> 3 Then Exit Sub 　　Application.EnableEvents = False 　　Select Case Target.Value 　　　　Case "白" 　　　　　　myColor = 3 '赤　　　　Case "あ" 　　　　　　myColor = 5 '青　　　　Case "い" 　　　　　　myColorl = 6 '黄　　　　Case "う" 　　　　　　myColor = 15 'グレー　　　　Case "え" 　　　　　　myColor = 43 '緑　　　　Case "お" 　　　　　　myColor = 30 '茶　　　　Case Else 　　　　　　myColor = xlNone 　　End Select 　　Cells(Target.Row, 3).Resize(1, 1).Interior.ColorIndex = myColor 　　Application.EnableEvents = True End Sub 後、上記の式で Case "い" 　　　　　　myColorl = 6 '黄だけ色が付かないのですが、どうしてでしょうか？他の式は全部反応します。よろしくお願いします。