Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

67426 / 76732

←次へ　｜　前へ→


	【13862】セルの範囲指定の方法は？

kuchar - 04/5/15(土) 12:40 -


	引用なし

	パスワード

初心者なので、教えてください。
空白で、塗りつぶしなしのセルをカウントしたいので、こんな式を使いました。
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")のように２カ所の場合は、うまく計算して、
指定したセルに表示してくれるのですが、上の("Q4:V8", "J4:O8", "C4:H8")
ように３カ所になると「引数の数が一致していません。または、不正なプロパ
ティーを指定しています。」というエラーが出てしまいます。
カンマで、範囲をつないでいけばいいと安易に考えていたのですが、どのようにした
よいでしょうか。

3 hits

▼

【13862】セルの範囲指定の方法は？ kuchar 04/5/15(土) 12:40

≪