質問編集履歴
3
Next i 以降を修正したのですが､やはり上手くいきません｡よろしくお願い致します｡
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -29,6 +29,8 @@
|
|
|
29
29
|
|
|
30
30
|
Next i
|
|
31
31
|
|
|
32
|
+
If cnt = 0 Then
|
|
32
|
-
|
|
33
|
+
MsgBox "検索したシートは存在しません｡"
|
|
34
|
+
End If
|
|
33
35
|
|
|
34
36
|
```
|
2
質問を修正致しました｡よろしくお願い致します｡
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -10,6 +10,7 @@
|
|
|
10
10
|
メッセージボックスが表示されてしまいます｡
|
|
11
11
|
|
|
12
12
|
|
|
13
|
+
```VBA
|
|
13
14
|
|
|
14
15
|
Dim sh_find As String
|
|
15
16
|
Dim i As Long
|
|
@@ -28,4 +29,6 @@
|
|
|
28
29
|
|
|
29
30
|
Next i
|
|
30
31
|
|
|
31
|
-
MsgBox "検索したシートは存在しません｡"
|
|
32
|
+
MsgBox "検索したシートは存在しません｡"
|
|
33
|
+
|
|
34
|
+
```
|
1
メッセージボックスをいれた質問に修正致しました｡よろしくお願い致します｡
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -6,7 +6,11 @@
|
|
|
6
6
|
シートが存在しなかった場合に､メッセージボックスを入れたいのですが
|
|
7
7
|
上手く表示されませんので､どのようにしたらよいか教えてください｡
|
|
8
8
|
|
|
9
|
+
下記のコードの場合､シートが存在する場合でも
|
|
10
|
+
メッセージボックスが表示されてしまいます｡
|
|
9
11
|
|
|
12
|
+
|
|
13
|
+
|
|
10
14
|
Dim sh_find As String
|
|
11
15
|
Dim i As Long
|
|
12
16
|
|
|
@@ -21,5 +25,7 @@
|
|
|
21
25
|
Sheets(i).Select
|
|
22
26
|
|
|
23
27
|
End If
|
|
24
|
-
|
|
28
|
+
|
|
25
|
-
Next i
|
|
29
|
+
Next i
|
|
30
|
+
|
|
31
|
+
MsgBox "検索したシートは存在しません｡"
|