返回列表下一主題上一主題發帖

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

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-9-21 12:20 | 只看該作者

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

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

各位大大好：

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

test.rar (4.49 KB)

樓主熱帖

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2010-9-21 12:53 | 只看該作者

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

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

3^#

發表於 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

感恩版主大大。

TOP

GBKEE