请写详细代码
代ç åæµè¯ç»æå¦ä¸ï¼
Sub test()Dim rg, rng As Range
Set rg = Range("Z4")
Set rng = Range("A1:C5")
If Application.Intersect(rg, rng) Is Nothing Then
MsgBox " ä¸å±äº"
Else
MsgBox "å±äº"
End If
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2014-09-03
看Child_cn 的答案