Jak skrýt vzorec, ale zobrazit výsledek bez ochrany listu v aplikaci Excel?
V některých případech možná budete muset skrýt vzorce v listu pro soukromé účely. Tento článek hovoří o skrytí vzorců, ale o zobrazování výsledků bez ochrany listu v aplikaci Excel.
Skrýt vzorec, ale zobrazit výsledek bez ochrany listu pomocí kódu VBA
Skrýt vzorec, ale zobrazit výsledek bez ochrany listu pomocí kódu VBA
Chcete-li skrýt vzorce, ale zobrazit výsledky bez ochrany listu, postupujte takto.
1. V listu musíte skrýt vzorce, ale při zobrazování výsledků klikněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z nabídky pravého tlačítka myši.
2. V Microsoft Visual Basic pro aplikace zkopírujte a vložte kód VBA do okna Kód.
Kód VBA: skrýt vzorec, ale zobrazit výsledek bez ochrany listu
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 SubPoznámka: V kódu je C1: C10 rozsah buněk, do kterého chcete skrýt vzorce. Změňte to prosím podle svých potřeb.
3. Pak klikněte na tlačítko Tools > Reference…, Zkontrolovat Microsoft Script Runtime a klikněte na tlačítko OK tlačítko v Reference - VBAProject okno. Viz snímek obrazovky:
4. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.
Od nynějška, když kliknete na buňku ve specifikovaném rozsahu, vzorec bude okamžitě skryt v panelu vzorců.
Související články:
- Jak zamknout určené buňky bez ochrany celého listu v aplikaci Excel?
- Jak odstranit vzorce z listu, ale zachovat hodnoty / výsledky v aplikaci Excel?
Nejlepší kancelářské nástroje produktivity
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
- Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
- Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
- Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
- Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
- Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
- Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
- Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
- Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
- Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
