Excel VBA質問箱 IV

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

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


14672 / 76734 ←次へ | 前へ→

【67551】Re:4つ以上の条件付書式のマクロ設定
回答  Hirofumi  - 10/12/13(月) 9:42 -

引用なし
パスワード
   >後、上記の式で Case "い"
>      myColorl = 6 '黄
>だけ色が付かないのですが、どうしてでしょうか?

      myColor = 6 '黄

別な方法で

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim i As Long
  Dim vntItem As Variant
  Dim vntColor As Variant
  Dim vntValue As Variant

  With Target
    If .Count <> 1 Then Exit Sub
    If Not (.Column = 3 Or .Column = 6 Or .Column = 9) Then Exit Sub
    vntValue = .Value
  End With

  '"白","あ","い","う","え","お"
  vntItem = Array("白", "あ", "い", "う", "え", "お")
  '"赤"、"青"、"黄"、"グレー"、"緑"、"茶"、"無し"
  vntColor = Array(3, 5, 6, 15, 43, 30, xlNone)

  For i = 0 To UBound(vntItem)
    If vntValue = vntItem(i) Then
      Exit For
    End If
  Next i

  Target.Interior.ColorIndex = vntColor(i)

End Sub
1 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 回答

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