特定の色つきセルのみを選択する方法を教えてください。

Question

ＶＢＡ初学者です。
回答お願いできませんでしょうか。

特定の色つきセルのみを選択する方法を教えてください。

例）RGB(160, 230, 170)の色の付いた 複数のセルのみ、選択したい。

Answer 1

たとえばこんな感じでどうでしょうか。

Sub sample()
    Dim c  As Range, u As Range
    For Each c In ActiveSheet.UsedRange.Cells
        If c.Interior.Color = RGB(160, 230, 170) Then
            If u Is Nothing Then
                Set u = c
            Else
                Set u = Union(u, c)
            End If
        End If
    Next
    u.Select
End Sub

Comments

[ta-]

回答ありがとうございます。

しっかり動作しました！！