[[20110531110843]]　『条件を満たしたセルを色を指定して塗りつぶしたい』（saboten）　ページの最後に飛ぶ

『条件を満たしたセルを色を指定して塗りつぶしたい』（saboten）

Excel2000　WindowsXP

条件はなんでもいいんですが、ようするに指定したセルを指定した色で

自動で塗りつぶすようにしたいんですが、関数でやろうとしても塗りつぶしの

部分はうまくいきません。そういったことは可能なんでしょうか？

どなたか教えてください。お願いします。

 >条件はなんでもいいんですが
 条件付き書式を使用すれば出来ると思うが・・・
としか答えることが出来ませんね
(BreakTime)

 >指定したセルを指定した色で

 すでに自動ではないような気がしますが・・

 (通りすがり)

(saboten)
質問が悪くてすいません。
例えば横一列のｶﾚﾝﾀﾞｰで土日の部分の下10行を赤で塗りつぶしたいならどうでしょうか？

http://www.ne.jp/asahi/juku/excel/Jouken1332.htm
（貼）

 ファイル名から年月日自動作成

 ファイル作成　　　												
 ファイル名を201201カレンダー　とする												
 シート名作成（２個作成）												
 シート名をカレンダーとデータとする												
 シート名のデータに												
 b3 =MID(CELL("filename"),SEARCH("[",CELL("filename"))+1,SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-1)

 年と月を取り込み　日を追加	
 b4 =LEFT(b3,6)&"01" 												
 /区切り									
 b5　=(LEFT(b4,4)&"/"&MID(b4,5,2)&"/"&RIGHT(b4,2))*1					
 書式→セル→表示形式→ユーザー定義→yyyy/m/d

 祝日　　（範囲を選択し名前を祝日とする）　貼り付けは何処でもいいです			
 2011/1/1	元日
 2011/1/10成人の日
 2011/2/11建国記念の日
 2011/3/21春分の日
 2011/4/29昭和の日
 2011/5/3	憲法記念日
 2011/5/4	みどりの日
 2011/5/5	こどもの日
 2011/7/18海の日
 2011/9/19敬老の日
 2011/9/23秋分の日
 2011/10/10体育の日
 2011/11/3文化の日
 2011/11/23勤労感謝の日
 2011/12/23天皇誕生日
 2012/1/1	元日
 2012/1/2	振替休日
 2012/1/9	成人の日
 2012/2/11建国記念の日
 2012/3/20春分の日
 2012/4/29昭和の日
 2012/4/30振替休日
 2012/5/3	憲法記念日
 2012/5/4	みどりの日
 2012/5/5	こどもの日
 2012/7/16海の日
 2012/9/17敬老の日
 2012/9/22秋分の日
 2012/10/8体育の日
 2012/11/3文化の日
 2012/11/23勤労感謝の日
 2012/12/23天皇誕生日
 2012/12/24振替休日
 範囲を選び　　挿入→名前→定義→祝日　と入力	
 （以降の祝日データを追加する時は下に貼り付けし名前の範囲を変更する）	
 カレンダー作成
 シート名のカレンダーに
 １日作成
 d1 =データ!b5
 書式→セル→表示形式→日付→****年*月を選択
 d2 =D1
 書式→セル→表示形式→日付→**月*日を選択
 e2 =WEEKDAY(D2,1)
 書式→セル→表示形式→ユーザー定義→"("aaa")"
 条件１　　書式→条件付き書式の設定→セル値が→次に等しい→１　
　書式→パターン→赤を選択
 追加　　条件２　　書式→条件付き書式の設定→セル値が→次に等しい→７　
　書式→パターン→ 水色を選択
 追加　　条件３　　書式→条件付き書式の設定→数式が→=e1<>""　
　書式→パターン→緑色を選択
 e1 =IF(ISERROR(VLOOKUP(D2,祝日,2,0)),"",VLOOKUP(D2,祝日,2,0))
 ２日作成
 f2 =D2+1
 書式→セル→表示形式→日付→**月*日を選択
 g2 =WEEKDAY(f2,1)
 書式→セル→表示形式→ユーザー定義→"("aaa")"
 条件１　　書式→条件付き書式の設定→セル値が→次に等しい→１　
　書式→赤を選択
 追加　　条件２　　書式→条件付き書式の設定→セル値が→次に等しい→７　
　書式→水色を選択
 追加　　条件３　　書式→条件付き書式の設定→数式が→=e1<>""　
　書式→緑色を選択
 g1 =IF(ISERROR(VLOOKUP(f2,祝日,2,0)),"",VLOOKUP(f2,祝日,2,0))
 F1: G2を選択しコピー　　Ｈから右にＢＧまで貼り付け
 これで２８日まで出来上がりです
 ２９日以降の対策
 bf1 =MONTH($D$2)　　　
 書式→セル→フォント→色→白を選択
 bh1　=BF2+1
 書式→セル→フォント→色→白を選択
 bh2 =IF(MONTH(BH1)<>$BF$1,"",$BF$2+1)
 bi1 =IF(ISERROR(VLOOKUP(BH2,祝日,2,0)),"",VLOOKUP(BH2,祝日,2,0))
 bi2 =IF(BH2="","",WEEKDAY(BH2,1))
 bj1 =$BF$2+2
 書式→セル→フォント→色→白を選択
 bj2 =IF(MONTH(BJ1)<>$BF$1,"",$BF$2+2)
 bk1 =IF(ISERROR(VLOOKUP(BJ2,祝日,2,0)),"",VLOOKUP(BJ2,祝日,2,0))
 bk2 =IF(BJ2="","",WEEKDAY(BJ2,1))
 bl1 =$BF$2+3
 bl2 =IF(MONTH(BL1)<>$BF$1,"",$BF$2+3)
 bm1 =IF(ISERROR(VLOOKUP(BL2,祝日,2,0)),"",VLOOKUP(BL2,祝日,2,0))
 bm2 =IF(BL2="","",WEEKDAY(BL2,1))
 これでどうでしょう
月を変更する時は　ファイル→名前をつけて保存→
201201の所を201202へ変更すればＯＫ

 yoshi

コメント返信：

[ 一覧(最新更新順) ]

[[20110531110843]] 『条件を満たしたセルを色を指定して塗りつぶしたい』（saboten） ページの最後に飛ぶ

[[20110531110843]]　『条件を満たしたセルを色を指定して塗りつぶしたい』（saboten）　ページの最後に飛ぶ