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

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:


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

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!
dno pisarniške mize
Komentarji (20)
Ocenjeno 5 iz 5 · 1 ocene
Ta komentar je moderator na spletnem mestu minimiziral
Poskušal sem uporabiti kodo VBA in dobil sem sporočilo o napaki, da moram odpraviti napake v naslednjem delu kode: " Če xDic.Count <> xRg.Count Then"
Ta komentar je moderator na spletnem mestu minimiziral
Draga Jenessy,
Katero različico Officea uporabljate?
Ta komentar je moderator na spletnem mestu minimiziral
pri meni tudi ista napaka
Office različica 2013
Ta komentar je moderator na spletnem mestu minimiziral
Dober dan,
Prosimo, kopirajte celoten skript, vključno s prvo vrstico "Dim xDic As New Dictionary".
Zamujanje prve vrstice v kodi bo povzročilo to napako.
Ta komentar je moderator na spletnem mestu minimiziral
Tudi jaz dobivam isto napako
Ta komentar je moderator na spletnem mestu minimiziral
Bil sem kopiran po celem svetu, vendar še vedno prikazuje napako, ker uporabniško definirana vrsta ni definirana, kaj lahko storim
Ta komentar je moderator na spletnem mestu minimiziral
Označite sklic na knjižnico podatkovnih objektov Microsoft Active X v urejevalniku VBA.


1. Odprite urejevalnik VBA in pojdite na Orodja | Reference.


2. Pomaknite se navzdol, dokler ne vidite knjižnice podatkovnih objektov Microsoft Active X.


3. Če imate več različic, uporabite najnovejšo različico. Različice bodo ustrezale različicam MDAC. Edini čas, ko ne bi želeli uporabljati najnovejše različice, je, če projekt distribuirate na stroj, ki ima starejšo različico. Če imajo torej stroji, za katere distribuirate, nameščen samo MDAC 2.6 in imate MDAC 2.7, preverite sklic na različico 2.6 knjižnice podatkovnih objektov Microsoft Active X, da zagotovite, da bo projekt deloval na strojih, na katere ga distribuirate.
dodatek
Izvajanje Microsoftovih skriptov
Ta komentar je moderator na spletnem mestu minimiziral
Nenehno piše odpravljanje napak in se osveži vsako sekundo ...
Ta komentar je moderator na spletnem mestu minimiziral
Obstaja tudi enostaven način.
Izberite celico ali celice, za katere želite skriti formulo ali podatke.
Pojdite na Domov --> Oblika --> Oblikovanje celic --> Število --> Po meri
Pod Type, Odstrani General in vnesite """"
Vrednost celice ali formula se ne prikažeta na zaslonu
Vendar se bo prikazal v vrstici s formulo, če izberete celico.
Ta komentar je moderator na spletnem mestu minimiziral
Poskušal sem uporabiti kodo VBA, vendar po uporabi te kode moj excel postaja počasen in visi. Prosim pomagajte mi pri reševanju te težave.
Ta komentar je moderator na spletnem mestu minimiziral
Če pritisnemo in zadržimo levi klik miške na celico, se formula prikaže, dokler levi klik ne sprostite. Sicer bi to moralo delovati v redu.
Ta komentar je moderator na spletnem mestu minimiziral
po tej kodi vba uporabite novo formulo vsote, ki se ne prikaže v celici, prosim za pomoč....
Ta komentar je moderator na spletnem mestu minimiziral
Hvala vam. Formula je delovala.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, hvala, poskušam skriti formulo v določenem stolpcu, ne da bi geslo zaščitilo list. kopiral sem prilepil celotno kodo in spremenil celice, vendar še vedno ne morem skriti formule. Ali lahko prosim pomagate.

Ta komentar je moderator na spletnem mestu minimiziral
formula je delovala, vendar je težava, ko zapremo list in ga znova odpremo, VBA ni deloval ...
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, če želite še naprej uporabljati ta VBA v prihodnosti, potem ko dodate kodo, shranite delovni zvezek kot delovni zvezek z omogočenimi makri v Excelu. Kliknite file > Shrani kot. V pogovornem oknu Shrani kot izberite Excelov delovni zvezek z omogočeno makro Iz Shrani kot vnesite spustni seznam in kliknite Shrani in nato v prihodnosti uporabite ta delovni zvezek z omogočenimi makri v Excelu.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za to kodo, res sem potreboval nekaj takega
Ocenjeno 5 iz 5
Ta komentar je moderator na spletnem mestu minimiziral
dia tetap nalaganje ya ko ?
Ta komentar je moderator na spletnem mestu minimiziral
saya da coba susuai coding nya, bisa berjalan, tetapi di layar ketika saya click ke tempat yang dimaksud ada keluar tanda loading, (tanda bulat berkedip). Datoteka saya mmg 18 MB, bagaimana caranya agar tidak keluar tanda kedip tersebut ?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo akkia,
Težava, ki ste jo omenili, se v mojem primeru ne ponovi. Smem vprašati, katero različico Excela uporabljate?
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL