Excel VBA質問箱 IV

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

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


14674 / 76734 ←次へ | 前へ→

【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 '黄
だけ色が付かないのですが、どうしてでしょうか?
他の式は全部反応します。

よろしくお願いします。
0 hits

【67549】4つ以上の条件付書式のマクロ設定 AAA 10/12/13(月) 8:27 質問
【67550】Re:4つ以上の条件付書式のマクロ設定 sasa 10/12/13(月) 8:41 回答
【67553】Re:4つ以上の条件付書式のマクロ設定 AAA 10/12/13(月) 10:38 お礼
【67551】Re:4つ以上の条件付書式のマクロ設定 Hirofumi 10/12/13(月) 9:42 回答
【67552】Re:4つ以上の条件付書式のマクロ設定 AAA 10/12/13(月) 10:37 お礼
【67554】Re:4つ以上の条件付書式のマクロ設定 Hirofumi 10/12/13(月) 10:52 発言
【67555】Re:4つ以上の条件付書式のマクロ設定 AAA 10/12/13(月) 11:52 質問
【67556】Re:4つ以上の条件付書式のマクロ設定 Hirofumi 10/12/13(月) 14:34 回答
【67558】Re:4つ以上の条件付書式のマクロ設定 Hirofumi 10/12/13(月) 14:47 回答
【67559】Re:4つ以上の条件付書式のマクロ設定 Hirofumi 10/12/13(月) 15:48 回答
【67562】Re:4つ以上の条件付書式のマクロ設定 AAA 10/12/13(月) 20:07 お礼
【67563】Re:4つ以上の条件付書式のマクロ設定 Hirofumi 10/12/13(月) 20:39 回答
【67564】Re:4つ以上の条件付書式のマクロ設定 AAA 10/12/13(月) 20:59 お礼
【67566】Re:4つ以上の条件付書式のマクロ設定 Hirofumi 10/12/13(月) 21:07 回答
【67565】Re:4つ以上の条件付書式のマクロ設定 Hirofumi 10/12/13(月) 21:05 回答
【67560】Re:4つ以上の条件付書式のマクロ設定 AAA 10/12/13(月) 15:56 質問
【67561】Re:4つ以上の条件付書式のマクロ設定 Hirofumi 10/12/13(月) 16:50 回答

14674 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free