註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 請問有無其他方式直接得知定義名稱範圍的列號嗎?
返回列表
下一主題
上一主題
發帖
[發問]
請問有無其他方式直接得知定義名稱範圍的列號嗎?
dechiuan999
發短消息
加為好友
dechiuan999
當前離線
UID
1016
帖子
231
主題
55
精華
0
積分
293
金錢
293
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
來自
KEELUNG
在線時間
41 小時
註冊時間
2010-7-24
最後登錄
2018-8-28
中學生
帖子
231
主題
55
精華
0
積分
293
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
來自
KEELUNG
註冊時間
2010-7-24
最後登錄
2018-8-28
1
#
跳轉到
»
倒序看帖
打印
字體大小:
t
T
發表於 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)
下載次數:9
2010-9-22 09:50
樓主熱帖
對C語言如何應用的疑惑
家裡電腦網路無法登入麻辣家族
如何區別NumberFormat及NumberFormatLocal使
如何將A5紙張格式一次列印於A4紙張直接產生
如何在指定的定義名稱內指定範圍加總呢?
為何Textbox的Setfocus無法發揮功能呢?
為何執行excel vba之後信件仍停在outlook寄
如何讓Listbox可一併顯示工作表的表頭呢?
如何在SQL語法中引用REPLACE 取代雙引號呢?
如何與MYSQL資料庫互動呢?
收藏
分享
暗黑
發短消息
加為好友
暗黑
當前離線
UID
295
帖子
62
主題
10
精華
0
積分
253
金錢
253
點名
0
作業系統
xp , win7
軟體版本
office2003
閱讀權限
20
性別
男
來自
人心
在線時間
107 小時
註冊時間
2010-5-21
最後登錄
2012-8-3
中學生
帖子
62
主題
10
精華
0
積分
253
點名
0
作業系統
xp , win7
軟體版本
office2003
閱讀權限
20
性別
男
來自
人心
註冊時間
2010-5-21
最後登錄
2012-8-3
2
#
發表於 2010-9-22 11:08
|
只看該作者
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Column '選取儲存格起始行數
Target.Row '選取儲存格起始列數
Target.Count '選取儲存格的數量
..
...
end sub
複製代碼
是學程式而不是要程式,是進步的基礎
TOP
Hsieh
發短消息
加為好友
Hsieh
當前在線
UID
3
帖子
4901
主題
44
精華
24
積分
4916
金錢
4916
點名
164
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
在線時間
4146 小時
註冊時間
2010-4-30
最後登錄
2025-7-8
超級版主
帖子
4901
主題
44
精華
24
積分
4916
點名
164
作業系統
Windows 7
軟體版本
Office 20xx
閱讀權限
150
性別
男
來自
台北
註冊時間
2010-4-30
最後登錄
2025-7-8
3
#
發表於 2010-9-22 11:35
|
只看該作者
MsgBox Selection.Row - [student].Row + 1
學海無涯_不恥下問
TOP
dechiuan999
發短消息
加為好友
dechiuan999
當前離線
UID
1016
帖子
231
主題
55
精華
0
積分
293
金錢
293
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
來自
KEELUNG
在線時間
41 小時
註冊時間
2010-7-24
最後登錄
2018-8-28
中學生
帖子
231
主題
55
精華
0
積分
293
點名
0
作業系統
winxp
軟體版本
office2003
閱讀權限
20
性別
男
來自
KEELUNG
註冊時間
2010-7-24
最後登錄
2018-8-28
4
#
發表於 2010-9-22 12:10
|
只看該作者
超級版主大大好:
小弟在此祝福各位大大
有一美好的中秋佳節。
版主大大提供如此便捷的方式
真是另人讚賞。
感恩版主大大!
TOP
靜思自在 :
受人點水之恩,須當湧泉以報。
返回列表
下一主題
上一主題
MS SQL
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲