![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.2ベストアンサー
- 回答日時:
Sub sample()
Dim s As String
Dim i As Integer
s = InputBox("年月を入力してください(例:200806)")
If s = "" Then Exit Sub
For i = 1 To 31
Sheets(Trim(Str(i))).Name = s & Right("0" & Trim(Str(i)), 2)
Next
End Sub
No.4
- 回答日時:
InputBoxのサンプルをアップしておきます。
Dim defalttuki As String
Dim tukiinput As String
defalttuki = Format(Date, "yyyymm")
tukiinput = Application.InputBox("年月指定", "年月を指定して下さい", defalttuki)
If tukiinput = "False" Or tukiinput = "" Then Exit Sub
MsgBox tukiinput
ご回答いただきありがとうございました。実際にやってみましたが、私の思っているように動きませんでした。今後の参考にさせていただきたいと思います。
No.3
- 回答日時:
Sub test()
Dim ws As Worksheet
Dim i As Integer
Dim buf, buf2 As String
buf = InputBox("シート名の先頭に挿入する文字列を指定して下さい", "シート名入力")
For Each ws In Worksheets
buf2 = Format(ws.name, "00")
ws.name = buf & buf2
Next
End Sub
(これは全シートを対象とした場合です。参考までに。)
ご回答いただきありがとうございます。指定の通りにやってみたところうまくできました。ただ、変更したくないシートもあったので、全シートの名前を変更する場合に使わせていただきます。またなにかあればご教示いただければと思いますのでよろしくお願いします。
No.1
- 回答日時:
MsgBoxには入力することは出来ません。
InputBoxなどを使うことになると思います。
ループの仕方です。
Dim i As Integer
For i = 1 to 31
msgBox i
Next i
今月の日数を取得するサンプルです。
Dim tuitati As Date
Dim nissuu As Integer
tuitati = DateSerial(Year(Date), Month(Date), 1)
nissuu = DateAdd("m", 1, tuitati) - tuitati
MsgBox nissuu
これは今月の日数ですが、応用しだいで指定月の日数を取得できます。
取得した日数分だけループしたら必要日数のシートのリネームが出来ます。
また、日付けの表氏形式は、Format関数でいけます。
シートのリネームは
Worksheets("hoge").Name = "hogeratta"
のようにします。
ただ、既存のシート名と重複する場合にはエラーになります。
前もって重複してないかチェックする必要があります。
InputBoxについては、VBAヘルプを参照してください。
丁寧なご回答ありがとうございます。
InputBoxの間違いですね。ただ今回のアドバイスは私のわずかなマクロスキルでは難しくてよくわかりませんでした。せっかく丁寧にご教授いただいたのに申し訳ありません。今後のマクロの勉強に役立たせていただきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
前の(左隣の)シートを連続参...
-
Excelで同じシートのコピーを一...
-
Excelで金銭出納帳。繰越残高を...
-
エクセルVBAでパスの¥マークに...
-
VBAでシートコピー後、シート名...
-
Excelのシートを、まとめて表示...
-
別シート参照のセルをシート毎...
-
エクセルでファイルを開いたと...
-
Accessのスプレッドシートエク...
-
EXCEL:同じセルへどんどん足し...
-
エクセルの複数シートの保護を...
-
エクセルで前のシートを連続参...
-
エクセルで前シートを参照して...
-
エクセル計算式解説
-
至急お願いします。エクセルシ...
-
Excel、同じフォルダ内のExcel...
-
複数シートの特定の位置に連番...
-
EXCEL マクロで 同じフォルダ内...
-
excelでシート毎の最終更新日を...
-
シートの保護のあとセルの列、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで同じシートのコピーを一...
-
エクセルの複数シートの保護を...
-
エクセルVBAでパスの¥マークに...
-
EXCEL:同じセルへどんどん足し...
-
VBAでシートコピー後、シート名...
-
別シート参照のセルをシート毎...
-
エクセルでファイルを開いたと...
-
EXCELで1ヶ月分の連続した日付...
-
エクセルで前のシートを連続参...
-
前の(左隣の)シートを連続参...
-
Excel、同じフォルダ内のExcel...
-
Excelで金銭出納帳。繰越残高を...
-
エクセルで前シートを参照して...
-
複数シートの特定の位置に連番...
-
Accessのスプレッドシートエク...
-
シートの保護のあとセルの列、...
-
EXCELで同一フォーマットのシー...
-
特定のシートの削除を禁止した...
-
Excelのシートを、まとめて表示...
-
エクセルで複数設定したハイパーリンク先...
おすすめ情報