Kako skriti formulo, a prikazati rezultat brez zaščite delovnega lista v Excelu?

V nekaterih primerih boste morda morali formule na svojem delovnem listu skriti za zasebno uporabo. Ta članek govori o skrivanju formul, vendar o prikazu rezultatov brez zaščite delovnega lista v Excelu.

Skrij formulo, vendar prikaži rezultat, ne da bi zaščitil delovni list s kodo VBA

Skrij formulo, vendar prikaži rezultat, ne da bi zaščitil delovni list s kodo VBA

Če želite skriti formule, vendar prikazati rezultate brez zaščite delovnega lista, storite naslednje.

1. Na delovnem listu morate skriti formule, a prikazati rezultate, z desno miškino tipko kliknite jeziček lista in izberite Ogled kode v meniju z desnim klikom.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite kodo VBA v okno Code.

Koda VBA: skrij formulo, vendar prikaži rezultat brez zaščite delovnega lista

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

Opombe: V kodi je C1: C10 obseg celic, za katerega želite skriti formule. Prosimo, spremenite ga glede na vaše potrebe.

3. Nato kliknite Orodja > Reference .... Preverite Izvajalni čas Microsoft Script in kliknite OK gumb v Reference - VBAProject okno. Oglejte si posnetek zaslona:

4. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.

Od zdaj naprej, ko kliknete celico v določenem obsegu, bo formula takoj skrita v vrstici formule.

Sorodni članki:

• Kako zakleniti določene celice, ne da bi v Excelu zaščitili celoten delovni list?
• Kako odstraniti formule z delovnega lista, vendar obdržati vrednosti / rezultate v Excelu?

---

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

• Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
• Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
• Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos... Nakup ...