エクセルで特定の曜日のセルに文字を入力する方法

質問

大人数のシフトを作成するのに時間がかかって困ってます。
マクロで、固定休だけでも自動で入力できないかと思い、質問させて頂きました。

添付画像の様なシフトがあり、B4～H6にはAさん～Cさんの固定休が入力されています。
（Aさんは月・金休み、Bさんは水・木休み、Cさんは火・土休み）
これに対して、I4～AL6のシフトの各自の休みのセルを、自動的に紫色のセルで"公"と表示させたいです。
（Aさんは月・金休みなので、I4、M4、P4、T4・・・セルを紫色にして、"公"という文字を表示する。
Bさん、Cさんも同様のルールでセルを紫色、"公"という文字を表示する。）

また月が変われば曜日も変化しますが、ここは関数で対応できました。

分かる方がいましたらお願いします。

回答No.1

KURUMITO · ベストアンサー

マクロを使わなくとも関数などで対応してはいかがでしょう。
I4セルに次の式を入力して右横方向にドラッグコピーしたのちに下方にもドラッグコピーします。

=IF(INDEX($B4:$H4,MATCH(I$3,$B$3:$H$3,0))="○","公","")

その後にそれらの範囲を選択したのちに「フォーム」タブの「条件付き書式」から「新しいルール」をクリックします。
「指定の値を含むセルだけを書式設定」を選択して「セルの値を」の右の窓を「次の値に等しい」にして次の右の窓には「公」を入力します。
同じ画面の「書式」をクリックして「塗りつぶし」のタブから紫色を選択してOKします。

この方法ではすべてのセルに式が入力されますので表を実際に使用する最初の段階で上記の操作を行っておく必要がありますね。その後は公と入力されているセルには変更を加えないないことが必要です。

なお、どうしてもマクロにするのでしたら上記の操作をマクロの記録で記録して使用すればよいでしょう。

お礼

ありがとうございました。対応できました。

回答No.2

kagakusuki

２月のAL列等の様に3行目に曜日が入力されていない場合でも有効な方法です。

　まず、I4セルに次の関数を入力して下さい。

=IF(ISERROR(1/(HLOOKUP(I$3,$B$3:$H4,ROWS($3:4),FALSE)="○")),"","公")

　次に、以下の操作を行って、条件付き書式を設定して下さい。

【Excel2007よりも前のバージョンの場合】
I4セルを選択
　　↓
メニューの[書式]ボタンをクリック
　　↓
現れた選択肢の中にある[条件付き書式]をクリック
　　↓
現れた「条件付き書式の設定」ダイアログボックスの左端の欄をクリック
　　↓
現れた選択肢の中にある「セルの値が」をクリック
　　↓
「条件付き書式の設定」ダイアログボックスの左から2番目の欄をクリック
　　↓
現れた選択肢の中にある「次の値に等しい」をクリック
　　↓
「条件付き書式の設定」ダイアログボックスの右端の欄に

="公"

と入力
　　↓
「条件付き書式の設定」ダイアログボックスの[書式]ボタンをクリック
　　↓
現れた「セルの書式設定」ダイアログボックスの[パターン]タブをクリック
　　↓
現れた[色]欄をクリック
　　↓
紫色の四角形をクリック
　　↓
「セルの書式設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
「条件付き書式の設定」ダイアログボックスの[OK]ボタンをクリック

【Excel2007以降のバージョンの場合】
I4セルを選択
　　↓
Excelウィンドウの[ホーム]タブをクリック
　　↓
現れた「スタイル」グループの中にある[条件付き書式]ボタンをクリック
　　↓
現れた選択肢の中にある[新しいルール]をクリック
　　↓
現れた「新しい書式ルール」ダイアログボックスの「ルールの種類を選択して下さい」欄の中にある[指定の値を含むセルだけを書式設定]をクリック
　　↓
「次のセルのみを書式設定」欄の中にある左端の欄をクリック
　　↓
現れた選択肢の中にある「セルの値」をクリック
　　↓
「次のセルのみを書式設定」欄の中にある左から2番目の欄をクリック
　　↓
現れた選択肢の中にある「次の値に等しい」をクリック
　　↓
「次のセルのみを書式設定」欄の中にある右端の欄に

="公"

と入力
　　↓
「条件付き書式の設定」ダイアログボックスの[書式]ボタンをクリック
　　↓
現れた「セルの書式設定」ダイアログボックスの[塗りつぶし]タブをクリック
　　↓
現れた[色]欄をクリック
　　↓
紫色の四角形をクリック
　　↓
「セルの書式設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
「条件付き書式の設定」ダイアログボックスの[OK]ボタンをクリック

　次に、I4セルをコピーして、J4～AM4の範囲に貼り付けて下さい。
　次に、I4～AM4の範囲をコピーして、同じ列の5行目以下に貼り付けて下さい。

　以上です。

お礼

回答ありがとうございました。NO1さんの回答で問題が解決しました。