冲锋号电影多长时间:vba excel

来源:百度文库 编辑:杭州交通信息网 时间:2024/03/29 03:31:22
Sub test()
Dim a As Excel.Range
Dim rng As Excel.Range
Set rng = ActiveWindow.Selection

?如何判断指定单元是否在 这个rng中

如:a("$D$4") 是否在rng中
End Sub

请看下面例程,在Excel中已测试通过

Sub TEst()

Dim C As Range
Dim A As Range

Set C = Range("B2:F6")
Set A = Range("A1")

if Application.Intersect(C, A).Cells.Count=0 then
msgbox "Not In"
or
Msgbox "In"
endif

End Sub