EXCELでセルK列に入力した名称でシートをどんどん作成したいのですが、
下記のようにやってみましたが、うまく実行されません。
2回目の←の部分で、終わってしまいます。
詳しい方、教えてください。
Sub Macro3()
Dim neSheet As String
Dim fMax As Integer
Dim num As Integer
Dim i As Integer
fMax = Range("B2").Value
num = 2
For i = 1 To fMax
neSheet = Range("k" & num).Value
Worksheets.Add(After:=Worksheets(1)).Name = neSheet ←
num = num + 1
Next i
End Sub
No.1ベストアンサー
- 回答日時:
ワークシートを追加すると、アクティブシートが
変わってしまいます。
neSheet = Range("k" & num).Value
↑こういう記述をワークシートオブジェクトからきちんと
記述してください。
Sub Macro3()
Dim neSheet As String
Dim fMax As Integer
Dim i As Integer
Dim sht As Worksheet
Set sht = Worksheets(1)
fMax = sht.Range("B2").Value
For i = 1 To fMax
neSheet = sht.Range("k" & (i + 1)).Value
Worksheets.Add(After:=Worksheets(1)).Name = neSheet
Next i
End Sub
↑このコードは、作成するシート情報
(セルB2作成シート数とK列のシート名)は最右端シートに
設定されいるものとします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
前の(左隣の)シートを連続参...
-
Excelで同じシートのコピーを一...
-
エクセルVBAでパスの¥マークに...
-
スプレッドシートの関数VLOOKUP...
-
エクセルの複数シートの保護を...
-
別シート参照のセルをシート毎...
-
複数シートの色付きセルがある...
-
EXCEL:同じセルへどんどん足し...
-
Excelで金銭出納帳。繰越残高を...
-
シートの保護のあとセルの列、...
-
エクセルでファイルを開いたと...
-
エクセルで前のシートを連続参...
-
excelでシート毎の最終更新日を...
-
エクセル 計算式も入っていない...
-
複数のピボットを同じフィルタ...
-
シート番号からシート名を取得する
-
VBAでシートコピー後、シート名...
-
エクセルで前シートを参照して...
-
Accessのスプレッドシートエク...
-
Excelのシートを、まとめて表示...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで同じシートのコピーを一...
-
エクセルの複数シートの保護を...
-
Excelで金銭出納帳。繰越残高を...
-
エクセルでファイルを開いたと...
-
EXCELで1ヶ月分の連続した日付...
-
エクセルVBAでパスの¥マークに...
-
EXCEL:同じセルへどんどん足し...
-
シートの保護のあとセルの列、...
-
別シート参照のセルをシート毎...
-
エクセルで前のシートを連続参...
-
前の(左隣の)シートを連続参...
-
EXCELで同一フォーマットのシー...
-
VBAでシートコピー後、シート名...
-
Excel 連番を入力する方法
-
エクセル 計算式も入っていない...
-
エクセルで前シートを参照して...
-
エクセルでシート名を自動入力...
-
Accessのスプレッドシートエク...
-
複数シートの特定の位置に連番...
-
エクセルのシート名をリスト化...
おすすめ情報