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ší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
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!
