Als u een werkmap heeft die meerdere formules bevat, moet u dit bestand nu naar andere gebruikers distribueren, u wilt de formules niet weergeven, maar alleen waarden worden weergegeven. Normaal gesproken kunnen we een werkblad snel opslaan als waarden door de gegevens alleen als waarden te kopiëren en te plakken. Maar hoe kunt u alle werkbladen alleen als waarden opslaan zonder ze een voor een te kopiëren en te plakken?
Sla alle werkbladen alleen op als waarden met VBA-code
De volgende VBA-code kan u helpen om snel alle bladen op te slaan als waarden (geen formules) en alle celopmaak te behouden. Doe alstublieft als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: sla alle werkbladen alleen op als waarden:
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. Druk vervolgens op F5 sleutel om deze code uit te voeren, en de hele werkmap is alleen als waarden opgeslagen, alle formules zijn tegelijk verwijderd, laten alleen waarden achter met celopmaak.
Opmerking:: Voordat u de code toepast, kunt u eerst een kopie van de werkmap opslaan.
De beste tools voor kantoorproductiviteit
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
Hi, This is what i'm using (I exit the file automatically so I won't save accidently with values only).
But I wanted to keep just one sheet saved "normally" because I have a drop down list there that I would not like to lose when sharing the file.
Can anyone help me do this?
Thank you!
Sub Saveasvalue() Dim wsh As Worksheet
For Each wsh In ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
Next
Application.CutCopyMode = False savename = Application.GetSaveAsFilename(fileFilter:="Exel Files (*.xlsx), *.xlsx")
ActiveWorkbook.SaveAs Filename:=savename, FileFormat:=51 Application.DisplayAlerts = False 'exit without alerts
Application.Quit
End Sub
I need to publish Excel based financial statements with groupings. This worked to clear all the formulae and leave just the numbers. Other methods I tried cleared the groupings.
Sub Saveasvalue()
'Updateby Extendoffice 20161025 Dim wsh As Worksheet
For Each wsh In ThisWorkbook.Worksheets wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues - getting Run time Error 1004 - CAN ANYONE HELP ON THIS. Next
Application.CutCopyMode = False
End Sub
Thanks! The VBA code worked wonderfully.
One thing I noticed though, when I tried to use it on a workbook with Filter on some cells, it won't work.
Any workaround for this code to work without disabling the Filter?
