vba アクティブシートのA1セルの値を基準に複数のシートコピー&シート名を

Question

いつもお世話になります。

OSはwin11、エクセルはoffice365です。

アクティブシートより複数のシートのコピー & シート名をつけたい。

条件
　1　アクティブシート(シート名は、1)は左端に限らない
　　　　左端　左から2番目　4番目と変わる
　2　アクティブシートを基準に12シート(1～12シート)
　　　11シートのコピー&シート名を

ご指導お願いします。

下記は各シート毎に手動によるコードです

Sub セルをシート名にする()
    Dim sheetobj As Worksheet
    For Each sheetobj In Worksheets
        sheetobj.Name = sheetobj.Range("A1").Value
    Next
End Sub

tatsumaru77 · Accepted Answer

アクティブシートは"１DB"です。（シート：１DBがないとエラーになります）（シート名は半角です）
シートの終端へ１～12のシートを作成します。
（既にシート１～12の何れかが存在するとエラーになります）

以下のマクロを標準モジュールに登録してください。

Option Explicit
Sub シートコピー()
    Dim ws As Worksheet
    Dim i As Long
    Dim istr As String
    Set ws = Worksheets("1DB")
    For i = 1 To 12
        istr = CStr(i)
        ws.Copy After:=Worksheets(Worksheets.count)
        Worksheets(Worksheets.count).Name = istr
    Next
    MsgBox ("完了")
End Sub

tatsumaru77 · Answer

すみません。アクティブシートとは、「マクロが実行された時に、今まさに、画面上に表示されているシート（アクティブになっているシート）」と理解していますが、この理解はあってますか。
以下、その前提で、

No4の回答の補足では、
条件１では、アクティブシートはシート名：１ですが、
条件２では、アクティブシート（１DB）となっています。（シート名：１DB）
どちらが正しいのでしょうか？
それとも、条件２のアクティブシート（１DB）は、アクティブシート（１）の誤りでしょうか。
誤りだとすると、
マクロ実行前のシート状態は、
シート名：１DB
シート名：２売上
シート名：１
となっていて、
実行後、
シート名：１DB
シート名：２売上
シート名：１
シート名：２
・・省略・・
シート名：１２
となるということでしょうか。
そうであれば、シート１のA1の値をマクロは使用しないということでしょうか。

又、
シート名：１DB
シート名：１
シート名：２売上
のように、シート：１の右側にシートがあるケースは考慮しないで良いのでしょうか。

tatsumaru77 · Answer

すみません。No3の補足を見たのですが、最初の提示された内容と話が違ってきて、よくわからなくなってきました。

１．存在するシートは、左から順にSheet1,Sheet2,Sheet3,Sheet4,Sheet5,Sheet6とする。（Sheet2～Sheet6は存在しない場合もある）
上記以外のシートが存在することは、考えなくて良い。

２．シート名を以下のように変更する。
Sheet1は、当該シートA1の値をシート名にする。(A1＝"1DB")
Sheet2は、当該シートA1の値をシート名にする。(A1="2売上")
・・・
Sheet6は、当該シートA1の値をシート名にする。(A1="6○○")

３．シート：1DBをコピーして、シート：１～シート：１２を作成する。
（コピー元は全てシート：１DB）

上記の処理であってますか？

tatsumaru77 · Answer

>A xyd 1 2 3・・・11　12
>となるよう希望します。

xydはxyzの誤りと解釈します。
１．シート：B、シート：Cは削除するということでしょうか？
もし、そうであれば、残すシートと削除するシートの規則を提示していただけませんでしょうか。

２．まず、シート１：の名前をXYZに変えて、
そのあとで、シート：XYZの右側にシート：１～シート：１２を作ればよいですか。（シート：１～シート：１２は、シート：XYZをコピーして作る）

tatsumaru77 · Answer

補足要求です。
１．コピー元のシートは、"1"ですか。

２．シートが左から以下のように並んでいた時、
シート名：A
シート名：1　　・・・左から2番目
シート名：B
シート名：C

マクロを実行した結果は、どのようなシートができれば良いのでしょうか。
シート名：1のA1セルの内容は、"XYZ"とします。

銀鱗 · Answer

For ～ Next で繰り返し処理を行ってみましょう。

Dim i As Integer

For i = 1 To 12
　【処理したいコマンド】
Next

こんなんでOK。
上の例なら12回繰り返します。
そして、変数の i を使ってシート名に関する情報を指定してやればいい。

難しくはないだろ。
もうちょっといろいろ試行錯誤してみよう。

vba アクティブシートのA1セルの値を基準に複数のシートコピー&シート名を

アクティブシートは"１DB"です。

すみません。

すみません。

>A xyd 1 2 3・・・11 12

補足要求です。

For ～ Next で繰り返し処理を行ってみましょう。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

>A xyd 1 2 3・・・11　12