如何簡化Visual Basic for Excel中的單元格選擇

Question

我正在使用Visual Basic為Excel編寫一個小程序。 當我單擊單元格L12到U12時，它會更改另一單元格的顏色。 這是我目前所擁有的：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With Sheets("sheet1")

        .Range("A1:K11").Interior.Color = RGB(40, 40, 250)
        .Range("B2:J10").Interior.Color = RGB(200, 200, 200)

        Select Case Target.Address

            Case "$L$12", "$M$12", "$N$12", "$O$12", "$P$12", "$Q$12", "$R$12", "$S$12", "$T$12", "$U$12"
                .Range("B2").Interior.Color = RGB(255, 255, 0)

        End Select

    End With

End Sub

我想知道是否可以縮短Case行，例如：

Case "$L$12" : "$U$12"

或類似的東西。 我還有另外一些Case要做，想知道是否有一個聰明的方法可以做到這一點。

謝謝

Answer 1

可以使用以下代碼：

If Not Intersect(Range("L12:U12"), Target) Is Nothing then
    .Range("B2").Interior.Color = RGB(255, 255, 0)
End If