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

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 Sub

Pozná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:


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.
karta kte 201905

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!
officetab dno
Komentáře (20)
Hodnocení 5 z 5 · 1 hodnocení:
Tento komentář byl moderátorem webu minimalizován
Pokusil jsem se použít kód VBA a zobrazila se mi chybová zpráva, že potřebuji odladit následující část kódu: "If xDic.Count <> xRg.Count Then"
Tento komentář byl moderátorem webu minimalizován
Milá Jenessy,
Jakou verzi Office používáte?
Tento komentář byl moderátorem webu minimalizován
pro mě také stejná chyba
Office verze 2013
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Zkopírujte prosím celý skript včetně prvního řádku „Dim xDic As New Dictionary“.
Chybu způsobí vynechání prvního řádku v kódu.
Tento komentář byl moderátorem webu minimalizován
Také dostávám stejnou chybu
Tento komentář byl moderátorem webu minimalizován
Byl jsem zkopírován celý svět, ale stále hlásí chybu, protože uživatelsky definovaný typ není definován, takže co mohu dělat
Tento komentář byl moderátorem webu minimalizován
Označte odkaz na knihovnu Microsoft Active X Data Object Library v editoru VBA.


1. Otevřete editor VBA a přejděte na Nástroje | Reference.


2. Přejděte dolů, dokud neuvidíte knihovnu Microsoft Active X Data Object Library.


3. Pokud máte více verzí, použijte nejnovější verzi. Verze budou odpovídat verzím MDAC. Poslední verzi byste nechtěli používat pouze tehdy, pokud projekt distribuujete na počítač, na kterém je starší verze. Pokud tedy stroje, pro které distribuujete, mají nainstalované pouze MDAC 2.6 a vy máte MDAC 2.7, zkontrolujte odkaz na verzi 2.6 knihovny Microsoft Active X Data Object Library, abyste zajistili, že projekt bude fungovat na počítačích, do kterých jej distribuujete.
Plus
Microsoft Scripting Runtime
Tento komentář byl moderátorem webu minimalizován
Stále to říká ladění a obnovuje se každou sekundu...
Tento komentář byl moderátorem webu minimalizován
Existuje také snadný způsob.
Vyberte buňku nebo buňky, ve kterých chcete skrýt vzorec nebo data.
Přejděte na Domů --> Formát --> Formát buněk --> Číslo --> Vlastní
V části Typ, Odebrat obecné a zadejte """"
Hodnota buňky nebo vzorec se na obrazovce nezobrazují
Pokud buňku vyberete, zobrazí se však na řádku vzorců.
Tento komentář byl moderátorem webu minimalizován
Zkoušel jsem použít kód VBA, ale po použití tohoto kódu je můj Excel pomalý a visí. Pomozte mi prosím při řešení tohoto problému.
Tento komentář byl moderátorem webu minimalizován
Pokud stiskneme a podržíme levé kliknutí myši na buňku, vzorec se zobrazí, dokud levé kliknutí neuvolníte. Jinak by to mělo fungovat dobře.
Tento komentář byl moderátorem webu minimalizován
po tomto kódu vba použijte nový výsledek vzorce součtu, který se nezobrazuje v buňce, prosím pomozte....
Tento komentář byl moderátorem webu minimalizován
Děkuji. Formule fungovala.
Tento komentář byl moderátorem webu minimalizován
Ahoj Im Gracy, snažím se skrýt vzorec v konkrétním sloupci bez ochrany listu heslem. Zkopíroval jsem, vložil jsem celý kód a změnil buňky, ale stále nemohu skrýt vzorec. Můžete mi prosím pomoci?

Tento komentář byl moderátorem webu minimalizován
vzorec fungoval, ale problém je, když zavřeme list a znovu jej otevřeme, VBA nefunguje...
Tento komentář byl moderátorem webu minimalizován
Ahoj, Chcete-li v budoucnu pokračovat v používání tohoto VBA, po přidání kódu uložte sešit jako sešit Excel s podporou maker. Klikněte Soubor > Uložit jako. V dialogovém okně Uložit jako vyberte Sešit se zvýšeným makra Excel z Uložit jako typ rozevíracího seznamu a potom klepněte na Uložit A pak v budoucnu použijte tento excelový sešit s podporou maker.
Tento komentář byl moderátorem webu minimalizován
Děkuji za tento kód, něco takového jsem opravdu potřeboval
Hodnocení 5 z 5
Tento komentář byl moderátorem webu minimalizován
dia tetap loading ya ko ?
Tento komentář byl moderátorem webu minimalizován
saya da coba sesuai kódování nya, bisa berjalan, tetapi di layar ketika saya klik ke tempu yang dimaksud ada keluar tanda loading, (tanda bulat berkedip). Soubor saya mmg 18 MB, bagaimana caranya agar tidak keluar tanda kedip tersebut ?
Tento komentář byl moderátorem webu minimalizován
Ahoj akkia,
Problém, který jste zmínil, není v mém případě reprodukován. Mohu se zeptat jakou verzi Excelu používáte?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL