【再】エクセルでセルを参照して列を追加したい

質問

前回説明不足だっ為、再質問させていただきます。
セルは変わりましたが、現在、以下のようなガントチャートを作成中です。

　　　　E　　　F　　　G　　　H　　　I
1　　5/2　　　5
2　9/14　　　2　　　3　　　　4　　　5
3　　　　　　　水　　木　　　金　　土

E1には開始日を入力
E2には終了日を入力
F1には=F2
F2には=E1
F3には=E1
G1には=IF(DAY(G2)=1,G2,"")
G2には=F2+1
G3には=F3+1
H1には=IF(DAY(H2)=1,H2,"")でI列以降も続きます。
H2には=G2+1でI列以降も続きます。
H3には=G3+1でI列以降も続きます。
土日は条件付き書式でカラー表示されるようになっています。

現在は終了日を入力しても、列を選択して右に延ばせば、
終了日以降も表示されてしまい、
終了日が前倒しになっても9/14のままなので、
（現在の9/14が9/1になっても9/14まで表示されてしまう）
E1E2に開始日、終了日を入力したら
F列に開始日が表示され、最終日まで自動的に終了日までを表示したいと思っています。

また、月の表示は月初日だけで2日以降は見づらくなるため、
表示は避けたいと思っています。

以上のような状況なのですが、何かいい方法をご教示いただきたく、
よろしくお願いいたします。

回答No.3

kagakusuki · ベストアンサー

忘れていました、ANo.2において、F1～F3の各セルに対してセルの書式設定を行う前に、次の操作を行って下さい。

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

=WEEKDAY(F1)=1

と入力
　　↓
「条件付き書式の設定」ダイアログボックスの[書式]ボタンをクリック
　　↓
現れた「セルの書式設定」ダイアログボックスの[フォント]タブをクリック
　　↓
現れた[色]欄をクリック
　　↓
現れた色のサンプルの中にある赤色の四角形をクリック
　　↓
「セルの書式設定」ダイアログボックスの[罫線]タブをクリック
　　↓
現れた「プリセット」欄の中にある[外枠]ボタンをクリック
　　↓
「セルの書式設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
「条件付き書式の設定」ダイアログボックスの[追加]ボタンをクリック
　　↓
現れた「条件2(2)」の左端の欄をクリック
　　↓
現れた選択肢の中にある「数式が」をクリック
　　↓
「条件2(2)」の左から2番目の欄に

=WEEKDAY(F1)=7

と入力
　　↓
「条件2(2)」の[書式]ボタンをクリック
　　↓
現れた「セルの書式設定」ダイアログボックスの[フォント]タブをクリック
　　↓
現れた[色]欄をクリック
　　↓
現れた色のサンプルの中にある青色の四角形をクリック
　　↓
「セルの書式設定」ダイアログボックスの[罫線]タブをクリック
　　↓
現れた「プリセット」欄の中にある[外枠]ボタンをクリック
　　↓
「セルの書式設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
「条件付き書式の設定」ダイアログボックスの[追加]ボタンをクリック
　　↓
現れた「条件3(3)」の左端の欄をクリック
　　↓
現れた選択肢の中にある「セルの値が」をクリック
　　↓
「条件3(3)」の左から2番目の欄をクリック
　　↓
現れた選択肢の中にある[次の値に等しくない]をクリック
　　↓
「条件3(3)」の左から2番目の欄に

=""

と入力
　　↓
「条件3(3)」の[書式]ボタンをクリック
　　↓
現れた「セルの書式設定」ダイアログボックスの[罫線]タブをクリック
　　↓
現れた「プリセット」欄の中にある[外枠]ボタンをクリック
　　↓
「セルの書式設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
「条件付き書式の設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
F1セルを右クリック
　　↓
現れた選択肢の中にある[コピー]をクリック
　　↓
F2～F3のセル範囲を範囲選択
　　↓
選択範囲を示す黒い太枠の内側にカーソルを合わせてから、マウスを右クリック
　　↓
現れた選択肢の中にある[形式を選択して貼付け]をクリック
　　↓
現れた「形式を選択して貼付け」ダイアログボックスの中にある[書式]と記されている箇所をクリックして、チェックを入れる
　　↓
「形式を選択して貼付け」ダイアログボックスの[OK]ボタンをクリック

【Excel2007以降のバージョンの場合】
Excelウィンドウの[ホーム]タブをクリック
　　↓
F1～F3のセル範囲をまとめて範囲選択
　　↓
選択されているセル範囲を変えないまま、「スタイル」グループの中にある[条件付き書式]ボタンをクリック
　　↓
現れた選択肢の中にある[ルールの管理]をクリック
　　↓
現れた「条件付き書式ルールの管理」ダイアログボックスの[新規ルール]ボタンをクリック
　　↓
現れた「新しい書式ルール」ダイアログボックスの「ルールの種類を選択して下さい」欄の中にある[数式を使用して、書式設定するセルを決定]をクリック
　　↓
現れた「次の数式を満たす場合に値を書式設定」欄の中に

=WEEKDAY(F1)=1

と入力
　　↓
「新しい書式ルール」ダイアログボックスの[書式]ボタンをクリック
　　↓
現れた「セルの書式設定」ダイアログボックスの[フォント]タブをクリック
　　↓
現れた[色]欄をクリック
　　↓
現れた色のサンプルの中にある赤色の四角形をクリック
　　↓
「セルの書式設定」ダイアログボックスの[罫線]タブをクリック
　　↓
現れた「プリセット」欄の中にある[外枠]ボタンをクリック
　　↓
「セルの書式設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
「新しい書式ルール」ダイアログボックスの[OK]ボタンをクリック
　　↓
[件付き書式ルールの管理」ダイアログボックスの[新規ルール]ボタンをクリック
　　↓
現れた「新しい書式ルール」ダイアログボックスの「ルールの種類を選択して下さい」欄の中にある[数式を使用して、書式設定するセルを決定]をクリック
　　↓
現れた「次の数式を満たす場合に値を書式設定」欄の中に

=WEEKDAY(F1)=7

と入力
　　↓
「新しい書式ルール」ダイアログボックスの[書式]ボタンをクリック
　　↓
現れた「セルの書式設定」ダイアログボックスの[フォント]タブをクリック
　　↓
現れた[色]欄をクリック
　　↓
現れた色のサンプルの中にある青色の四角形をクリック
　　↓
「セルの書式設定」ダイアログボックスの[罫線]タブをクリック
　　↓
現れた「プリセット」欄の中にある[外枠]ボタンをクリック
　　↓
「セルの書式設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
「新しい書式ルール」ダイアログボックスの[OK]ボタンをクリック
　　↓
「条件付き書式ルールの管理」ダイアログボックスの[新規ルール]ボタンをクリック
　　↓
現れた「新しい書式ルール」ダイアログボックスの「ルールの種類を選択して下さい」欄の中にある[指定の値を含むセルだけを書式設定]をクリック
　　↓
現れた「次のセルのみを書式設定」欄の左端の欄をクリック
　　↓
現れた選択肢の中にある「セルの値」をクリック
　　↓
「次のセルのみを書式設定」欄の左から2番目の欄をクリック
　　↓
現れた選択肢の中にある[次の値に等しくない]をクリック
　　↓
「次のセルのみを書式設定」欄の左から3番目の欄に

=""

と入力
　　↓
「新しい書式ルール」ダイアログボックスの[書式]ボタンをクリック
　　↓
現れた「セルの書式設定」ダイアログボックスの[罫線]タブをクリック
　　↓
現れた「プリセット」欄の中にある[外枠]ボタンをクリック
　　↓
「セルの書式設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
「新しい書式ルール」ダイアログボックスの[OK]ボタンをクリック
　　↓
「条件付き書式ルールの管理」ダイアログボックスの[適用]ボタンをクリック
　　↓
「条件付き書式ルールの管理」ダイアログボックスの[OK]ボタンをクリック

お礼

ありがとうございます。お返事が遅くなり申し訳ございませんでした。
思った通りに表示され、本当に助かりました。
ありがとうございました。

回答No.2

kagakusuki

まず、F2セルとF3セルには次の数式を入力して下さい。

=IF(AND(ISNUMBER(1/DAY($E$1)),ISNUMBER(1/DAY($E$2))),IF($E$1+COLUMNS($F:F)-1>$E$2,"",$E$1+COLUMNS($F:F)-1),"")

　次に、F1セルに次の数式を入力して下さい。

=IF(ISNUMBER(F$2),IF(OR(COLUMNS($F:F)=1,DAY(F$2)=1),F$2,""),"")

　次に、以下の操作を行って下さい。

F1セルを右クリック
　　↓
現れた選択肢の中にある[セルの書式設定]をクリック
　　↓
現れた「セルの書式設定」ダイアログボックスの[表示形式]タブをクリック
　　↓
現れた「分類」欄の中にある[ユーザー定義]をクリック
　　↓
現れた「種類」欄に

m

と入力
　　↓
「セルの書式設定」ダイアログボックスの[OK]ボタンをクリック

　次に、同様の操作をF2セルに対して行い、「種類」欄には

d

と入力してから、「セルの書式設定」ダイアログボックスの[OK]ボタンをクリックして下さい。
　次に、同様の操作をF3セルに対して行い、「種類」欄には

aaa

と入力してから、「セルの書式設定」ダイアログボックスの[OK]ボタンをクリックして下さい。

　次に、F1～F3のセル範囲をコピーして、F列よりも右側にある列の1～3行目の範囲に貼り付けて下さい。

　以上です。

回答No.1

MackyNo1

現在のレイアウトをベースに（日付などがセルの書式設定で表示されているなら）以下のような数式に変更すればご希望の表示ができます。

Ｇ１　=IF(G2="","",IF(DAY(G2)=1,G2,""))
Ｇ２　=IF(F2<$E$2,F2+1,"")
Ｇ３　=G2

お礼

ありがとうございます。お返事が遅くなり申し訳ございませんでした。
思った通りに表示され、本当に助かりました。
ありがとうございました。