No.1ベストアンサー
- 回答日時:
まずEXCELの最大行数は65536ですから、もしお使いのEXCELがOFFICE2007でないと全部は展開できませんよ。
(150行×365日×3年=164,250行)OFFICE2003までなら3年分1日当たり59行が限度です。もしくは1日150行なら436日(2008/3/10)で限界です。
以下はOFFICE2007用のマクロです
Sub Macro()
Dim DT As Date
DT = DateValue("2007/1/1")
Range("A1").Select
Application.ScreenUpdating = False
Do While DT < DateValue("2010/01/01")
Selection.Resize(150, 1).Value = DT
DT = DT + 1
Selection.Offset(150, 0).Select
Loop
end0:
Application.ScreenUpdating = True
End Sub
以下はOFFICE2003以前用のマクロです
Sub Macro()
Dim DT As Date
DT = DateValue("2007/1/1")
Range("A1").Select
Application.ScreenUpdating = False
Do While DT < DateValue("2008/03/11")
Selection.Resize(150, 1).Value = DT
DT = DT + 1
Selection.Offset(150, 0).Select
Loop
end0:
Application.ScreenUpdating = True
End Sub
マクロはALT+F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。実行はシート画面に戻って、ALT+F8を押してマクロ一覧からマクロ名を選択して実行します。
ありがとうございます。マクロで出来ました!
今、マクロの勉強をはじめたばかりで、マクロで出来ないかなとも思ったのですが、まだ私の頭では無理でした。。。
マクロも頑張って勉強していきます。
ありがとうございました。
No.2
- 回答日時:
A1のセルに2007/1/1と入力します。
A1のセルを右クリックして「コピー」を選択します。
A2のセルからA150のセルをドラッグして(色が変わって太い縁取りが表示される)そのセル内で「貼り付け」を選択します。
A151のセルに2007/1/1と入力します。
A151のセルを右クリックして「コピー」を選択します。
A152のセルからA300のセルをドラッグして(色が変わって太い縁取りが表示される)そのセル内で「貼り付け」を選択します。
この後、
A1のセルからA300のセルまでドラッグします。
A300のセルの右下のカド付近にカーソルを近づけるとカーソルが+になります。
その状態でさらに下に必要な分までドラッグし続けます。
ためしに3行ぐらいでやってみて動作確認をしてみれば分かると思います。
ありがとうございます。
はじめにkeroro32さんの方法でやってみたのですが、2007/1/1と2007/1/2の繰り返しになってしまったので、出来ませんでした。。。
なのでほかの方法があるかと思ったのですが。。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) エクセル・セルに数式を入力してセル指定計算 2 2023/04/21 12:46
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) 現時点の年齢を算出して、その年齢と一致したセルを色付けしたい。 4 2022/06/23 17:49
- Excel(エクセル) DATEVALUE関数がエラーになる 2 2022/07/12 19:30
- Excel(エクセル) シート参照を含む数式を連続コピー 3 2022/12/10 11:42
- Excel(エクセル) xlDownの使い分けについての質問です vbaでxlDownを使って一覧近い空白までのセルをコピー 3 2022/08/04 12:20
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Excel(エクセル) エクセルで、特定のセルの内容を更新すると、別の特定セルに 更新日付が自動的に表示させる方法はあります 1 2022/11/14 21:03
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで数字から名前に変...
-
エクセルのチェックボックスを...
-
エクセルで漢字を数字に変換す...
-
エクセル2007 番地の並び替え...
-
pages で「テキストを左右両端...
-
エクセルで縦書きルビの付け方
-
エクセルのマクロで悩んでます
-
エクセル関数で…
-
Excel VBAでオートフィルタ後...
-
エクセル VBA ある条件でセル...
-
エクセルの列の挿入ができない
-
Excelのマクロを勉強したいので...
-
VBAで「セルに何か入っている場...
-
エクセルで数字を1文字ずつセル...
-
折り返して表示、縮小して表示...
-
パワーポイント(表)での縦書...
-
セルに、2009/8/2 21:46:00と...
-
マックで右クリック
-
二つのセルの文字列を結合する
-
エクセルで、縦の列に順番に1...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのチェックボックスを...
-
エクセルで数字から名前に変...
-
エクセルでのセルをまたぐ文字...
-
VBAで「セルに何か入っている場...
-
Excel:セルに入力されている日...
-
エクセル関数で…
-
Excel関数 「日付を入力...
-
エクセルで漢字を数字に変換す...
-
エクセル 条件が成立した場合...
-
エクセルで縦書きルビの付け方
-
エクセルでのNULLという文字列...
-
エクセルについて、A1が1ならば...
-
(EXCEL)CELLの色をカウントす...
-
エクセルにて結合サイズが異な...
-
エクセル関数で「数値が入力さ...
-
エクセル 空白を除き左に詰め...
-
エクセルで空白のセルを探して...
-
pages で「テキストを左右両端...
-
エクセルファイルを開くとメッ...
-
折り返して表示、縮小して表示...
おすすめ情報