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

Sut i arbed pob taflen waith fel gwerthoedd yn unig?

Os oes gennych lyfr gwaith sy'n cynnwys sawl fformiwla, nawr, mae angen i chi ddosbarthu'r ffeil hon i ddefnyddwyr eraill, nid ydych chi am ddangos y fformwlâu ond dim ond gwerthoedd sy'n cael eu harddangos. Fel rheol, gallwn arbed taflen waith yn gyflym fel gwerthoedd trwy gopïo a gludo'r data fel gwerthoedd yn unig. Ond, sut allech chi arbed pob taflen waith fel gwerthoedd yn unig heb gopïo a gludo fesul un?

Cadwch yr holl daflenni gwaith fel gwerthoedd yn unig gyda chod VBA


swigen dde glas saeth Cadwch yr holl daflenni gwaith fel gwerthoedd yn unig gyda chod VBA

Gall y cod VBA canlynol eich helpu i arbed pob dalen yn gyflym fel gwerthoedd (dim fformwlâu) a chadw'r holl fformatio celloedd. Gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Cadwch yr holl daflenni gwaith fel gwerthoedd yn unig:

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. Yna pwyswch F5 yn allweddol i redeg y cod hwn, ac mae'r llyfr gwaith cyfan wedi'i arbed fel gwerthoedd yn unig, mae'r holl fformiwlâu wedi'u tynnu ar unwaith dim ond gadael gwerthoedd gyda fformatio celloedd.

Nodyn: Cyn i chi gymhwyso'r cod, gallwch arbed copi o'r llyfr gwaith yn gyntaf.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (17)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Gweithiodd y cod VBA yn wych.
Un peth sylwais serch hynny, pan geisiais ei ddefnyddio ar lyfr gwaith gyda Filter ar rai celloedd, ni fydd yn gweithio.
Unrhyw ateb i'r cod hwn weithio heb analluogi'r Hidlydd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gennyf yr un broblem wrth ddefnyddio cod VBA gyda hidlydd. A ydych wedi cael ateb ar ei gyfer?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei, oeddech chi'n gallu trwsio hyn? Yr un mater sydd gennyf
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da iawn! Mae wedi datrys llawer o fy mhroblemau. Diolch yn fawr. Cofion.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr Bro..mae hyn yn anhygoel..wedi fy helpu'n fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-werth arbed()
'Updateby Extendoffice 20161025
Dim wsh Fel Taflen Waith
Am Bob wsh Yn Y Gweithlyfr Hwn.Taflenni Gwaith
wsh.Celloedd.Copy
wsh.Cells.PasteSpecial xlPasteValues ​​- cael Run time Gwall 1004 - GALL UNRHYW UN HELPU AR HYN.
Digwyddiadau
Application.CutCopyMode = Anghywir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
pan fyddaf yn rhedeg y cod hwnnw, rwy'n cael gwall "Cael Gwall Amser Rhedeg 1004".
FYI, yn fy excel mae celloedd uno.

Bydd yn ddefnyddiol pe bai rhywun yn rhoi datrysiad

Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mirna,
Mae'r cod uchod yn gweithio'n dda yn fy llyfr gwaith, pa fersiwn excel ydych chi'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n gweithio'n dda. diolch.

@mirna: mae angen i chi ddad-ddiogelu dalen neu gell. Nid yw VB yn hoffi modd amddiffyn :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hwyl!! Muito Bom!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Tengo ese codigo, si bien es cierto funciona pero quisiera que no considere algunas hojas de mi archivo excel. Se puede ?
Cyfarchion.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Tynnwch yr holl hidlwyr / amddiffyniad yn yr holl ddalennau. dylai weithio'n berffaith.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da! Ardderchog! Dwi angen hwn ond dim dalennau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae angen i mi gyhoeddi datganiadau ariannol seiliedig ar Excel gyda grwpiau. Gweithiodd hyn i glirio'r holl fformiwlâu a gadael y rhifau yn unig. Roedd dulliau eraill a geisiais yn clirio'r grwpiau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw ffordd i ddadwneud hyn os ydych wedi anghofio cadw fersiwn y fformiwla i lawr yn gyntaf?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n rhedeg yn dda ond mae angen VBA o bast arnaf fel gwerth ar gyfer criw o lyfrau gwaith excels.



Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Dyma beth rydw i'n ei ddefnyddio (dwi'n gadael y ffeil yn awtomatig felly ni fyddaf yn arbed yn ddamweiniol gyda gwerthoedd yn unig).

Ond roeddwn i eisiau cadw dim ond un ddalen sydd wedi'i chadw "fel arfer" oherwydd mae gen i gwymplen yno na hoffwn ei cholli wrth rannu'r ffeil.


A all unrhyw un fy helpu i wneud hyn?

Diolch yn fawr!


Is-werth arbed()

Dim wsh Fel Taflen Waith
Am Bob wsh Yn Y Gweithlyfr Hwn.Taflenni Gwaith
wsh.Celloedd.Copy
wsh.Cells.PasteSpecial xlPasteValues
Digwyddiadau
Application.CutCopyMode = Anghywir

savename = Application.GetSaveAsFilename(fileFilter:="Ffeiliau Exel (*.xlsx), *.xlsx")
ActiveWorkbook.SaveAs Enw ffeil:=savename, FileFormat:=51

Application.DisplayAlerts = Gadael 'Gau' heb rybuddion
Cais.Quit
Is-End
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir