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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
EXCELで同一フォーマットのシートを31日分簡単に作成する方法は?
PowerPoint(パワーポイント)
-
1ヶ月分の日付を一度に出す方法はありますか?
その他(パソコン・スマホ・電化製品)
-
Excelでシートに年月を自動で変更するやり方
Excel(エクセル)
-
-
4
日付だけを変更して印刷(Excel)
Excel(エクセル)
-
5
エクセル 日付 指定 連続印刷
Excel(エクセル)
-
6
Excelで同じシートのコピーを一気に複数作りたい
Excel(エクセル)
-
7
エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
Excel(エクセル)
-
8
エクセルのシート間で連続した日付データを作りたい
Excel(エクセル)
-
9
シートをたくさんコピーするには?シートを日付順にコピーするには?
Excel(エクセル)
-
10
エクセルのシート毎に日付
Excel(エクセル)
-
11
VBAでセルに入っている日付をシート名にする
Excel(エクセル)
-
12
エクセルで、セルの日付をシート名にしたい
Excel(エクセル)
-
13
エクセルのシート見出し名を簡単に連続表示
Excel(エクセル)
-
14
エクセル シート毎 連続で曜日を入れる
Excel(エクセル)
-
15
エクセルVBAで日報自動印刷
Access(アクセス)
-
16
エクセルでシート名を自動入力したい。
Excel(エクセル)
-
17
エクセル、ワークシートの名前を連番(?)にする方法
Excel(エクセル)
-
18
エクセルで複数のシートのクリアをしたいです
Excel(エクセル)
-
19
エクセル マクロでシート自動作成と日付入力
Excel(エクセル)
-
20
エクセルで表示形式の時刻の「0:00」を表示しないようにするには?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでシートコピー後、シート名...
-
エクセルVBAでパスの¥マークに...
-
EXCEL:同じセルへどんどん足し...
-
エクセルでファイルを開いたと...
-
エクセルの複数シートの保護を...
-
Excelで同じシートのコピーを一...
-
EXCELで1ヶ月分の連続した日付...
-
Accessのスプレッドシートエク...
-
エクセルVBA 串刺し計算の際、...
-
Excel、同じフォルダ内のExcel...
-
Excelで金銭出納帳。繰越残高を...
-
シート名ではなく、相対位置で...
-
シートが違う2枚のエクセルシー...
-
Excelのシートを、まとめて表示...
-
エクセル:ブックを開くとき、...
-
excelでシート毎の最終更新日を...
-
excelで会議室予約表の作成(マ...
-
Excelが開かない!印刷プレビュ...
-
エクセルで前シートを参照して...
-
別シートの最終行に貼り付けす...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで同じシートのコピーを一...
-
エクセルの複数シートの保護を...
-
エクセルVBAでパスの¥マークに...
-
前の(左隣の)シートを連続参...
-
Excelで金銭出納帳。繰越残高を...
-
EXCEL:同じセルへどんどん足し...
-
EXCELで1ヶ月分の連続した日付...
-
シートの保護のあとセルの列、...
-
別シート参照のセルをシート毎...
-
エクセルでファイルを開いたと...
-
EXCELで同一フォーマットのシー...
-
エクセルで前のシートを連続参...
-
エクセルで前シートを参照して...
-
VBAでシートコピー後、シート名...
-
Accessのスプレッドシートエク...
-
エクセルのシート名をリスト化...
-
複数シートの特定の位置に連番...
-
Excelのシートを、まとめて表示...
-
エクセル 計算式も入っていない...
-
スプレッドシートの関数VLOOKUP...
おすすめ情報