返回列表 上一主題 發帖

[發問] 如何使用VBA取得定義名稱的範圍

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
0  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2023-10-23 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2022-5-4 19:44 | 只看該作者

[發問] 如何使用VBA取得定義名稱的範圍

請教 !  如何使用VBA取得定義名稱的範圍, 填到儲存格 I1

Name.png (191.84 KB)

Name.png

Name.zip (7.75 KB)

收藏 分享

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2023-9-21 
2#
發表於 2022-5-5 11:03 | 只看該作者
回復 1# ABK
請測試看看，謝謝
Sub test()
For Each Ne In Names
    n = n + 1
    Cells(n, 9) = Replace(Ne, "=", "")
Next
End Sub

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
0  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2023-10-23 
3#
發表於 2022-5-5 13:10 | 只看該作者
回復 2# samwang
謝謝 samwang大 !

結果 多了 1個

Name_1.png (156.96 KB)

Name_1.png

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2023-9-21 
4#
發表於 2022-5-5 13:47 | 只看該作者
本帖最後由 samwang 於 2022-5-5 13:56 編輯
回復  samwang
謝謝 samwang大 !

結果 多了 1個
ABK 發表於 2022-5-5 13:10


那檔案有1個隱藏的name，我另外copy資料到新檔案，執行ok如附件，請再測試看看，謝謝

1.JPG (127.81 KB)

1.JPG

活頁簿1.zip (12.67 KB)

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
0  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2023-10-23 
5#
發表於 2022-5-5 15:05 | 只看該作者
回復 4# samwang
好的!
謝謝 samwang大 !

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題