|
初心者なので、教えてください。
空白で、塗りつぶしなしのセルをカウントしたいので、こんな式を使いました。
Sub Test21()
Dim myRange As Range
Dim c As Range
Dim i16 As Long
Set myRange = ActiveSheet.Range("Q4:V8", "J4:O8", "C4:H8") _
.SpecialCells(xlCellTypeBlanks)
For Each c In myRange
If c.Interior.ColorIndex = xlNone Then
i16 = i16 + 1
End If
Next
With Range("G24")
.Value = i16
.Activate
End With
End Sub
ところが・・・。
範囲指定が、("Q4:V8", "J4:O8")のように2カ所の場合は、うまく計算して、
指定したセルに表示してくれるのですが、上の("Q4:V8", "J4:O8", "C4:H8")
ように3カ所になると「引数の数が一致していません。または、不正なプロパ
ティーを指定しています。」というエラーが出てしまいます。
カンマで、範囲をつないでいけばいいと安易に考えていたのですが、どのようにした
よいでしょうか。
|
|