質問編集履歴
2
test
CHANGED
|
File without changes
|
test
CHANGED
|
File without changes
|
1
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -40,33 +40,25 @@
|
|
|
40
40
|
|
|
41
41
|
For y = 1 To R.Columns.Count
|
|
42
42
|
|
|
43
|
-
Row = 14
|
|
44
|
-
|
|
45
43
|
For x = 1 To R.Rows.Count
|
|
46
44
|
|
|
47
|
-
|
|
45
|
+
Row = 13 + x
|
|
48
46
|
|
|
49
|
-
|
|
47
|
+
If R(x, y).DisplayFormat.Interior.ColorIndex = "44" Then Range("M" & Row).Value = "○"
|
|
50
48
|
|
|
51
|
-
|
|
49
|
+
Next x
|
|
52
50
|
|
|
53
|
-
|
|
51
|
+
Debug.Print "xは" & x
|
|
54
52
|
|
|
55
|
-
|
|
53
|
+
Next y
|
|
56
54
|
|
|
57
|
-
Row = Row + 1
|
|
58
|
-
|
|
59
|
-
|
|
55
|
+
Debug.Print "yは" & y
|
|
60
|
-
|
|
61
|
-
Next
|
|
62
56
|
|
|
63
57
|
MsgBox ("一致セル数 : " & i)
|
|
64
58
|
|
|
65
59
|
Range("M10") = i
|
|
66
60
|
|
|
67
61
|
End Sub
|
|
68
|
-
|
|
69
|
-
|
|
70
62
|
|
|
71
63
|
```
|
|
72
64
|
|