Board logo

標題: [發問] 如何引用typename(selection)判定是否為定義範圍的儲存格位置呢？ [打印本頁]
作者: dechiuan999    時間: 2010-9-21 12:20     標題: 如何引用typename(selection)判定是否為定義範圍的儲存格位置呢？

本帖最後由 dechiuan999 於 2010-9-21 12:42 編輯

各位大大好：

  小弟對定義範圍，在應用上
仍無法上手。說明詳如附件
作者: oobird    時間: 2010-9-21 12:53

If Not Intersect(Selection, [student]) Is Nothing Then
作者: dechiuan999    時間: 2010-9-21 13:23

謝謝超級版主。

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    時間: 2010-9-21 17:12

回復 3# dechiuan999
If Not Intersect(Selection, [student]) Is Nothing Then
            If TypeName(Selection) = "Range" Then

這兩行要對調 先判斷為 "Range"  再 判斷 Intersect(Selection, [student])
作者: dechiuan999    時間: 2010-9-21 18:26

謝謝版主。

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)