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

Hogyan mentse az összes munkalapot csak értékként?

Ha van egy munkafüzete, amely több képletet tartalmaz, most el kell terjesztenie ezt a fájlt más felhasználóknak, nem a képleteket szeretné megjeleníteni, hanem csak az értékeket jeleníti meg. Normál esetben gyorsan elmenthetünk egy munkalapot értékként, ha az adatokat csak értékekként másoljuk és illesztjük be. De hogyan menthetné el az összes munkalapot csak értékként anélkül, hogy egyesével másolná és beillesztené?

Az összes munkalapot csak VBA kóddal mentse értékként


nyíl kék jobb buborék Az összes munkalapot csak VBA kóddal mentse értékként

A következő VBA-kód segíthet az összes lap gyors mentésében értékekként (képletek nélkül) és az összes cella-formázás megőrzésében. Kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Az összes munkalap mentése csak értékként:

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és az egész munkafüzet csak értékként mentésre került, az összes képletet egyszerre eltávolítottuk, csak az értékek maradnak cellák formázásával.

Megjegyzések: A kód alkalmazása előtt elmentheti a munkafüzet egy példányát.


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (18)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Kösz! A VBA kód csodálatosan működött.
Egy dolgot azonban észrevettem, amikor megpróbáltam használni egy munkafüzetben, és egyes cellákon a szűrőt, nem fog működni.
Van valami megoldás, hogy ez a kód a szűrő letiltása nélkül működjön?
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanez a probléma, amikor VBA kódot használok szűrővel. Volt rá megoldásod?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, sikerült ezt megjavítani? Ugyanez a problémám
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon jó! Sok problémámat megoldotta. Nagyon köszönöm. Üdvözlettel.
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen tesó..ez csodálatos..sokat segített nekem.
A weboldal moderátora ezt a megjegyzést minimalizálta
SubSaveasvalue()
'Frissítés által Extendoffice 20161025
Dim wsh munkalapként
Minden wsh-hez a ThisWorkbook.Worksheetsben
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues ​​– 1004-es futásidejű hiba lekérése – VÁRKI SEGÍTHET EZEN.
Következő
Application.CutCopyMode = Hamis
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Amikor lefuttatom ezt a kódot, a "Geting Run Time Error 1004" hibaüzenetet kapom.
FYI, az excelemben vannak egyesített cellák.

Hasznos lenne, ha valaki adna megoldást

Köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Mirna!
A fenti kód jól működik a munkafüzetemben, melyik excel verziót használod?
A weboldal moderátora ezt a megjegyzést minimalizálta
Jól működik. Kösz.

@mirna: le kell szüntetni a lap vagy a cella védelmét. A VB nem szereti a védelmi módot :)
A weboldal moderátora ezt a megjegyzést minimalizálta
Funcionou!! Muito Bom!!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Tengo ese código, si bien es cierto funciona pero quisiera que no regarde algunas hojas de mi archivo excel. se puede ?
Üdvözlet.
A weboldal moderátora ezt a megjegyzést minimalizálta
Távolítson el minden szűrőt/védelmet az összes lapról. tökéletesen működnie kell.
A weboldal moderátora ezt a megjegyzést minimalizálta
Jó! Kiváló! Ez kell nekem, de nincs lap
A weboldal moderátora ezt a megjegyzést minimalizálta
Excel alapú pénzügyi kimutatásokat kell közzétennem csoportosítással. Ezzel sikerült az összes képletet törölni, és csak a számokat hagyni. Más módszerek, amelyeket próbáltam, törölték a csoportosításokat.
A weboldal moderátora ezt a megjegyzést minimalizálta
Van valami mód ennek visszavonására, ha elfelejtette először menteni a képlet verzióját?
A weboldal moderátora ezt a megjegyzést minimalizálta
Jól működik, de szükségem van egy VBA pasztára, mint érték egy csomó Excel-munkafüzethez.



A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
Ezt használom (automatikusan kilépek a fájlból, így véletlenül sem mentem csak értékekkel).

De megtartani akartam csak egy lap mentve "normál módon" mert van egy legördülő listám, amit nem szeretnék elveszíteni a fájl megosztása során.


Tud valaki ebben segíteni?

Köszönöm!


SubSaveasvalue()

Dim wsh munkalapként
Minden wsh-hez a ThisWorkbook.Worksheetsben
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
Következő
Application.CutCopyMode = Hamis

savename = Application.GetSaveAsFilename(fileFilter:="Exel fájlok (*.xlsx), *.xlsx")
ActiveWorkbook.SaveAs Fájlnév:=mentett név, Fájlformátum:=51

Application.DisplayAlerts = False 'kilépés riasztások nélkül
Application.Quit
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
sämst shjkjhgasghjdfsjhkfdgsdjhgafgb,ja u fdsvjkhgfkjahfg ka khdfzhjkg
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi