teratail
回答率
85.47%
質問するログイン新規登録
トップに関する質問VBA　ループ処理を簡易に書き直したい

編集履歴

質問編集履歴

2

コード修正

2020/03/31 04:58

投稿

fffu8
fffu8

スコア37

test CHANGED
File without changes
test CHANGED
@@ -12,9 +12,7 @@
12
12
 
13
13
  **Dim 判定用 As Boolean**
14
14
 
15
- **判定用=false
15
+ **判定用=false**
16
-
17
- **
18
16
 
19
17
  **For 列のループ**
20
18
 
@@ -26,9 +24,7 @@
26
24
 
27
25
  **End if**
28
26
 
29
- **Next
27
+ **Next**
30
-
31
- **
32
28
 
33
29
  **If 判定用=true**
34
30
 

1

コード修正

2020/03/31 04:58

投稿

fffu8
fffu8

スコア37

test CHANGED
File without changes
test CHANGED
@@ -8,37 +8,37 @@
8
8
 
9
9
  何か、アドバイス頂ければと思います。
10
10
 
11
- For 行のループ
11
+ **For 行のループ**
12
12
 
13
- Dim 判定用 As Boolean
13
+ **Dim 判定用 As Boolean**
14
14
 
15
- 判定用=false
15
+ **判定用=false
16
+
17
+ **
18
+
19
+ **For 列のループ**
20
+
21
+ **If 値が変更されたか判定**
22
+
23
+ **判定用=True**
24
+
25
+ ** EXIt for**
26
+
27
+ **End if**
28
+
29
+ **Next
30
+
31
+ **
32
+
33
+ **If 判定用=true**
34
+
35
+ **更新処理**
36
+
37
+ **END if**
16
38
 
17
39
 
18
40
 
19
- For 列のループ
20
-
21
- If 値が変更されたか判定
22
-
23
- 判定用=True
24
-
25
- EXIt for
26
-
27
- End if
28
-
29
- Next
30
-
31
-
32
-
33
- If 判定用=true
34
-
35
- 更新処理
36
-
37
- END if
38
-
39
-
40
-
41
- Next 行
41
+ **Next 行**
42
42
 
43
43
 
44
44