teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

コード追記

2020/10/09 02:55

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -1,4 +1,11 @@
1
1
  ```diff
2
2
  - Worksheet.Add After:=Worksheets(Worksheets.Count).Name = sheet_name
3
3
  + Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sheet_name
4
+ ```
5
+
6
+ 上記の修正でいいのですが、追加と名前変更を1行で記述するのは読みづらいので、下記のように分けた方が分かり安いかもしれません。
7
+
8
+ ```vba
9
+ Worksheets.Add After:=Worksheets(Worksheets.Count)
10
+ ActiveSheet.Name = sheet_name
4
11
  ```