こんにちは。
下記のようなマクロを作成したいのですが、どなたかお教えいただけますでしょうか。
①Sheet AのA1~F27のデータをコピー
②新しいシートを右側に挿入
③新しいシート名をSheet AのH2セルと同じにする("2016年5月"など)
④コピーした内容を貼り付け
毎月右側に新しいシートが追加されていくようにしたいです。
作業は月1です。H2セルの日付は作業したときの月になります。
例)Sheet A / 2016年5月 / 2016年6月 ・・・
初心者過ぎる質問で申し訳ないのですがよろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
簡単ですが、こんなのでも動くと思います。
---------------------------------------------------------------------------------------
Sub Macro1()
Dim strSNM As String
strSNM = Worksheets("sheetA").Range("H2")
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = strSNM
Worksheets("sheetA").Range("A1:F27").Copy
Worksheets(strSNM).Range("A1").Select
ActiveSheet.Paste
End Sub
---------------------------------------------------------------------------------------
ただ気になるのは"sheetA"のセルH2に入力されている日付です。
実際に入力されている値は「2016/1/31」などとなっているのではないでしょうか?
シート名に「/(スラッシュ)」は使えないのでその場合は追加したシートに名前を付ける際エラーになってします。
No.2
- 回答日時:
こんばんは!
すでに回答は出ていますが、「A」SheetのH2セルにはシリアル値が入っているという前提です。
Sub Sample1()
Dim wS As Worksheet
Worksheets.Add After:=Worksheets(Worksheets.Count)
Set wS = Worksheets(Worksheets.Count)
With Worksheets("A") '←「A」は実際のSheet名に!
wS.Name = Format(.Range("H2"), "yyyy年m月")
.Range("A1:F27").Copy wS.Range("A1")
End With
End Sub
※ 元データのSheet名が「A」というコードにしていますので、
実際のSheet名にしてください。
※ 月に1度だけ実行するコードです。
2度以上実行するとすでに存在するSheet名にすることはできませんのでエラーになります。
(日付までをSheet名にするのであれば1日1度は可能です)m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Excel(エクセル) Excelについて 1 2023/03/06 10:26
- Excel(エクセル) 添付写真上のExcelシートのように時間と曜日ごとに担当者が振り分けられているシートがあります。 例 1 2023/03/08 13:02
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/25 11:55
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBAでセルに入っている日付をシート名にする
Excel(エクセル)
-
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
同じ作業を複数のシートに実行させるにはどうしたらいいのでしょうか
Visual Basic(VBA)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
6
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
7
VBAでシートコピー後、シート名が重複している時の処理
Access(アクセス)
-
8
Excel VBA、 別ブックの最終行セルへのコピー&値ペースト
Visual Basic(VBA)
-
9
EXCELマクロで、シート間でのコピーペーストを繰り返す方法
Excel(エクセル)
-
10
別のシートから値を取得するとき
Visual Basic(VBA)
-
11
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
-
12
Excel2000/VBA:値と書式のみ貼り付けたい。
Excel(エクセル)
-
13
「選択範囲を解除してアクティブセルを選択」をマクロで行うにはどうすればよいでしょうか
Excel(エクセル)
-
14
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
15
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
16
エクセルでエラーが出て困っています。
Excel(エクセル)
-
17
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
18
VBA 数式を残して値をクリアについて
Excel(エクセル)
-
19
VBA ソートすると、1、11、2,3になって・・
Excel(エクセル)
-
20
エクセル マクロ 最終列までを全選択
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Aというブックの1というシート...
-
Excelの「0」だけ非表示、小数...
-
エクセルで条件に一致したセル...
-
Rangeメソッドは失敗しました。...
-
日付が未入力の際はゼロか、空...
-
別シートのセルを絶対参照にする
-
複数シートの同じセル内容を1シ...
-
エクセルで1月0日と表示される!!
-
ExcelでTODAY関数を更新させな...
-
シートAで横に並んだ項目→シー...
-
シート参照で変数を使いたい(EX...
-
エクセルのセルに、マウスで選...
-
エクセルで、勤務表から 日付...
-
Excelシートの保護時にデータの...
-
エクセルのシート間で連続した...
-
(Excel)あるセルに文字を入力...
-
VBAで、セル(Range)のオブジ...
-
エクセルVBA テキストボックス
-
エクセルのルビがついたセルを...
-
エクセルの参照先が固定されて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
エクセルで条件に一致したセル...
-
エクセルで1月0日と表示される!!
-
(Excel)あるセルに文字を入力...
-
別シートのセルを絶対参照にする
-
Rangeメソッドは失敗しました。...
-
Excelシートの保護時にデータの...
-
複数シートの同じセル内容を1シ...
-
エクセルで、加筆修正したセル...
-
シート参照で変数を使いたい(EX...
-
エクセルで複写のように自動入...
-
Excelで複数シートの選択セルを...
-
INDIRECTを使わず excelで複数...
-
ExcelでTODAY関数を更新させな...
-
式の説明をお願いします。
-
excelでハイパーリンクになって...
-
エクセルのルビがついたセルを...
-
Excelでスクロールすると文字が...
-
エクセル ハイパーリンクで画像...
おすすめ情報