返回列表 上一主題 發帖

[發問] 請問有無其他方式直接得知定義名稱範圍的列號嗎？

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-9-22 09:50 | 只看該作者

[發問] 請問有無其他方式直接得知定義名稱範圍的列號嗎？

各位大大：

   小弟另有一問題請敎各位大大，
在選定的儲存格位置已可判斷出是
位在定義名稱的範圍內。因此，其
找出符合的儲存格位置其列號為
指定的工作表列號，而非屬定義名稱
的列號。
  請問一般性是依找出的列號再依
定義名稱的位置倒算出其定義名稱
的列號或是另有其他方式可直接找
出定義名稱的列號嗎？

例如：有一工作表

定義名稱：student
定義範圍：C8-G14

現SELECTION位置為C12

其列號必為 12
而非定義名稱的列號 5

Sub aa()

    Dim mSht As Worksheet
    Dim mRng As Range
    Dim mRow As Integer
   
    Set mSht = Worksheets("test")
    With mSht
        If TypeName(Selection) = "Range" Then
            If Not Intersect(Selection, [student]) Is Nothing Then
                Set mRng = Selection
                MsgBox mRng.Address
                mRow = mRng.Row
               
            End If
        End If
               
    End With
   
  End Sub

謝謝各位大大。

TEST-A1.rar (7.36 KB)

收藏 分享

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
4#
發表於 2010-9-22 12:10 | 只看該作者
超級版主大大好：

    小弟在此祝福各位大大
有一美好的中秋佳節。

   版主大大提供如此便捷的方式
真是另人讚賞。
  
感恩版主大大！

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
253  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2010-9-22 11:35 | 只看該作者
MsgBox Selection.Row - [student].Row + 1
學海無涯_不恥下問

TOP

暗黑

帖子
62 
主題
10 
精華
0 
積分
253 
點名
0  
作業系統
xp , win7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
人心 
註冊時間
2010-5-21 
最後登錄
2012-8-3 
2#
發表於 2010-9-22 11:08 | 只看該作者
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. Target.Column    '選取儲存格起始行數
  3. Target.Row        '選取儲存格起始列數
  4. Target.Count      '選取儲存格的數量
  5. ..
  6. ...
  7. end sub
複製代碼
是學程式而不是要程式，是進步的基礎

TOP

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
返回列表 上一主題