请问如何在VBA中判断当前单元格属于某个设定的区域?

Question

Private Sub mwksWorkSheet_BeforeRightClick( _
ByVal Target As Range, Cancel As Boolean)
If (Target不在某个区域) then
动作
End If
End Sub

Answer 1

只需要 (ByVal Target As Range) 参数，如下两个例子都行

'例子1 如果单元格在 A1:D4 区域
If Not Application.Intersect(Sheets("Sheet").Range("A1:D4"), Target) Is Nothing Then
'动作1（在区域内）
Else
'动作2（不在区域内）
End if

'例子2 如果单元格在 A1:D4 区域
If Target.Row >= 1 And Target.Row <= 4 And Target.Column >=1 And Target.Column <= 4 Then
'动作1（在区域内）
Else
'动作2（不在区域内）
End if

好吧，才发现这个问题是 2008-12-03 09:01 提的，我回答了一个5年前的问题......