找到隱藏的名稱

[檔檢查] 在您的活頁簿中找到隱藏的名稱。 這些名稱可以儲存規劃求解案例的隱藏資訊。 例如,當您使用 [規劃求解] 增益集執行案例時,可能會將計算參數及其他敏感性資料的相關資訊儲存在活頁簿中的隱藏名稱中。

重要: Microsoft 只提供圖例的程式設計範例,不含任何明示或默示的保證。 這包括但不限於針對特定用途的適售性或適用性的默示擔保。 本文假設您熟悉所示範的程式設計語言,以及用來建立及偵錯工具的工具。 Microsoft 支援工程師可以協助說明特定程式的功能,但不會修改這些範例來提供額外的功能或構造程式,以符合您的特定需求。

問題

[檔檢查] 無法為您移除這些隱藏的名稱。

建議解決方案

執行下列宏來移除隱藏的名稱。 宏會顯示一個列出三個專案的訊息方塊:(1)定義的名稱是顯示或隱藏、(2)已定義的名稱,以及(3)該名稱所參照的內容(活頁簿儲存格的參照)。 您可以選擇[是]或 [] 來刪除,或保留每個已定義的名稱。

附註: 如果您使用這個宏來移除隱藏的名稱,增益集(例如規劃求解)或宏可能無法如期運作,而且可能會遺失與它們相關聯的隱藏資料。 這個宏也會影響隱藏的任何定義的名稱,而不會影響規劃求解所新增的任何名稱。

注意: 如果您的工作表名稱包含空格,當您嘗試刪除定義的名稱時,可能會收到錯誤。

移除隱藏的名稱

' Module to remove all hidden names on active workbook
   Sub Remove_Hidden_Names()

       ' Dimension variables.
       Dim xName As Variant
       Dim Result As Variant
       Dim Vis As Variant

       ' Loop once for each name in the workbook.
       For Each xName In ActiveWorkbook.Names

           'If a name is not visible (it is hidden)...
           If xName.Visible = True Then
               Vis = "Visible"
           Else
               Vis = "Hidden"
           End If

           ' ...ask whether or not to delete the name.
           Result = MsgBox(prompt:="Delete " & Vis & " Name " & _
               Chr(10) & xName.Name & "?" & Chr(10) & _
               "Which refers to: " & Chr(10) & xName.RefersTo, _
               Buttons:=vbYesNo)

           ' If the result is true, then delete the name.
           If Result = vbYes Then xName.Delete

           ' Loop to the next name.
       Next xName

   End Sub

附註:  本頁面是經由自動翻譯而成,因此文中可能有文法錯誤或不準確之處。 讓這些內容對您有所幫助是我們的目的。 告訴我們這項資訊是否有幫助? 這裡是供您參考的英文文章

增進您的 Office 技巧
探索訓練
優先取得新功能
加入 Office 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與我們的其中一個 Office 支援專員連絡以深入了解您的意見。

×