[發問] 如何引用typename(selection)判定是否為定義範圍的儲存格位置呢？

dechiuan999

各位大大好：

  小弟對定義範圍，在應用上
仍無法上手。說明詳如附件

oobird

If Not Intersect(Selection, [student]) Is Nothing Then

dechiuan999

謝謝超級版主。

intersect有學過，卻
不懂得應用。
小弟真該打屁股了。
Sub aa()   
    Dim mSht As Worksheet
    Dim mRng As Range   
    Set mSht = Worksheets("test")
    With mSht
        If Not Intersect(Selection, [student]) Is Nothing Then
            If TypeName(Selection) = "Range" Then
                Set mRng = Selection
                MsgBox mRng.Address
            End If
        End If        
    End With   
  End Sub

感恩版主大大。

GBKEE

回復 3# dechiuan999

If Not Intersect(Selection, [student]) Is Nothing Then
            If TypeName(Selection) = "Range" Then

這兩行要對調 先判斷為 "Range"  再 判斷 Intersect(Selection, [student])

dechiuan999

謝謝版主。

小弟真是越來越迷糊。
謝謝版主大大的糾正。