No.1ベストアンサー
- 回答日時:
以下のマクロを実行すると、実行した月の1日~月末日分だけシートを
コピーします。コピー元のシート名は2行目を修正して下さい
Sub Macro1()
Const org As String = "原紙"
Dim dt As Date
For dt = DateSerial(2007, Month(Date), 1) _
To DateSerial(2007, Month(Date) + 1, 0)
Worksheets(org).Copy after:=ActiveSheet
ActiveSheet.Name = Format(dt, "YYYYMMDD")
Next dt
End Sub
マクロはALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はALT+F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。
この回答への補足
ありがとうございます。
もうひとつお聞きしたいのですが、
こういうのは可能でしょうか?
例えば、作成時にメッセージみたいなので、何年何月の作成をしますかっていうのを表示してそこに入力すると、その該当月分の上記のようなシートを自動で作成ってことはちょっと無理でしょうか?
No.2
- 回答日時:
Sub Macro1()
Const org As String = "原紙"
Dim dt As Date
Dim yer, mot As String
yer = InputBox("年を設定して下さい 例:2007") '年を収得
If yer = "" Then
MsgBox "キャンセルされました"
Exit Sub
End If
mot = InputBox("月を設定して下さい 例:5") '月を収得
If mot = "" Then
MsgBox "キャンセルされました"
Exit Sub
End If
For dt = DateSerial(Val(yer), Val(mot), 1) To DateSerial(Val(yer), Val(mot) + 1, 0)
Worksheets(org).Copy after:=ActiveSheet
ActiveSheet.Name = Format(dt, "YYYYMMDD")
Next dt
MsgBox "終了"
End Sub
--------------------------------------------------
No1さんのをすこし手をくわえました。
入力する数値は間違えないで下さい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- その他(Microsoft Office) エクセルの休日について教えてください。 1 2023/01/06 15:45
- Excel(エクセル) vba アクティブシートのA1セルの値を基準に複数のシートコピー&シート名を 6 2023/04/12 18:36
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) エクセルで最下行にデータを追加するVBA 6 2023/05/09 09:30
- Excel(エクセル) シートが違う2枚のエクセルシートにある数値を別シートにコピーしたい(VBA?) 8 2022/03/31 12:24
- Excel(エクセル) Excel シート複数 金額日計表と日付 簡単にシートコピーしたら前日の残高と日付を変更させたい 1 2022/07/15 22:10
- Excel(エクセル) シート参照を含む数式を連続コピー 3 2022/12/10 11:42
- Visual Basic(VBA) 最終行の指定について教えてください。 複数シートを1シートへまとめる下記マクロでは各シートの6行目を 1 2022/10/04 18:37
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
はがきについて。
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
【関数】先頭だけにある、半角...
-
Excel ピボットテーブルで日付...
-
Excelのpivotについて質問です
-
時間によってファイル名が変わ...
-
エクセル 白黒印刷で白線を印刷...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
WPS OFFICEでの縦書きについて
-
Excelのチェックボックスの使い...
-
エクセルの条件付き書式につい...
-
エクセルのセルに同じ大きさの...
-
エクセルの関数について教えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【ExcelVBA】sheet作成時にマク...
-
エクセル/マクロ Exit Subが実...
-
VBA シートの切り替えができな...
-
マクロ実行ボタンがコピー出来ない
-
VBAでシートコピー後、シート名...
-
エクセル 「実行時エラー"13":...
-
エクセル 複数シートのフィル...
-
フェイス・シートについて教え...
-
不明なコマンドです("FROM")。...
-
Access2010 「演算子がありませ...
-
オペランドが足りませんとコメ...
-
Excel2010でふりがなが漢字にな...
-
エクセルの文字間スペースを入...
-
pythonでrequestsが使えない
-
mfc42.dllファイルってなんです...
-
貼り付けをマクロで禁止させたい。
-
WordPressをインストールしてい...
-
(int)キャストとintvalの違い
-
AUTOCAD 2010でdwlファイルの場...
-
OBSが起動できません
おすすめ情報