合計値がある範囲の場合に印をつけるには？

質問

どなたかご存じでしたらご回答をお願いします。
【質問】
下記のＶＢＡを実行すると、「異なる 25個のものから 5個を選ぶ組み合わせ
の総数 nCr （53,130通り）」を作成します。Ａ列～Ｅ列の合計をＦ列に表示しておりますが、
Ｆ列の値が58～102の場合、Ｇ列に”●”をつけるには、
下記ＶＢＡのソースはどのように修正すればよいでしょうか？

●ＶＢＡソース

ub test()

Const MaxNum = 25
Dim s(25) As String

Dim i As Integer
Dim r As Integer
Dim c As Integer
i = 1
For r = 1 To 5
For c = 1 To 5
s(i) = Cells(r, c).Value
i = i + 1
Next
Next

Dim j, k, l, m

Dim rowX As Long
rowX = 0

rowX = rowX + 1

For i = 1 To MaxNum - 4
For j = i + 1 To MaxNum - 3
For k = j + 1 To MaxNum - 2
For l = k + 1 To MaxNum - 1
For m = l + 1 To MaxNum
Cells(rowX, 1).Value = s(i)
Cells(rowX, 2).Value = s(j)
Cells(rowX, 3).Value = s(k)
Cells(rowX, 4).Value = s(l)
Cells(rowX, 5).Value = s(m)
Cells(rowX, 6).Value = Application.WorksheetFunction.Sum(s(i), s(j), s(k), s(l), s(m))
rowX = rowX + 1
Next m
Next l
Next k
Next j
Next i

End Sub

●ＶＢＡ実行結果（やりたいこと）
Ａ　　　　Ｂ　　　　　Ｃ　　　　　Ｄ　　　　　Ｅ　　　　　Ｆ　　Ｇ
1　　　　　2　　　　　3　　　　　4　　　　　5　　　　　15　　　　　　
1　　　　　2　　　　　3　　　　　4　　　　　6　　　　　16　　　　　　
1　　　　　2　　　　　3　　　　　4　　　　　7　　　　　17　
1　　　　　2　　　　　3　　　　　4　　　　　8　　　　　18
1　　　　　2　　　　　3　　　　　4　　　　　9　　　　　19
　　　　　　　　　　　　：
　　　　　　　　　　　　：
1　　　　　5　　　　　12　　　　19　　　　　20　　　　57
1　　　　　5　　　　　12　　　　19　　　　　21　　　　58　　●
1　　　　　5　　　　　12　　　　19　　　　　22　　　　59　　●
1　　　　　5　　　　　12　　　　19　　　　　23　　　　60　　●
　　　　　　　　　　　　：
　　　　　　　　　　　　：
20　　　　21　　　　22　　　　　24　　　　25　　　　112
20　　　　21　　　　23　　　　　24　　　　25　　　　113
20　　　　22　　　　23　　　　　24　　　　25　　　　114
21　　　　22　　　　23　　　　　24　　　　25　　　　115

【注意事項】
　　・使用するエクセルは２０１０です。

以上、よろしくお願いします。

回答No.1

MackyNo1 · ベストアンサー

以下のコードを追加してみてください。

If Cells(rowX, 6).Value >= 58 And Cells(rowX, 6).Value <= 102 Then
Cells(rowX, 7).Value = "●"
End If

お礼

本日２回も回答頂きありがとうございます。
早速やってみてＧ列に●が出ました。
ありがとうございました。