エクセルVBAでどう書けばいいですか

質問

お世話になります。
エクセルVBAを勉強中です。
次のようなものは、どのように書けばよいのですか。

「今見ているシートの全ての網かけを選択する」

よろしくお願いいたします。

回答No.2

ham_kamo · ベストアンサー

こんな感じでしょうか。

Sub SelectShade()
　Dim R As Range
　Dim RngStr As String
　For Each R In ActiveSheet.UsedRange
　　If R.Interior.Pattern <> xlNone Then
　　RngStr = RngStr & R.Address(False, False) & ","
　　End If
　Next
　If Len(RngStr) > 0 Then
　　RngStr = Left(RngStr, Len(RngStr) - 1)
　　Range(RngStr).Select
　End If
End Sub

回答No.1

finneganswake

それくらいだったらマクロの自動記録を使ってやってみたほうが早いよ。

お礼

回答ありがとうございます。
マクロの自動記録はやってみたんですが、思い通りにはできませんでした。
しかしfinneganswake様のアドバイスで希望のものができました。
どうもありがとうございました。