(マスター)というシートがありまして、そのシートをコピーしてシート名に1からの連番をふる
マクロをお教え下さい。
Sub sub_CopySample()
Dim myLooP As Integer
For myLooP = 1 To 10
Sheets("マスター").Copy After:=Sheets(myLooP)
Next myLooP
For myLooP = 1 To 10
Sheets(myLooP + 1).Name = myLooP
Next myLooP
End Sub
これだと止まりません。
1シートづつ増やしたいのですが。
No.4ベストアンサー
- 回答日時:
>1シートづつ増やしたいのですが。
マクロを実行するごとに1シート増やしたいという事でしょうか。
ブックにマスターというシートしかない(1番のシートを増やす時だけ)が前提ですが
Sub Macro1()
myNumber = Worksheets.Count
Sheets("マスター").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = myNumber
End Sub
No.3
- 回答日時:
>1シートづつ増やしたいのですが。
こういうことを言いたかったのですか。
sub macro2()
dim i
i = 1
worksheets("マスター").copy after:=worksheets(worksheets.count)
on error goto errhandle
activesheet.name = i
exit sub
errhandle:
i = i + 1
resume
end sub
No.2
- 回答日時:
im myLooP As Integer
For myLooP = 1 To 10
Sheets("sheet1").Copy After:=Sheets(myLooP)
Stop
Next myLooP
For myLooP = 1 To 10
Sheets(myLooP + 1).Name = myLooP
Next myLooP
End Sub
Stopを入れればそこで止まりますが。
No.1
- 回答日時:
はて?
sub macro1()
dim i as integer
for i = 1 to 10
’常にマスターからコピーする。複写シートに名前を付ける。
worksheets("マスター").copy after:=worksheets(worksheets.count)
activesheet.name = i
next i
end sub
といった事でしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
これ何て呼びますか Part2
あなたのお住いの地域で、これ、何て呼びますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
複数シートの特定の位置に連番を振る方法??
その他(Microsoft Office)
-
Excel VBA シート名変更時、重複していたら連番を付けたい
その他(Microsoft Office)
-
エクセルのシート名変更で重複した時のvbaの処理
Visual Basic(VBA)
-
-
4
Excelシート名が重複してらシート名に連番を付加させる方法
Excel(エクセル)
-
5
EXCEL/VBAで右へ連番付きのワークシートの追加
Access(アクセス)
-
6
マクロ VBA ファイル名を連番でつけたいのですが
Access(アクセス)
-
7
エクセルでシート名を連続で参照するには
Excel(エクセル)
-
8
セルの値と同じ名前のシートをアクティブにするには?
Excel(エクセル)
-
9
バッチ終了時にDOS窓を閉じるコマンド
その他(プログラミング・Web制作)
-
10
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
11
EXCELでワークシートを開いたらマクロを自動実行したい
Excel(エクセル)
-
12
自動で複数セルの内容をシート名にする
Excel(エクセル)
-
13
Excel 全シート上のボタンを削除 VBA
Excel(エクセル)
-
14
TODAY()で設定したセルの日付が変わったらマクロを実施させたい
Visual Basic(VBA)
-
15
VBAでシートコピー後、シート名が重複している時の処理
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【マクロ】毎回、ファイル名が...
-
Excelで金銭出納帳。繰越残高を...
-
エクセルの複数シートの保護を...
-
別シート参照のセルをシート毎...
-
エクセルVBAでパスの¥マークに...
-
前の(左隣の)シートを連続参...
-
エクセルでファイルを開いたと...
-
特定のシートの削除を禁止した...
-
エクセルのシート名をリスト化...
-
シートの保護のあとセルの列、...
-
複数シートの色付きセルがある...
-
条件に応じて特定の行を非表示...
-
Excelのシートを、まとめて表示...
-
Excel2007で、太字にした行のみ...
-
エクセル 計算式も入っていない...
-
Excel にて非表示行を探すワー...
-
Excelで同じシートのコピーを一...
-
エクセルで複数設定したハイパーリンク先...
-
VBAでシートコピー後、シート名...
-
シートを任意の日付で自動で作...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】毎回、ファイル名が...
-
シートをコピーして シートに...
-
エクセルのマクロで指定条件一...
-
Excelでシート名と最終更新日を...
-
【マクロ】顧客番号にて一致さ...
-
Excel シートを自動作成、セル...
-
Excel マクロ 他ブックのシート...
-
新しいマクロの記録でコピーし...
-
エクセルマクロの自動実行について
-
VBA:シートの追加とセルからの...
-
エクセルの複数シートの保護を...
-
別シート参照のセルをシート毎...
-
条件に応じて特定の行を非表示...
-
エクセルVBAでパスの¥マークに...
-
Excelで金銭出納帳。繰越残高を...
-
Excelで同じシートのコピーを一...
-
Excelのシートを、まとめて表示...
-
エクセルでファイルを開いたと...
-
Excel2007で、太字にした行のみ...
-
Accessのスプレッドシートエク...
おすすめ情報