Excel VBA：双击时更改单元格颜色

下面您可以找到双击时切换单元格颜色的代码，我需要使其仅适用于D2:D14范围内的单元格。目前，这适用于所有单元格

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
cancel = True
Select Case Target.Interior.ColorIndex
    Case xlNone, 4: Target.Interior.ColorIndex = 6
    Case xlNone, 6: Target.Interior.ColorIndex = 3
    Case Else: Target.Interior.ColorIndex = 4
End Select
End Sub

---

请帮帮我！提前谢谢

使用

Intersect

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, Range("D2:D14")) Is Nothing Then Exit Sub

Cancel = True

Select Case Target.Interior.ColorIndex
    Case xlNone, 4: Target.Interior.ColorIndex = 6
    Case xlNone, 6: Target.Interior.ColorIndex = 3
    Case Else: Target.Interior.ColorIndex = 4
End Select

End Sub