[[20130521100012]]　『期間内すべての日付を表示する方法』（トンボ）　ページの最後に飛ぶ

『期間内すべての日付を表示する方法』（トンボ）

 B列とC列に日付が入力されています。
 B2～B1001までとC2～C1001まであります。
 このB列とC列の日付をH列～に1日づつ表示させたいです。
 例えばB2に2013/5/21、C2に2013/5/23とある場合、
 H2に2013/5/21、I2に2013/5/22、J2に2013/5/23と
 なるようにしたいです。
 B列よりC列のほうが未来の日付になっています。
 B列とC列の日付の間は最大で90日しかありません。
 それなので最大でH列～CS列までに入る予定です。
 宜しくお願いします。
 （トンボ）

 Ｈ３に
 =IF(OR($C3-$B3<=0,$B3+COLUMN(H3)-7>$C3-1),"",$B3+COLUMN(H3)-7)
 これを、右や下に必要なところまでフィル。
 BJ　10:20修正。

マクロ案。

 Sub test()
    Dim iR As Long
    Dim iC As Long
    Dim d As Date

    For iR = 2 To 1001
        iC = 8
        For d = Cells(iR, "B").Value To Cells(iR, "C").Value
            Cells(iR, iC).Value = d
            iC = iC + 1
        Next d
    Next iR
End Sub
(???)

 (???)さん、ありがとうございます。
 出来ればマクロではなく計算式でお願いします。

 BJさん、ありがとうございます。
 B列とC列の日付も反映したいです。

 どうかよろしくお願いします。
 （トンボ）

 修正しようと思ったら、なんどもぶつかり？？、以下そのまま。

 たびたびすみません。
 間じゃないのね。
 =IF(OR($C3-$B3<=0,$B3+COLUMN(H3)-8>$C3),"",$B3+COLUMN(H3)-8)
 BJ

 H2 =IF(B2="","",B2)　　下コピー
 I2 =IF(H2="","",IF(H2=$C2,"",H2+1))　右と下にコピー

 で、いいんでない？

 （名無しのおっさん）

コメント返信：

[ 一覧(最新更新順) ]

[[20130521100012]] 『期間内すべての日付を表示する方法』（トンボ） ページの最後に飛ぶ

[[20130521100012]]　『期間内すべての日付を表示する方法』（トンボ）　ページの最後に飛ぶ