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

Hvordan skjules formel, men viser resultatet uden at beskytte regneark i Excel?

I nogle tilfælde skal du muligvis skjule formler i dit regneark til private. Denne artikel taler om at skjule formler, men vise resultater uden at beskytte regneark i Excel.

Skjul formel, men vis resultatet uden at beskytte regneark med VBA-kode


Skjul formel, men vis resultatet uden at beskytte regneark med VBA-kode

For at skjule formler, men vise resultater uden at beskytte et regneark, skal du gøre som følger.

1. I regnearket skal du skjule formler, men vise resultaterne. Højreklik på arkfanen og vælg Vis kode fra højreklikmenuen.

2. i Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte VBA-kode i kodevinduet.

VBA-kode: skjul formel, men vis resultatet uden at beskytte regnearket

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

Bemærk: I koden er C1: C10 det celleområde, som du vil skjule formler indeni. Skift det ud fra dine behov.

3. Klik derefter på Værktøj > Referencer .... Tjek Microsoft Script Runtime og klik på OK knappen i Referencer - VBAProject vindue. Se skærmbillede:

4. Tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue.

Fra nu af, når du klikker på cellen i det angivne interval, skjules formlen straks i formellinjen.


Relaterede artikler:


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (20)
Bedømt 5 ud af 5 · 1 vurderinger
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg prøvede at bruge VBA-koden, og jeg fik en fejlmeddelelse om, at jeg skulle fejlsøge følgende del af koden: " If xDic.Count <> xRg.Count Then"
Denne kommentar blev minimeret af moderatoren på webstedet
Kære Jenessy,
Hvilken Office-version bruger du?
Denne kommentar blev minimeret af moderatoren på webstedet
for mig også samme fejl
office version 2013
Denne kommentar blev minimeret af moderatoren på webstedet
Good Day,
Kopier venligst hele scriptet med den første linje "Dim xDic As New Dictionary".
Hvis du mangler den første linje i koden, vil denne fejl forårsage.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg får også samme fejl
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg blev kopieret hele verden, men giver stadig fejl som brugerdefineret type ikke defineret, så hvad kan jeg gøre
Denne kommentar blev minimeret af moderatoren på webstedet
Marker en reference til aMicrosoft Active X Data Object Library i VBA-editoren.


1. Åbn VBA-editoren og gå til Værktøjer | Referencer.


2. Rul ned, indtil du ser Microsoft Active X Data Object Library.


3. Hvis du har flere versioner, skal du bruge den seneste version. Versionerne svarer til versionerne af MDAC. Den eneste gang, du ikke ønsker at bruge den seneste version, er, hvis du distribuerer projektet til en maskine, der har en ældre version. Så hvis maskinen, du distribuerer til, kun har MDAC 2.6 installeret, og du har MDAC 2.7, skal du kontrollere referencen til version 2.6 af Microsoft Active X Data Object Library for at sikre, at projektet fungerer på de maskiner, du distribuerer det til.
Plus
Microsoft Scripting Runtime
Denne kommentar blev minimeret af moderatoren på webstedet
Det bliver ved med at sige fejlretning, og det opdateres i hvert sekund...
Denne kommentar blev minimeret af moderatoren på webstedet
Der er også en nem måde.
Vælg den eller de celler, du vil skjule formlen eller dataene.
Gå til Hjem --> Format --> Formater celler --> Tal --> Brugerdefineret
Under Type, Fjern Generelt og indtast """"
Celleværdien eller formlen vises ikke på skærmen
Det vil dog vises i formellinjen, hvis du vælger cellen.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg prøvede at bruge VBA-koden, men efter at have anvendt denne kode bliver min excel langsom og hænger. Hjælp mig venligst med at løse dette problem.
Denne kommentar blev minimeret af moderatoren på webstedet
Hvis vi trykker og holder musen venstreklik til en celle, vises formlen, indtil du slipper venstreklik. Ellers burde dette fungere fint.
Denne kommentar blev minimeret af moderatoren på webstedet
efter denne vba-kode skal du anvende et nyt sumformelresultat, der ikke vises i cellen. Hjælp venligst....
Denne kommentar blev minimeret af moderatoren på webstedet
Tak skal du have. Formlen virkede.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Im gracy, jeg forsøger at skjule formlen i en bestemt kolonne uden at beskytte arket med adgangskode. Jeg kopierede indsatte hele koden og ændrede cellerne, men var stadig ikke i stand til at skjule formlen. Kan du venligst hjælpe.

Denne kommentar blev minimeret af moderatoren på webstedet
formel virkede, men problemet er, når vi lukker arket og genåbner det, end at VBA ikke virkede...
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, For at fortsætte med at bruge denne VBA i fremtiden, efter at have tilføjet koden, skal du gemme projektmappen som en Excel Macro-Enabled Workbook. Klik filet > Gem som. Vælg i dialogboksen Gem som Excel-makroaktiveret projektmappe fra Gem som skriv rullelisten, og klik derefter på Gem button.Og så brug denne excel makro-aktiverede projektmappe i fremtiden.
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for denne kode, jeg havde virkelig brug for sådan noget
Bedømt 5 ud af 5
Denne kommentar blev minimeret af moderatoren på webstedet
dia tetap loading ya ko ?
Denne kommentar blev minimeret af moderatoren på webstedet
saya da coba sesuai kodning ny, bisa berjalan, tetapi di layar ketika saya klik ke tempat yang dimaksud ada keluar tanda loading, (tanda bulat berkedip). Fil siger mmg 18 MB, bagaimana caranya agar tidak keluar tanda kedip tersebut ?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej akkia,
Det problem du nævnte er ikke gengivet i mit tilfælde. Må jeg spørge, hvilken Excel-version du bruger?
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL