
No.1ベストアンサー
- 回答日時:
日付をどのセルに入れるのかということと、1ヶ月分というのが今日から1ヶ月分なのか今月1ヶ月分なのか指定の月一ヶ月分なのか、シートタブ上の日付の表示形式はどうしたいのか、雛形となるシートが存在するのかどうか、表示のシートがあるのかどうかで細部は変わります。
雛形として存在する一つ目のシート名が今日の日付として作成されているとして、その一つ目のシートをコピーして、翌日から1ヶ月分のシートを追加作成。その際、それぞれのシートでは、一つ目のシートのアクティブなセルのセル番地と同じセル番地にシート名と同じ日付が入力されます。
Sub シート名に今日の日付を追加する()
Dim dt
dt = InputBox("対象日付をyyyy/mm/dd形式で入力してください", "yyyy/mm/dd", Date)
If Not IsDate(dt) Then
MsgBox "yyyy/mm/ddの形式で入力してください。" _
& vbCrLf & "処理を中止します。", vbCritical
Exit Sub
End If
For i = 2 To 31
dt = DateAdd("d", 1, dt)
Worksheets(1).Copy after:=Worksheets(i - 1)
With Application
Worksheets(i).Name = .Text(dt, "mm月dd日(") & .Text(dt, "aaa)")
End With
Next
Dim シート As Worksheet
Worksheets.Select
For Each シート In ActiveWindow.SelectedSheets
シート.Range(ActiveCell.Address).Value = シート.Name
Next シート
Exit Sub
End Sub
ありがとうございます!!!!!!!!!!
すごい!!!!
一発で問題解決しました♡
助かりましたm(__)mm(__)m
本当にありがとうございます。
No.3
- 回答日時:
失礼
× 表示のシートがあるのかどうかで細部は変わります。
○ 非表示のシートがあるのかどうかで細部は変わります。
#1のプロシージャは非表示のシートがあるとエラーで止まります。
No.2
- 回答日時:
複数のシートに「日付+曜日」の連続した名前を付けたい。
またそのシート名を任意のセルに表示させたい。
…と言う質問でしょうか?
マクロを使って設定することになります。
組んでもらったマクロを使うよりも、いますぐ手で入力したほうが早く終わると思います。
・・・
自分なら適当なシートに連続した日付を入力してそれをTEXT関数で文字列に変換します。
そしてそのセルをコピーして「値として貼り付け」し、
さらに「値として貼り付け」した値をコピーしシートの名前に貼り付けます。
=TEXT(A1,"yyyy年mm月dd日 (aaa)")
こんな感じの関数式。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの祝日に色が反映しない 4 2022/05/18 09:58
- Excel(エクセル) Excel セルに入っている日付を参照して、別シートのリストを表示させたい 1 2022/04/12 17:02
- Excel(エクセル) シート参照を含む数式を連続コピー 3 2022/12/10 11:42
- Excel(エクセル) Excelについて 1 2023/03/06 10:26
- Excel(エクセル) 添付写真上のExcelシートのように時間と曜日ごとに担当者が振り分けられているシートがあります。 例 1 2023/03/08 13:02
- Excel(エクセル) Excelで行削除をすると… 1 2023/07/26 11:57
- Excel(エクセル) Excel vbaについて、知恵を下さい。 下表①で出勤が「あり」になっている対象者を隣のシートにあ 1 2022/10/20 18:58
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Excel(エクセル) Excelシフト表 固定シフトの自動変換化 1 2022/04/14 16:10
- Excel(エクセル) Excelで祝日を除く1回目の金曜日を返す 3 2023/01/31 16:07
このQ&Aを見た人はこんなQ&Aも見ています
-
VBAでセルに入っている日付をシート名にする
Excel(エクセル)
-
EXCELで同一フォーマットのシートを31日分簡単に作成する方法は?
PowerPoint(パワーポイント)
-
エクセルのシート毎に日付
Excel(エクセル)
-
-
4
1ヶ月分の日付を一度に出す方法はありますか?
その他(パソコン・スマホ・電化製品)
-
5
エクセルで、セルの日付をシート名にしたい
Excel(エクセル)
-
6
エクセル 日付 指定 連続印刷
Excel(エクセル)
-
7
日付だけを変更して印刷(Excel)
Excel(エクセル)
-
8
エクセルのシート間で連続した日付データを作りたい
Excel(エクセル)
-
9
エクセルのシート見出し名を簡単に連続表示
Excel(エクセル)
-
10
エクセル シート毎 連続で曜日を入れる
Excel(エクセル)
-
11
エクセルでシート名を連続で参照するには
Excel(エクセル)
-
12
Excelでシートに年月を自動で変更するやり方
Excel(エクセル)
-
13
エクセルVBAで日報自動印刷
Access(アクセス)
-
14
空白セル内の数式を残したままで空白セル扱いとしたいのですが
Excel(エクセル)
-
15
シートをたくさんコピーするには?シートを日付順にコピーするには?
Excel(エクセル)
-
16
日誌を作るため印刷時に日付をずらしたい
その他(Microsoft Office)
-
17
エクセル 平日のみ連絡印刷
Excel(エクセル)
-
18
Excelで同じシートのコピーを一気に複数作りたい
Excel(エクセル)
-
19
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
20
EXCELで条件付き書式で空白セルの時は塗りつぶし無しにする方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のセルだけ結果がおかしい...
-
エクセルのdatedif関数を使って...
-
エクセルのVBAで集計をしたい
-
【マクロ】【配列】3つのシー...
-
vba テキストボックスとリフト...
-
エクセル ドロップダウンリスト...
-
【関数】同じ関数なのに、エラ...
-
Office2021のエクセルで米国株...
-
【マクロ】列を折りたたみ非表...
-
9月17日でサービス終了らし...
-
【マクロ】アクティブセルの時...
-
ページが変なふうに切れる
-
【条件付き書式】シートの中で...
-
【マクロ】3行に上から下に並...
-
【マクロ】オートフィルターの...
-
【マクロ】EXCELで読込したCSV...
-
【画像あり】オートフィルター...
-
他のシートの検索
-
エクセルの循環参照、?
-
Excelファイルを開くと私だけVA...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
9月17日でサービス終了らし...
-
エクセル
-
【マクロ】WEBシステムから保存...
-
エクセルの循環参照、?
-
エクセル ドロップダウンリスト...
-
エクセルのdatedif関数を使って...
-
特定のセルだけ結果がおかしい...
-
【マクロ】A列にある、日付(本...
-
【マクロ】EXCELで読込したCSV...
-
【マクロ】アクティブセルの時...
-
【エクセル】期限アラートについて
-
iPhoneのExcelアプリで、別のシ...
-
【関数】同じ関数なのに、エラ...
-
Excelの新しい空白のブックを開...
-
【マクロ】3行に上から下に並...
-
【マクロ】宣言は、何のために...
-
VBA チェックボックスをオーバ...
-
Excelについての質問です 並べ...
-
【マクロ】アクティブセルの2...
-
【関数】不規則な文章から●●-●●...
おすすめ情報