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

Hvordan gemmes alle regneark kun som værdier?

Hvis du har en projektmappe, der indeholder flere formler, skal du nu distribuere denne fil til andre brugere, du vil ikke vise formlerne, men kun værdier vises. Normalt kan vi hurtigt gemme et regneark som værdier ved kun at kopiere og indsætte dataene som værdier. Men hvordan kunne du kun gemme alle regneark som værdier uden at kopiere og indsætte en efter en?

Gem alle regneark som værdier kun med VBA-kode


pil blå højre boble Gem alle regneark som værdier kun med VBA-kode

Følgende VBA-kode kan hjælpe dig med hurtigt at gemme alle ark som værdier (ingen formler) og bevare al celleformatering. Gør som dette:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Gem kun alle regneark som værdier:

Sub Saveasvalue()
'Updateby Extendoffice
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

3. Tryk derefter på F5 nøgle til at køre denne kode, og hele projektmappen er kun gemt som værdier, alle formler er fjernet på én gang, efterlader kun værdier med celleformatering.

Bemærk: Før du anvender koden, kan du først gemme en kopi af projektmappen.


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 (18)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Tak! VBA-koden fungerede fantastisk.
En ting lagde jeg dog mærke til, da jeg prøvede at bruge det på en projektmappe med Filter på nogle celler, virker det ikke.
Er der nogen løsning for, at denne kode kan fungere uden at deaktivere filteret?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har det samme problem, når jeg bruger VBA-kode med filter. Har du en løsning på det?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, kunne du få det rettet? Jeg har samme problem
Denne kommentar blev minimeret af moderatoren på webstedet
Meget godt! Det har løst mange af mine problemer. Mange tak. Med venlig hilsen.
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak Bro..det er fantastisk.. hjalp mig meget.
Denne kommentar blev minimeret af moderatoren på webstedet
Sub Saveasvalue()
'Opdatering af Extendoffice 20161025
Dim wsh som arbejdsark
For hver Wsh I ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues ​​- får Run time Error 1004 - KAN ENHVER HJÆLPE MED DETTE.
Næste
Application.CutCopyMode = False
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
når jeg kører den kode, får jeg fejlen "får Run time Error 1004".
FYI, i mit excel er der fletteceller.

Det vil være nyttigt, hvis nogen giver en løsning

Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Hej mirna,
Ovenstående kode fungerer godt i min projektmappe, hvilken excel-version bruger du?
Denne kommentar blev minimeret af moderatoren på webstedet
Det fungerer godt. tak.

@mirna: du skal fjerne beskyttelsen af ​​ark eller celle. VB kan ikke lide protect mode :)
Denne kommentar blev minimeret af moderatoren på webstedet
Functionou!! Muito Bom!!!
Denne kommentar blev minimeret af moderatoren på webstedet
Tengo ese código, si bien es cierto funciona pero quisiera que no considere algunas hojas de mi archivo excel. se puede ?
Greetings.
Denne kommentar blev minimeret af moderatoren på webstedet
Fjern alle filtre/beskyttelse i alle arkene. skulle fungere perfekt.
Denne kommentar blev minimeret af moderatoren på webstedet
Godt! Fremragende! Jeg har brug for dette, men ingen ark
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg skal offentliggøre Excel-baserede regnskaber med grupperinger. Dette virkede for at rydde alle formlerne og kun lade tallene blive tilbage. Andre metoder, jeg prøvede, ryddede grupperingerne.
Denne kommentar blev minimeret af moderatoren på webstedet
Er der nogen måde at fortryde dette, hvis du har glemt at gemme formelversionen først?
Denne kommentar blev minimeret af moderatoren på webstedet
Det kører godt, men jeg har brug for en VBA af pasta som værdi for en masse Excel-projektmapper.



Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Dette er, hvad jeg bruger (jeg afslutter filen automatisk, så jeg vil ikke gemme ved et uheld kun med værdier).

Men jeg ville gerne beholde kun ét ark gemt "normalt" fordi jeg har en rulleliste der, som jeg ikke vil miste, når jeg deler filen.


Kan nogen hjælpe mig med at gøre dette?

Tak!


Sub Saveasvalue()

Dim wsh som arbejdsark
For hver Wsh I ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
Næste
Application.CutCopyMode = False

savename = Application.GetSaveAsFilename(fileFilter:="Exel-filer (*.xlsx), *.xlsx")
ActiveWorkbook.SaveAs Filnavn:=gemnavn, Filformat:=51

Application.DisplayAlerts = Falsk 'afslut uden advarsler
Application. Quit
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
sämst shjkjhgasghjdfsjhkfdgsdjhgafgb,ja u fdsvjkhgfkjahfg ka khdfzhjkg
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