確定多個單元格的Excel VBA代碼范圍

Question

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("$C$17:$C$80")) Is Nothing Then Exit Sub
    Select Case Target
    Case ""
        Target = "Priority 1"
        Target.Interior.ColorIndex = 3
    Case "Priority 1"
        Target = "Priority 2"
        Target.Interior.ColorIndex = 6
    Case "Priority 2"
        Target = "Priority 3"
        Target.Interior.ColorIndex = 45
    Case Else
        Target = ""
        Target.Interior.ColorIndex = 15
    End Select
    Cancel = True
End Sub

我的范圍有問題。 我需要將我的范圍擴展到特定的細胞。 我該怎么做呢？ 我需要選擇的細胞是，

C17，C21，C25，C29，C33，C42，C46，C50，C54，C58，C67，C71，C75，C83，C87，C91，C100，M17，M21，M25，M29，M33，M42，M46，M55， M59，M69，M73，M82，M86，W17，W21，W25，W29，AG17，AG21，AG25，AG34，AG38，AG42，AG51，AG55，AG59，AG68，AG72，AG81，物Ag85，AG89，AG98，AG102， AG106，AG110，AG114，AQ17，AQ21，AQ30，AQ34，AQ43，AQ47，AQ51，AQ60，AQ64，BA17，BA21，BA25，BA29，BA33，BA37，BA46，BA50，BA54，BA58，BA62，BA71，BA75， BA79，BA89，BA93" 。

上述單元格需要具有顏色變化的優先級選擇，並且下面的單元格僅需要顏色更改以進行狀態更新。 我該怎么做呢？

C19，C23，C27，C31，C35，C44，C48，C52，C56，C60，C69，C73，C77，C85，C89，C93，C102，M19，M23，M27，M31，M35，M44，M48，M57， M61，M71，M75，M84，M88，W19，W23，W27，W31，AG19，AG23，AG27，AG36，AG40，AG44，AG53，AG57，AG61，AG70，AG74，AG83，AG87，AG91，AG100，AG104， AG108，AG112，AG116，AQ19，AQ23，AQ32，AQ36，AQ45，AQ49，AQ53，AQ62，AQ66，BA19，BA23，BA27，BA31，BA35，BA39，BA48，BA52，BA56，BA60，BA64，BA73，BA77， BA81，BA91，BA95"

Answer 1

您可以將您鍵入的內容直接放在range語句中。 如上所述，由於vba在range語句中限制為255個字符，因此您需要使用union語句

Union(Range("C17,C21,C25,C29,C33,C42,C46,C50,C54,C58,C67,C71,C75,C83,C87,C91,C100,M17,M21,M25"), _
            Range("M29,M33,M42,M46,M55,M59,M69,M73,M82,M86,W17,W21,W25,W29,AG17,AG21,AG25,AG34,AG38,AG42,AG51,AG55"), _
            Range("AG59,AG68,AG72,AG81,AG85,AG89,AG98,AG102,AG106,AG110,AG114,AQ17,AQ21,AQ30,AQ34,AQ43,AQ47,AQ51,AQ60"), _
            Range("AQ64,BA17,BA21,BA25,BA29,BA33,BA37,BA46,BA50,BA54,BA58,BA62,BA71,BA75,BA79,BA89,BA93"))

然后，您將使用else if第二個

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union(Range("C17,C21,C25,C29,C33,C42,C46,C50,C54,C58,C67,C71,C75,C83,C87,C91,C100,M17,M21,M25"), _
            Range("M29,M33,M42,M46,M55,M59,M69,M73,M82,M86,W17,W21,W25,W29,AG17,AG21,AG25,AG34,AG38,AG42,AG51,AG55"), _
            Range("AG59,AG68,AG72,AG81,AG85,AG89,AG98,AG102,AG106,AG110,AG114,AQ17,AQ21,AQ30,AQ34,AQ43,AQ47,AQ51,AQ60"), _
            Range("AQ64,BA17,BA21,BA25,BA29,BA33,BA37,BA46,BA50,BA54,BA58,BA62,BA71,BA75,BA79,BA89,BA93"))) Is Nothing Then
    Select Case Target.Value
        Case ""
            Target = "Priority 1"
            Target.Interior.ColorIndex = 3
        Case "Priority 1"
            Target = "Priority 2"
            Target.Interior.ColorIndex = 6
        Case "Priority 2"
            Target = "Priority 3"
            Target.Interior.ColorIndex = 45
        Case Else
            Target = ""
            Target.Interior.ColorIndex = 15
    End Select
ElseIf Not Intersect(Target, Union(Range("Your Second Group"))) Is Nothing Then
   'do your second stuff here
End If
Cancel = True
End Sub

另外，正如@matthewD在評論中所述，您可以命名兩個范圍並改為引用該名稱。 如果您多次引用這兩個特定范圍，這將具有巨大的優勢。 如果只有一次它是相同的。

由於這已經改變以反映來自其他人的輸入，我已將其更改為社區維基。

Answer 2

VBA中的字符串常量不能超過255個字符。 你必須將聲明分開：

Dim HotArea As Range

Set HotArea = Range("C17,C21,C25,C29,C33,C42,C46,C50,C54,C58,C67,C71,C75,C83,C87,C91,C100,M17")
Set HotArea = Union(HotArea, Range("M21,M25,M29,M33,M42,M46,M55,M59,M69,M73,M82,M86,W17,W21,W25,W29,AG17,AG21,AG25,AG34"))
Set HotArea = Union(HotArea, Range("AG38,AG42,AG51,AG55,AG59,AG68,AG72,AG81,AG85,AG89,AG98,AG102,AG106,AG110,AG114,AQ17"))
Set HotArea = Union(HotArea, Range("AQ21,AQ30,AQ34,AQ43,AQ47,AQ51,AQ60,AQ64,BA17,BA21,BA25,BA29,BA33,BA37,BA46,BA50,BA54"))
Set HotArea = Union(HotArea, Range("BA58,BA62,BA71,BA75,BA79,BA89,BA93"))

If Not Intersect(Target, HotArea) is Nothing Then
...  

或者在一個聲明中

    Set HotArea = Union(Range("C17,C21,C25,C29,C33,C42,C46,C50,C54,C58,C67,C71,C75,C83,C87,C91,C100,M17"), _
            Range("M21,M25,M29,M33,M42,M46,M55,M59,M69,M73,M82,M86,W17,W21,W25,W29,AG17,AG21,AG25,AG34"), _
            Range("AG38,AG42,AG51,AG55,AG59,AG68,AG72,AG81,AG85,AG89,AG98,AG102,AG106,AG110,AG114,AQ17"), _
            Range("AQ21,AQ30,AQ34,AQ43,AQ47,AQ51,AQ60,AQ64,BA17,BA21,BA25,BA29,BA33,BA37,BA46,BA50,BA54"), _
            Range("BA58,BA62,BA71,BA75,BA79,BA89,BA93"))

因為Union()接受任意數量的參數。