Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
自動でシートを作成したい
投稿日時: 18/11/28 09:21:22
投稿者: nanodia

データ入力シート:Aとフォーマットシート:1を作成しておき、
ボタンを押すことでデータ入力数に応じてフォーマットを複数作成したいです。
 
 
例:
初期シート:「A」「1」
 
シート名「A」
行列   A  
1   みかん
2  りんご
3  ぶどう
 
この時データ入力数は3つあるので
シート「1」をコピーしてシート名「2」「3」を作成したいです。
 
for文を使いコピーしながら名前の変更をすればよいと思われますが
まだVBAに慣れてないので皆様のお力をお借りしたいです。
 
 
 

回答
投稿日時: 18/11/28 10:33:10
投稿者: めんたん

任意のシートをコピーして一番右に追加
Sheets("hoge").Copy After:=Sheets(Sheets.Count)
 
一番右のシートの名前を変更
Sheets(Sheets.Count).Name = "hogehoge"
 
For 〜 Next で囲んであげればいいと思います。

投稿日時: 18/12/04 17:26:24
投稿者: nanodia

うまくいきました。
ありがとうございました。
 
また何かありましたら、質問を投げかけたいと思いますので
よろしくお願いいたします。