回答編集履歴
1
ソース追加
answer
CHANGED
|
@@ -4,7 +4,21 @@
|
|
|
4
4
|
きちんと動くと思います。
|
|
5
5
|
|
|
6
6
|
対応としては、
|
|
7
|
-
・アクティブシートを変数に保持しておいて、先にシートの追加を行ってから削除する
|
|
7
|
+
**・アクティブシートを変数に保持しておいて、先にシートの追加を行ってから削除する**
|
|
8
|
-
・アクティブシートを削除する前にシートAを追加してマクロ終了時にシートAを削除する
|
|
8
|
+
**・アクティブシートを削除する前にシートAを追加してマクロ終了時にシートAを削除する**
|
|
9
9
|
|
|
10
|
-
これで行けると思いますのでご確認ください。
|
|
10
|
+
これで行けると思いますのでご確認ください。
|
|
11
|
+
|
|
12
|
+
**▼ 【例】シート作ってからアクティブシートを削除する仕様に変更したもの**
|
|
13
|
+
```vb
|
|
14
|
+
Sub reMake()
|
|
15
|
+
Application.DisplayAlerts = False
|
|
16
|
+
Dim ws_Del As Worksheet
|
|
17
|
+
Set ws_Del = ActiveSheet
|
|
18
|
+
Sheets.Add
|
|
19
|
+
Set b1 = ActiveSheet.Buttons.Add(1, 0, 100, 10)
|
|
20
|
+
Set b2 = ActiveSheet.Buttons.Add(1, 10, 100, 10)
|
|
21
|
+
b1.OnAction = "reMake"
|
|
22
|
+
ws_Del.Delete
|
|
23
|
+
End Sub
|
|
24
|
+
```
|