冲锋号电影多长时间: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
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