teratail
回答率
85.47%
質問するログイン新規登録
トップに関する質問Excel VBAの繰り返し文に出るエラー

編集履歴

質問編集履歴

2

ソースコード前後を区切り、見やすくしました

2016/08/10 02:27

投稿

iemon-yasu
iemon-yasu

スコア18

test CHANGED
File without changes
test CHANGED
@@ -18,39 +18,39 @@
18
18
 
19
19
  ###該当のソースコード
20
20
 
21
- '''Sub check4()
21
+ ```Sub check4()
22
22
 
23
- '''Dim InputRow As Range'''
23
+ Dim InputRow As Range
24
24
 
25
25
 
26
26
 
27
- '''Worksheets("整合性確認").Activate'''
27
+ Worksheets("整合性確認").Activate
28
28
 
29
- '''ActiveSheet.Cells.Select'''
29
+ ActiveSheet.Cells.Select
30
30
 
31
31
 
32
32
 
33
- '''InputRow = "InputRow,1"'''
33
+ InputRow = "InputRow,1"
34
34
 
35
35
 
36
36
 
37
37
 
38
38
 
39
- '''Worksheets("整合性確認②").Activate'''
39
+ Worksheets("整合性確認②").Activate
40
40
 
41
- '''ActiveSheet.Cells.Select'''
41
+ ActiveSheet.Cells.Select
42
42
 
43
- '''Selection.EntireColumn.Hidden = False'''
43
+ Selection.EntireColumn.Hidden = False
44
44
 
45
45
 
46
46
 
47
- '''For Each InputRow In Range("A1:A104876")'''
47
+ For Each InputRow In Range("A1:A104876")
48
48
 
49
- '''InputRow = InputRow + 1'''
49
+ InputRow = InputRow + 1
50
50
 
51
- '''Next InputRow'''
51
+ Next InputRow
52
52
 
53
- End Sub'''
53
+ End Sub```
54
54
 
55
55
 
56
56
 

1

ソースコード前後に'''を付け、見やすくしました。

2016/08/10 02:26

投稿

iemon-yasu
iemon-yasu

スコア18

test CHANGED
File without changes
test CHANGED
@@ -18,39 +18,39 @@
18
18
 
19
19
  ###該当のソースコード
20
20
 
21
- Sub check4()
21
+ '''Sub check4()
22
22
 
23
- Dim InputRow As Range
23
+ '''Dim InputRow As Range'''
24
24
 
25
25
 
26
26
 
27
- Worksheets("整合性確認").Activate
27
+ '''Worksheets("整合性確認").Activate'''
28
28
 
29
- ActiveSheet.Cells.Select
29
+ '''ActiveSheet.Cells.Select'''
30
30
 
31
31
 
32
32
 
33
- InputRow = "InputRow,1"
33
+ '''InputRow = "InputRow,1"'''
34
34
 
35
35
 
36
36
 
37
37
 
38
38
 
39
- Worksheets("整合性確認②").Activate
39
+ '''Worksheets("整合性確認②").Activate'''
40
40
 
41
- ActiveSheet.Cells.Select
41
+ '''ActiveSheet.Cells.Select'''
42
42
 
43
- Selection.EntireColumn.Hidden = False
43
+ '''Selection.EntireColumn.Hidden = False'''
44
44
 
45
45
 
46
46
 
47
- For Each InputRow In Range("A1:A104876")
47
+ '''For Each InputRow In Range("A1:A104876")'''
48
48
 
49
- InputRow = InputRow + 1
49
+ '''InputRow = InputRow + 1'''
50
50
 
51
- Next InputRow
51
+ '''Next InputRow'''
52
52
 
53
- End Sub
53
+ End Sub'''
54
54
 
55
55
 
56
56