Note: The other languages of the website are Google-translated. Back to English

如何在Excel中不保護工作表的情況下隱藏公式但顯示結果?

在某些情況下,您可能需要在工作表中隱藏公式以供私人使用。 本文討論的是隱藏公式,但顯示結果而不保護Excel中的工作表。

隱藏公式,但顯示結果而不用VBA代碼保護工作表


隱藏公式,但顯示結果而不用VBA代碼保護工作表

要隱藏公式但顯示結果而不保護工作表,請執行以下操作。

1.在工作表中,您需要隱藏公式,但要顯示結果,請右鍵單擊工作表標籤,然後選擇 查看代碼 從右鍵單擊菜單中。

2。 在裡面 Microsoft Visual Basic for Applications 窗口,請將VBA代碼複製並粘貼到“代碼”窗口中。

VBA代碼:隱藏公式,但顯示結果而不保護工作表

Dim xDic As New Dictionary
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Range("C1:C10")
    If xDic.Count <> xRg.Count Then
        For Each xCell In xRg
            xDic.Add xCell.Address, xCell.FormulaR1C1
        Next
    End If
    If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then
        With Target
            .Value = .Value
        End With
    Else
        For Each xCell In xRg
            xCell.Formula = xDic.Item(xCell.Address)
        Next
    End If
End Sub

備註:在代碼中,C1:C10是要在其中隱藏公式的單元格區域。 請根據您的需要進行更改。

3。 然後點擊 工具 > 參考...。 檢查 Microsoft腳本運行時 框並單擊 OK 按鈕在 參考– VBAProject 窗口。 看截圖:

4。 按 其他 + Q 關閉鍵 Microsoft Visual Basic for Applications 窗口。

從現在開始,當您單擊指定範圍內的單元格時,該公式將立即隱藏在公式欄中。


相關文章:


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (20)
5中的5評分 · 1評級
網站主持人對此評論進行了最小化
我嘗試使用 VBA 代碼,但收到一條錯誤消息,指出我需要調試代碼的以下部分:“如果 xDic.Count <> xRg.Count Then”
網站主持人對此評論進行了最小化
親愛的杰妮西,
您使用哪個 Office 版本?
網站主持人對此評論進行了最小化
對我來說也是同樣的錯誤
辦公版 2013
網站主持人對此評論進行了最小化
美好的一天,
請複制整個腳本,包括第一行“Dim xDic As New Dictionary”。
錯過代碼中的第一行會導致這個錯誤。
網站主持人對此評論進行了最小化
我也遇到同樣的錯誤
網站主持人對此評論進行了最小化
我被複製了整個世界,但仍然給出錯誤,因為未定義用戶定義類型,所以我該怎麼辦
網站主持人對此評論進行了最小化
在 VBA 編輯器中標記對 Microsoft Active X 數據對像庫的引用。


1. 打開 VBA 編輯器並轉到工具 | 參考。


2. 向下滾動直到看到 Microsoft Active X 數據對像庫。


3. 如果您有多個版本,請使用最新版本。 這些版本將對應於 MDAC 的版本。 唯一不想使用最新版本的情況是,如果您將項目分發到具有舊版本的機器上。 因此,如果您要分發的機器只安裝了 MDAC 2.6,並且您安裝了 MDAC 2.7,請檢查對 Microsoft Active X 數據對像庫 2.6 版的引用,以確保該項目將在您分發它的機器上運行。
更多
Microsoft腳本運行時
網站主持人對此評論進行了最小化
它一直在說調試,並且每秒刷新一次...
網站主持人對此評論進行了最小化
也有簡單的方法。
選擇要隱藏公式或數據的一個或多個單元格。
轉到主頁->格式->格式化單元格->數字->自定義
在類型下,刪除常規並輸入“”“”
單元格值或公式未出現在屏幕上
但是,如果您選擇單元格,它將出現在公式欄中。
網站主持人對此評論進行了最小化
我嘗試使用 VBA 代碼,但應用此代碼後,我的 excel 變得緩慢並掛起。請幫助我解決此問題。
網站主持人對此評論進行了最小化
如果我們按住鼠標左鍵單擊一個單元格,公式將顯示,直到您鬆開左鍵。 否則這應該可以正常工作。
網站主持人對此評論進行了最小化
在此 vba 代碼應用新的求和公式結果後未顯示在單元格中,請幫助....
網站主持人對此評論進行了最小化
謝謝你。 公式有效。
網站主持人對此評論進行了最小化
嗨,我很高興,我試圖在沒有密碼保護工作表的情況下隱藏特定列中的公式。 我複制粘貼了整個代碼並更改了單元格,但仍然無法隱藏公式。 你能幫忙嗎?

網站主持人對此評論進行了最小化
公式有效,但問題是當我們關閉工作表並重新打開它時,VBA 不起作用......
網站主持人對此評論進行了最小化
您好,要在以後繼續使用此 VBA,添加代碼後,請將工作簿另存為 Excel 啟用宏的工作簿。單擊 文件 > 另存為. 在另存為對話框中,選擇 Excel啟用宏的工作簿 來自 除上文所 鍵入下拉列表,然後單擊 節省 按鈕。然後在將來使用這個啟用宏的 Excel 工作簿。
網站主持人對此評論進行了最小化
謝謝你的代碼,我真的需要這樣的東西
5中的5評分
網站主持人對此評論進行了最小化
dia tetap loading ya ko ?
網站主持人對此評論進行了最小化
saya da coba sesuai coding nya, bisa berjalan, tetapi di layar ketika saya klik ke tempat yang dimaksud ada keluar tanda loading, (tanda bulat berkedip)。 文件 saya mmg 18 MB,bagaimana caranya agar tidak keluar tanda kedip tersebut ?
網站主持人對此評論進行了最小化
嗨阿基亞,
你提到的問題在我的案例中沒有重現。 請問你用的是哪個版本的Excel?
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護