名稱鏈接表

Question

我有一個與VBA的Excel文件。這個文件有2張。 所有名稱定義爲'''''sheetname'！$ B $ 2「 但只有一個名稱」'指的是'= info！$ A $ 1「，其值與具有相同路徑的另一個文件的值鏈接。 （沒有紙張有名稱信息） 問題：我如何找到單元格來編輯值？

Answer 1

如果快速掃描下來指提供了結構式列►定義名稱►名稱管理器不產生效果，那麼你將不得不枚舉所有Workbook.Names集合。這包括工作簿中的所有已定義名稱;工作簿範圍和工作表範圍。

Sub find_named_range() 
    Dim n As Long, rng As Range 

    With ThisWorkbook 
     For n = 1 To .Names.Count 
      If CBool(InStr(1, LCase(.Names(n).RefersTo), "info")) Then 
       Debug.Print .Names(n).Name   '<~~ the defined name 
       Debug.Print .Names(n).RefersTo  '<~~ the cell location 
       Debug.Print .Names(n).RefersToRange '<~~ the value in the cell 
       'exit for 
      End If 
     Next n 
    End With 
End Sub 

如果保證只有一個，那麼你可能要取消對Exit For命令，並找到第一個後停止循環，但我可能會讓它跑了一些額外的毫秒只是要確定。