Excel VBA質問箱 IV

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

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


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

14745 / 76807

←次へ　｜　前へ→


	【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