Question

VBA怎样判断当前活动的单元格是否在某一命名的区域？

当前工作簿中已存在命名的区域Range("MyRange")，
怎样判断ActiveCell是否存在于已命名区域内？
求简洁的方法。

Answer 1

Sub Test()
If Intersect(ActiveCell, Range("MyRange")) Is Nothing Then
MsgBox "当前单元格不在MyRange中"
Else
MsgBox "当前单元格在MyRange中"
End If
End Sub

Answer 2

几句vba代码给你
dim Cel as Range
for each Cel in Range("MyRange")
if ActiveCell.Address=Cel.Address then msgbox ""
next