回答編集履歴

1

追記

2021/02/09 06:13

投稿

退会済みユーザー
test CHANGED
@@ -1,6 +1,8 @@
1
1
  なんらかの形でフラグ持たせて条件判定でいいんじゃないですかね。
2
2
 
3
3
  ```VBA
4
+
5
+ 'Boolean型の初期値はFalse
4
6
 
5
7
  Dim Checker As Boolean
6
8
 
@@ -14,13 +16,9 @@
14
16
 
15
17
  Checker = True
16
18
 
17
- Else
19
+ ElseIf Checker = True Then
18
20
 
19
- If Checker = True Then
20
-
21
- Exit For
21
+ Exit For
22
-
23
- End If
24
22
 
25
23
  End If
26
24