赤の数字の合計と緑の数字の合計

質問

Ｂ２～Ｉ１７の大きさの表があります。その中にランラムで赤で書かれた数字と緑で書かれた数字があります。赤の数字の合計をＫ１３に緑の数字の合計をＫ１５に表示するには、ＶＢでどのようにすればよいですか。
よろしくお願い致します。

回答No.2

noname#22222

次は、A1～A6の赤字を集計するサンプルコードです。

Private Sub CommandButton1_Click()
　　Dim I As Integer
　　Dim R As Integer

　　For I = 1 To 6
　　　　R = R - (ActiveSheet.Cells(I, 1).Font.ColorIndex = 3)
　　Next I
　　MsgBox "R=" & R
End Sub

お礼

ありがとうございました。参考にします。

回答No.1

めとろいと（@naktak）

Cells(m, n).Font.ColorIndexで色の値を取得出来ます。
判定して加算していきましょう。

以下、テキトーに作った例
r = 0
g = 0
For i = 64 To 68
With ActiveSheet.Cells(i, 16)
Select Case .Font.ColorIndex
Case 3 '赤
r = r + 1
Case 10 '緑
g = g + 1
End Select
End With
Next

ActiveSheet.Range("P69").Value = r
ActiveSheet.Range("P70").Value = g

お礼

ありがとうございました。参考にします。