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

質問

以下のような表を作成中です。

　　　B　　　C　　　　D　　E　　F　　G　　H
3　開始　　8/1　　　　　　　　　　　　8　　8
4　終了　　11/30　　　　　　　　　　 1　　2
5 　　　　　　　　 　　　　　　　　　　 水　木

G3は=G4、G4は=C3、G5は=C3の式を入力してあります。
Hからは+1で表示されるようにしてあります。

開始の日付はこのような形でできたのですが、
終了が手作業になってしまいます。
C4の11/30を参照して、列を自動追加したいと思っているのですが、
どのような方法がありますでしょうか？

マクロは少ししか経験がありません…
どうぞよろしくお願いいたします。

回答No.5

kagakusuki · ベストアンサー

ANo.2です。

>現在の状況も数式は違いますが、手で延ばせば最終日まで表示されるように作成しており、それを自動でできないかと思った次第です。

　質問者様は勘違いをされています。
　ANo.2の方法は、開始日から最終日までの日数に合わせてドラッグし直すのではなく、最初に一度だけ、100列なり、200列なり、数式を入力したセルをコピーしておくだけで、その後はコピーし直す必要は全くなく、そのまま開始日と最終日の日付を入力するだけで、余分な日付は表示せずに、必要な日付のみが自動的に表示される様になる方法です。
　例えば、G列をコピーして、H列～Z列に貼り付けた場合で、C3セルに8/28、C4セルに9/6と入力しますと、H列からP列にかけて8/28～9/6の日付が表示されるものの、数式がコピーされているQ列～Z列には何も表示されない様になっています。

　これに対し、質問者様が入力されておられる現行の数式は、

>Hからは+1で表示されるようにしてあります。

という事ですので、それだけでは余分な日数も表示されてしまう筈です。
　取り敢えず、ANo.2の方法を1度試してみて下さい。

回答No.4

keithin

ん？？

＞H3には以下の式をいれてあり、
＞月の表示と罫線を引かないようにしてあります。
＞=IF(DAY(H4)=1,H4,"")

元のご相談では

＞Hからは+1で表示されるようにしてあります。

というお話です。
そういうのは後出しというんじゃなくて、そもそも嘘を吐いてはいけません。
ご自分のご相談がまるで嘘ばっかりなんでしたら、そもそも質問する意味がありませんよ。

＞すべてのセルに月の数字８８８８・・・と並んでしまいます。

あなたの最初のご相談をごらんなさい？　８，８と並んでるじゃないですか。これは一体どういうことですか？
それに回答した通りにすれば、すべてのセルに８８８８が並んだりは決してしません。

結論：
そもそもヤリタイ事がまちがってたのでしたら、一回このご相談はキチンと解決で閉じる操作を行ってから、あらためてホントは何をしたかったのかキチンと正しい状況説明を添えてもう一回ご相談を投稿し直して下さい。

回答No.3

K Kazz（@JazzCorp）

何故に横に？
長期の日付となれば縦に展開すべきでは？？（単純に言えば量の多い方を縦に！）
スクロールのことを考えただけでもそうなる筈、横スクロールが得意な人はみたことがない！！

補足

ありがとうございます。
ガントチャートなので、横スクロールで作成しています。
後出しで申し訳ありません。

回答No.2

kagakusuki

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

=IF(AND(ISNUMBER(1/DAY($C$3)),ISNUMBER(1/DAY($C$4))),IF($C$3+COLUMNS($G:G)-1>$C$4,"",$C$3+COLUMNS($G:G)-1),"")

　次に、G3セルをコピーして、G4セルとG5セルに貼り付けて下さい。
　次に、以下の操作を行って下さい。

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

m

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

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

d

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

aaa

と入力してから、「セルの書式設定」ダイアログボックスの[OK]ボタンをクリックして下さい。
　次に、G3～G5のセル範囲をコピーして、G列よりも右側にある列の3～5行目の範囲に貼り付けて下さい。（例えば、最大でも100日間の日付を表示出来れば充分である場合には、C3やC4に入力されている日付が何月何日であるかには関係なく、H3:DB5のセル範囲に貼り付けて下さい）

　これで、C3に開始の日付を、C4に終了の日付を、それぞれ入力するだけで、必要な分のみの日付が自動的に表視されます。

補足

ありがとうございます。
現在の状況も数式は違いますが、
手で延ばせば最終日まで表示されるように作成しており、
それを自動でできないかと思った次第です。
説明が下手で申し訳ないです。

回答No.1

keithin

＞マクロは少ししか経験がありません…

ＡＬＴ＋Ｆ１１を押してＶＢＥ画面を出す
挿入メニューから標準モジュールを挿入する
下記のマクロをコピー貼り付ける

sub macro1()
range(range("H3"), range("H5").end(xltoright)).clearcontents
range("H3").resize(3, range("C4")-range("C3")).formular1c1 = "=RC[-1]+1"
end sub

ファイルメニューから終了してエクセルに戻る
ＡＬＴ＋Ｆ８を押してマクロを実行する。

言わずもがなですがＧ列以右には各行所定の表示形式を付けておきます。

補足

ありがとうございます！
ほぼ理想通りになったのですが、
後出しで申し訳ありませんが、H3には以下の式をいれてあり、
月の表示と罫線を引かないようにしてあります。
=IF(DAY(H4)=1,H4,"")
マクロを実行するとすべてのセルに月の数字８８８８・・・と並んでしまいます。
この点はどこを修正すればいいのか教えていただけないでしょうか？

申し訳ありませんがよろしくお願いいたします。