[[20100818165803]]　『日付を一気に入力したい』（夏）　ページの最後に飛ぶ

『日付を一気に入力したい』（夏）

A列に、2010/05/01から、2010/05/31の日付を、
5/1を288個、5/2を288個・・・5/31を288個まで、全ての日を288個、一ヶ月分まとめて入力したいです。

一日ずつ、フィル、連続データの作成で対応していたのですが、31日分、31回繰り返していたので、もっと簡単に出来る方法はあるのでしょうか？

よろしくお願いします。

 A1に「2010/5/1」と入力。
 A2に「=TEXT(IF(COUNTIF($A$1:A1,A1)>=288,A1+1,A1),"yyyy/mm/dd")」と入力して
 8928行目(31日×288行)まで数式コピー。

 あとは値で貼り付け(?)

 (あっくん)

 こんにちは。
A1セルに
 =DATE(2010,5,ROUNDUP(ROW()/288,))
と入力してから、A8928セルまでフィルコピーしてみてください。

 （コタ）

 「288個」と云うのはどこから来たんですか？（状況が飲み込めないのですけど）

  ただ、マクロを使えば、あっと云う間に出来る事だと思います。

 (半平太) 2010/08/18 17:38

 A1="2010/5/1"+(INT(ROW(A1)-1)/31)  でフィルダウン。

 それともこっちかな？
 A1="2010/5/1"+MOD(ROW(A1)-1,31)   でフィルダウン。(sato)

 A1に2010/5/1を入力。
A2からA288の範囲に=A1を入力。
A289へ　=A1+1を入力、これを必要範囲へコピー。
これをひな型のシートとして、必要なときにコピーしてA1の日付を変更するだけ、
という方法ではいかがでしょう。
(みやほりん)(-_∂)b

 半平太さんの仰るマクロ処理に挑戦。。何かすっきりしないけど・・
 数式はコタさんのパクリです。(^^v

 Sub test()
    Dim i As Integer
    Const myY As Integer = 2010 '年
    Const myM As Byte = 5       '月
    Const 回数 As Integer = 288 '繰り返し回数

    i = (DateSerial(myY, myM + 1, 1) - DateSerial(myY, myM, 1)) * 回数
    With Range("A1", "A" & i)
        .Formula = "=DATE(" & myY & "," & myM & ",ROUNDUP(ROW()/" & 回数 & ",))" '← コタさんの数式をパクリ!
        .Value = .Value
    End With
 End Sub
 (kei)
 数値などを少し修正しました。21:00 8/18

 ◆こんな方法はいかがでしょう
 １）A1="2010/5/1"+INT((ROW(A1)-1)/288)
 ２）名前ボックスに、「A1:A8928」と入力して、Enter
 ３）そのまま、数式バーの式を指定して、「Ctrl＋Enter」

 ★それとも、
 １）A1に、2010/5/1　と入力します
 ２）A2=$A$1+INT((ROW(A2)-1)/288)
 ３）名前ボックスに、「A2:A8928」と入力して、Enter
 ４）そのまま、数式バーの式を指定して、「Ctrl＋Enter」
 ★この方法なら、A1の日付を変えるだけで、変更することができます
 (Maron)

 皆さん、たくさんの方法をご伝授頂きました、有難うございます！
 こんなに便利な方法が、たくさんあるのですね。
 難しい数式やマクロは、まだ理解するのに、ほど遠いのですが、
 今回、皆さんに教えて頂いた方法を使用したら、作業が簡略化されましたので、
 大変助かりました！皆さん、ご丁寧に有難うございました！（夏）

 解決したようですが。。
 Maronさんから提示された手法を応用させてもらって、(Maronさん、ありがとうございます ^^)

 １）A1に、2010/5/1　と入力します
 ２）A2=$A$1+INT((ROW(A2)-1)/288)
 ３）名前ボックスに、「=INDIRECT("A2:A"&DATEDIF(A1,DATE(YEAR(A1),MONTH(A1)+1,1),"D")*288)」と入力して、
 ４）そのまま、数式バーの式を指定して、「Ctrl＋Enter」
 この方法なら、A1の年月日が変更されてもバッチリかも。。でも、面倒かなぁ!
 (kei)

コメント返信：

[ 一覧(最新更新順) ]

[[20100818165803]] 『日付を一気に入力したい』（夏） ページの最後に飛ぶ

[[20100818165803]]　『日付を一気に入力したい』（夏）　ページの最後に飛ぶ