回答編集履歴
1
コード追記
test
CHANGED
|
@@ -17,3 +17,57 @@
|
|
|
17
17
|
.Cells(r + 2, 3).Formula= "=COUNTIF(" & rng.Address & ", ""Ａ"")"
|
|
18
18
|
|
|
19
19
|
```
|
|
20
|
+
|
|
21
|
+
以降の WorksheetFunction.CountIf の部分も上記のように変更してください。
|
|
22
|
+
|
|
23
|
+
|
|
24
|
+
|
|
25
|
+
---
|
|
26
|
+
|
|
27
|
+
|
|
28
|
+
|
|
29
|
+
下記のように一気に書式と数式を設定することもできます。
|
|
30
|
+
|
|
31
|
+
|
|
32
|
+
|
|
33
|
+
```vba
|
|
34
|
+
|
|
35
|
+
'省略
|
|
36
|
+
|
|
37
|
+
|
|
38
|
+
|
|
39
|
+
With Worksheets("Sheet1")
|
|
40
|
+
|
|
41
|
+
|
|
42
|
+
|
|
43
|
+
'省略
|
|
44
|
+
|
|
45
|
+
|
|
46
|
+
|
|
47
|
+
With .Cells(r + 2, 2).Resize(3, 4)
|
|
48
|
+
|
|
49
|
+
.HorizontalAlignment = xlCenter
|
|
50
|
+
|
|
51
|
+
.Rows(1).Interior.Color = RGB(255, 242, 204)
|
|
52
|
+
|
|
53
|
+
.Rows(2).Interior.Color = RGB(204, 255, 242)
|
|
54
|
+
|
|
55
|
+
.Rows(3).Interior.Color = RGB(242, 204, 255)
|
|
56
|
+
|
|
57
|
+
.Cells(1, 1).Value = "Ａ"
|
|
58
|
+
|
|
59
|
+
.Cells(2, 1).Value = "Ｂ"
|
|
60
|
+
|
|
61
|
+
.Cells(3, 1).Value = "Ｃ"
|
|
62
|
+
|
|
63
|
+
.Offset(, 1).Resize(, 3).Formula = "=COUNTIF(C$3:C$" & r & ",$B" & r + 2 & ")"
|
|
64
|
+
|
|
65
|
+
End With
|
|
66
|
+
|
|
67
|
+
End With
|
|
68
|
+
|
|
69
|
+
```
|
|
70
|
+
|
|
71
|
+
|
|
72
|
+
|
|
73
|
+
矩形セル範囲に数式を設定する場合、左上のセルの数式を Formula に設定すると、右と左にオートフィルしたのと同様に数式が変換されて設定されます。
|