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

Conas gach bileog oibre a shábháil mar luachanna amháin?

Má tá leabhar oibre agat ina bhfuil iliomad foirmlí, anois, ní mór duit an comhad seo a dháileadh ar úsáideoirí eile, níl tú ag iarraidh na foirmlí a thaispeáint ach luachanna a thaispeáint. De ghnáth, is féidir linn bileog oibre a shábháil go tapa mar luachanna trí na sonraí a chóipeáil agus a ghreamú mar luachanna amháin. Ach, conas a d’fhéadfá gach bileog oibre a shábháil mar luachanna ach gan iad a chóipeáil agus a ghreamú ceann ar cheann?

Sábháil gach bileog oibre mar luachanna le cód VBA amháin


mboilgeog cheart gorm saighead Sábháil gach bileog oibre mar luachanna le cód VBA amháin

Is féidir leis an gcód VBA seo a leanas cabhrú leat gach bileog a shábháil go tapa mar luachanna (gan aon fhoirmlí) agus gach formáidiú cille a chaomhnú. Déan mar seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Sábháil gach bileog oibre mar luachanna amháin:

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. Ansin brúigh F5 eochair chun an cód seo a rith, agus sábháladh an leabhar oibre iomlán mar luachanna amháin, baineadh na foirmlí uile ag an am céanna ach luachanna a fhágáil le formáidiú cille.

nótaí: Sula gcuirfidh tú an cód i bhfeidhm, is féidir leat cóip den leabhar oibre a shábháil ar dtús.


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (18)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat! D'oibrigh an cód VBA go hiontach.
Rud amháin a thug mé faoi deara áfach, nuair a rinne mé iarracht é a úsáid ar leabhar oibre le Scagaire ar roinnt cealla, ní oibreoidh sé.
Aon réiteach chun an cód seo a oibriú gan an Scagaire a dhíchumasú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an fhadhb chéanna agam agus cód VBA á úsáid agam le scagaire. An raibh réiteach agat air?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hey an raibh tú in ann é seo a shocrú? Tá an cheist chéanna agam
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An-mhaith! Réitigh sé go leor de na fadhbanna atá agam. Go raibh míle maith agat. Mhéin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat Bro..tá sé seo iontach..chuidigh go mór liom.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fo-luach Sábháil()
'Updateby Extendoffice 20161025
Dim wsh Mar Bhileog Oibre
Do Gach wsh Sa Leabhar Saothair Seo.Bileoga Oibre
wsh.Cealla.Cóip
wsh.Cells.PasteSpecial xlPasteValues ​​- ag fáil am Rith Earráid 1004 - AN FÉIDIR LIOM CABHRÚ AR SEO.
Ar Aghaidh
Application.CutCopyMode = Bréagach
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
nuair a ritheann mé an cód sin, faighim earráid "Fáil am Rith Earráid 1004".
FYI, i mo excel tá cealla chumasc.

Beidh sé ina chuidiú má thugann duine réiteach

Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, a stór,
Oibríonn an cód thuas go maith i mo leabhar oibre, cén leagan Excel a úsáideann tú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn sé go maith. go raibh maith agat.

@mirna: ní mór duit leathán nó cill a dhíchosaint. Ní maith le VB mód cosanta :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Spraoi!! Muito Bom!!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is féidir leis an gcód seo a leanas a dhéanamh, ach is féidir leat a bheith ag obair leis na gnéithe is gá a chur san áireamh leis an gcartlann excel. se puede ?
Beannachtaí.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bain na scagairí/cosaint ar fad ar na bileoga. chóir oibriú go foirfe.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Maith sibh! Ar fheabhas! Teastaíonn seo uaim ach níl bileoga ar bith
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní mór dom ráitis airgeadais atá bunaithe ar Excel a fhoilsiú le grúpálacha. D'oibrigh sé seo chun na foirmlí go léir a ghlanadh agus gan ach na huimhreacha a fhágáil. Rinne modhanna eile a bhain mé triail as na grúpálacha a ghlanadh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An bhfuil aon bhealach chun é seo a chealú má tá dearmad déanta agat ar leagan na foirmle a shábháil ar dtús?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ritheann sé go maith ach teastaíonn VBA de ghreamú uaim mar luach le haghaidh sraith de leabhair oibre excels.



Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Is é seo an rud atá in úsáid agam (go n-imíonn mé as an gcomhad go huathoibríoch mar sin ní shábhálfaidh mé trí thimpiste le luachanna amháin).

Ach bhí mé ag iarraidh a choinneáil níor shábháil ach bileog amháin "de ghnáth" mar tá liosta anuas agam ansin nár mhaith liom a chailleadh agus an comhad á roinnt.


An féidir le haon duine cabhrú liom é seo a dhéanamh?

Go raibh maith agat!


Fo-luach Sábháil()

Dim wsh Mar Bhileog Oibre
Do Gach wsh Sa Leabhar Saothair Seo.Bileoga Oibre
wsh.Cealla.Cóip
wsh.Cealla.PasteSpecial xlPasteValues
Ar Aghaidh
Application.CutCopyMode = Bréagach

savename = Application.GetSaveAsFilename(fileFilter:="Comhaid Exel (*.xlsx), *.xlsx")
ActiveWorkbook.SaveAs Ainm comhaid:=savename, FileFormat:=51

Application.DisplayAlerts = Scoir 'bréagach gan foláirimh
Iarratas.Scoir
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
sämst shjkjhgasghjdfsjhkfdgsdjhgafgb, agus u fdsvjkhgfkjahfg ka khdfzhjkg
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL