Excel VBA質問箱 IV

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

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


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

67407 / 76732

←次へ　｜　前へ→


	【13882】Re:セルの範囲指定の方法は？

ichinose - 04/5/15(土) 17:59 -


	引用なし

	パスワード

▼kuchar さん：
こんにちは。

>初心者なので、教えてください。
>空白で、塗りつぶしなしのセルをカウントしたいので、こんな式を使いました。
>Sub Test21()
>　Dim myRange As Range
>　Dim c As Range
>　Dim i16 As Long
>　Set myRange = ActiveSheet.Range("Q4:V8", "J4:O8", "C4:H8") _
'　　　　　　　　　　　　　　　　　　　　↑を"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")
>ように３カ所になると「引数の数が一致していません。または、不正なプロパ
>ティーを指定しています。」というエラーが出てしまいます。
>カンマで、範囲をつないでいけばいいと安易に考えていたのですが、どのようにした
>よいでしょうか。

2 hits

▼

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