回答編集履歴

1

コードの追加

2018/04/22 08:00

投稿

hatena19
hatena19

スコア33620

test CHANGED
@@ -1,8 +1,8 @@
1
1
  `Range("H3:J32").cells(row,col)` というのが間違ってますね。
2
2
 
3
+ これだと、H3:J32の範囲の左上を基準としてセルを指定することになります。
3
4
 
4
-
5
- 例えば、H3:J32の範囲の左上を基準としてセルを指定することになります。
5
+ 例えば、`Range("H3:J32").cells(1,1)` はH3セルになります。
6
6
 
7
7
 
8
8
 
@@ -37,3 +37,31 @@
37
37
  End Sub
38
38
 
39
39
  ```
40
+
41
+
42
+
43
+ **おまけ**
44
+
45
+ For Each を使うと下記のようにシンプルに記述できます。
46
+
47
+ ```vba
48
+
49
+ Sub Sample2()
50
+
51
+ Dim cl As Range
52
+
53
+
54
+
55
+ For Each cl In Range("H3:J32")
56
+
57
+ If (cl.Value Mod 2) = 0 Then
58
+
59
+ cl.Font.ColorIndex = 3
60
+
61
+ End If
62
+
63
+ Next
64
+
65
+ End Sub
66
+
67
+ ```