帖子: 519
主題: 54
精華: 0
積分: 595
點名: 256
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-12-1 07:15 | 只看該作者

[發問] 查檢定義名稱用在工作簿哪一些儲存格公式

請問大俠

某一儲存格定義名稱為 "myName"，有效範圍 "工作簿" 而被用在工作簿("myBook")的其他"工作表" (mySh1, mySh2, ... myShN)內。
之後，使用公式的追蹤從屬參照只能在被定義的工作表清楚的追蹤，在其他的工作表內就很不方便的一個個地找。
該如何清晰的具體地在其他工作內"追蹤"的到?
1. 在工作表的操作，
2. 用VBA 的方法。

感恩

樓主熱帖

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 256
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

5^#

發表於 2014-12-1 20:15 | 只看該作者

回復 4# GBKEE

已經解決了問題

感恩指導

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2014-12-1 16:16 | 只看該作者

回復 3# Scott090

Option Explicit
Sub Ex()
Dim Rng As Range, Rng_address As String, Sh As Worksheet, Name_Range As String
With ThisWorkbook
For Each Sh In .Sheets
Set Rng = Sh.Cells.Find(What:="Test", LookIn:=xlFormulas, LookAt:=xlPart)
If Not Rng Is Nothing Then
Rng_address = Rng.Address
Do
Name_Range = Name_Range & vbLf & Rng.Address(, , , 1)
Set Rng = Sh.Cells.FindNext(Rng)
Loop While Rng_address <> Rng.Address
End If
Next
Name_Range = Mid(Name_Range, 2)
Name_Range = Replace(Name_Range, "[" & .Name & "]", "")
MsgBox Name_Range
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 256
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

3^#

發表於 2014-12-1 13:44 | 只看該作者

回復 2# GBKEE

謝謝
Sub Ex()
MsgBox Range("test").Address(, , , 1)
With ThisWorkbook.Names("test")
MsgBox "RefersTo " & .RefersTo

End With
End Sub
這個碼會取出 "test" 這個定義名稱被定義在那一個儲存格
我希望幫忙的是找出 "test" 被用在哪一些工作表的那一些儲存格：
例如說  "test" 被定義在 mySh1!$AE$14
            已被用在 mySh1的 A4 (=6+test), A20 (10*test) ,A32 (=test/3)、
                                       mySh3 的 AB7 (= test^2)、
                                       mySh4的 B7, B38 ....；
      如何找出這些儲存格有用到 "test" ?
            答案是 mySh1!$A$4, mySh1!$A$20 .......

再感恩

TOP

GBKEE