質問編集履歴
3
Next i 以降を修正したのですが､やはり上手くいきません｡よろしくお願い致します｡
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -60,7 +60,11 @@
|
|
|
60
60
|
|
|
61
61
|
|
|
62
62
|
|
|
63
|
+
If cnt = 0 Then
|
|
64
|
+
|
|
63
|
-
MsgBox "検索したシートは存在しません｡"
|
|
65
|
+
MsgBox "検索したシートは存在しません｡"
|
|
66
|
+
|
|
67
|
+
End If
|
|
64
68
|
|
|
65
69
|
|
|
66
70
|
|
2
質問を修正致しました｡よろしくお願い致します｡
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -21,6 +21,8 @@
|
|
|
21
21
|
|
|
22
22
|
|
|
23
23
|
|
|
24
|
+
|
|
25
|
+
```VBA
|
|
24
26
|
|
|
25
27
|
|
|
26
28
|
|
|
@@ -59,3 +61,7 @@
|
|
|
59
61
|
|
|
60
62
|
|
|
61
63
|
MsgBox "検索したシートは存在しません｡"
|
|
64
|
+
|
|
65
|
+
|
|
66
|
+
|
|
67
|
+
```
|
1
メッセージボックスをいれた質問に修正致しました｡よろしくお願い致します｡
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -11,6 +11,14 @@
|
|
|
11
11
|
シートが存在しなかった場合に､メッセージボックスを入れたいのですが
|
|
12
12
|
|
|
13
13
|
上手く表示されませんので､どのようにしたらよいか教えてください｡
|
|
14
|
+
|
|
15
|
+
|
|
16
|
+
|
|
17
|
+
下記のコードの場合､シートが存在する場合でも
|
|
18
|
+
|
|
19
|
+
メッセージボックスが表示されてしまいます｡
|
|
20
|
+
|
|
21
|
+
|
|
14
22
|
|
|
15
23
|
|
|
16
24
|
|
|
@@ -44,6 +52,10 @@
|
|
|
44
52
|
|
|
45
53
|
End If
|
|
46
54
|
|
|
47
|
-
|
|
55
|
+
|
|
48
56
|
|
|
49
57
|
Next i
|
|
58
|
+
|
|
59
|
+
|
|
60
|
+
|
|
61
|
+
MsgBox "検索したシートは存在しません｡"
|