[[20050812170334]]　『月火水木金を色分けする方法』（gypsy）　ページの最後に飛ぶ

『月火水木金を色分けする方法』（gypsy）

月、火、水、木、金、のセルを色分けして表示する方法はありますか？

「金」が色なし（白）とするとして、他を、条件付書式で「月」「火」「水」とセルの色をそれぞれ設定しても、
「木」のセルに色をつけることが出来ません（条件付書式は３つのみ登録可のため）。

 こんな感じでしょうか？

 シートのタブを右クリック
 コードの表示をクリック
 下記をコピペ

 Private Sub Worksheet_Change(ByVal Target As Range)
     Dim col As Long
     Dim tbl As Range

     For Each tbl In Target
         Select Case tbl
             Case "月"
                col = 3　'赤
             Case "火"
                 col = 6　’黄
             Case "水"
                 col = 5　’青
             Case "木"
                 col = 10　’緑
             Case "金"
                 col = 2　’白
             Case Else
                 col = 0　’その他　無し
         End Select
         With tbl.Interior
             .ColorIndex = col
         End With
     Next tbl
 End Sub

 色は適当に設定してますので、変えてください。

 （キリキ）（〃⌒o⌒)b

キリキさんありがとうございます。

しかしなぜか色が変わりません。上のソースをそのまま貼り付けて保存するだけでいいのでしょうか？

また該当ファイルは別のマクロが設定されていますので、それとの絡みがあるのでしょうか？

よろしくお願い致します。（gypsy）

 う～ん、、、　なぜでしょう？？？
 ちなみに、シートモジュールにコピペしました？

 >また該当ファイルは別のマクロが設定されていますので、それとの絡みがあるのでしょうか？
 どんなマクロですか？
 何処に設定されていますか？

 質問ばかりですいません。。。
 初心者なんで、他の達人みたいにサクサク答えられなくてスイマセン。

 （キリキ）(；⌒o⌒)b

 > Private Sub Worksheet_Change(ByVal Target As Range)

 この形式はワークシートが変更された場合に実行されます、
 月、火、水、木を手で入力すれば指定された色になります。
 既に入力されている月、火、水、木や参照されているセルは対象外になります。

 下に書いたようなコードで
 必要な範囲を選択してから、←[ここがポイント]
 ツール(T)メニュー→マクロ(M)→マクロ(M)でFill_Colorを選択する方法
 で実行するほうが良いかもしれません。

 Sub Fill_Color   ' ←変更
     Dim col As Long
     Dim tbl As Range

     For Each tbl In Selection   ' ←変更
         Select Case tbl
             Case "月"
                col = 3　'赤
             Case "火"
                 col = 6　’黄
             Case "水"
                 col = 5　’青
             Case "木"
                 col = 10　’緑
             Case "金"
                 col = 2　’白
             Case Else
                 col = 0　’その他　無し
         End Select
         With tbl.Interior
             .ColorIndex = col
         End With
     Next tbl
 End Sub

 （kazu）

 なるほど、kazuさんの仰る通りですね～
 すでに入力している曜日に対応しないといけないですよね・・・
 gypsyさん、ごめんなさいねm(_ _)m

 kazuさん、フォローありがとうございます（＾＾）

 （キリキ）(〃⌒o⌒)b

キリキさん、kazuさん、出来ました。
本当にありがとう御座いました。

最後によろしければ教えていただきたいのですが、

 col = 3　'赤

というに色と数字はどのような関係なのでしょうか？
ピンクとか他にも色の組み合わせがあるのでしょうか？

（gypsy）

 色番号↓

 参考にしてみてください（＾＾）
 （キリキ）(〃⌒o⌒)b

追加でお聞きしたいことがございます。

上記のマクロの

         Select Case tbl
             Case "月"
                col = 3　'赤

の部分について、月と水と金を赤にしたいという場合は、

         Select Case tbl
             Case "月""水""金"
                col = 3　'赤

と記述すればよいのですか？

或いは、いちいち

             Case "月"
                col = 3　'赤
             Case "水"
                col = 3　'赤
             Case "金"
                col = 3　'赤

と記述する必要があるのでしょうか？（gypsy）

 カンマで区切ります。
Case "月","水","金"
(kenbou)

kenbouさんありがとう御座いました（gypsy）

コメント返信：

[ 一覧(最新更新順) ]

[[20050812170334]] 『月火水木金を色分けする方法』（gypsy） ページの最後に飛ぶ

[[20050812170334]]　『月火水木金を色分けする方法』（gypsy）　ページの最後に飛ぶ