エクセルの学校：全文検索：Hyper Estraier： kazu 条件付書式

Results of 1 - 1 of about 406 for kazu 条件付書式 (0.004 sec.)

kazu (7737), 条件付書式 (2649)

[[20050812170334]]: #score: 6689; @digest: d88a2a51c5148c56e407ef6f90e10904; @id: 16161; @mdate: 2005-09-08T13:52:07Z; @size: 4084; @type: text/plain; #keywords: gypsy (17917), 赤ca (16170), 白ca (13911), 金" (13260), 他無 (11037), 水" (10769), 黄ca (9518), 緑ca (8928), 青ca (8781), （gy (7736), 火" (7557), 木" (5620), col (3943), 当フ (3496), サク (2598), ロ( (2288), 月" (2043), case (2008), 色分 (1672), リキ (1562), キリ (1454), tbl (1189), colorindex (954), interior (773), 御座 (621), ⌒) (601), 付書 (571), （キ (568), キ） (544), select (488), 何処 (435), 定さ (425); 『月火水木金を色分けする方法』（gypsy）
月、火、水、木、金、のセルを色分けして表示する方法はありますか? 「金」が色なし（白）とするとして、他を、条件付書式で「月」「火」「水」とセルの色をそれぞれ設定しても、「木」のセルに色をつけることが出来ません（条件付書式は3つのみ登録可のため）。 ---- こんな感じでしょうか? シートのタブを右クリックコードの表示をクリック下記をコピペ 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） ---- 色番号↓ http://skyblue123.hp.infoseek.co.jp/Excel/ColorIndex.gif 参考にしてみてください（^^）（キリキ）(〃⌒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） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200508/20050812170334.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ