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

Sut i arbed ffeil Excel gyda gwerth celloedd?

Pan ddefnyddiwch lyfr gwaith, a ydych erioed wedi meddwl arbed y ffeil Excel yn seiliedig ar gynnwys cell? Er enghraifft, mae gennych “bris gwerthu” yng nghell A1, a hoffech chi arbed y llyfr gwaith fel yr enw Pris gwerthu. Wrth gwrs, gallwch chi deipio'r enw yn y dialog Save As, ac yna ei gadw. Ond bydd hwn yn ddull aneffeithlon yn eich gwaith. Heddiw, byddaf yn siarad am dric cyflym i'w ddatrys.

Cadwch ffeil Excel gyda gwerth celloedd penodol trwy ddefnyddio cod VBA

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

swigen dde glas saeth Cadwch ffeil Excel gyda gwerth celloedd penodol trwy ddefnyddio cod VBA


Efallai y bydd y cod VBA canlynol yn eich helpu i arbed eich llyfr gwaith gyda gwerth celloedd penodol, gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

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

Cod VBA: Cadw ffeil Excel gyda gwerth celloedd penodol

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. Ac yna pwyswch F5 allwedd i weithredu'r cod, ac mae eich llyfr gwaith wedi'i enwi fel cynnwys celloedd cell A1. Gweler y screenshot:

doc-arbed-gyda-gell-werth-1

Nodiadau:

1. Gallwch nodi unrhyw werth cell fel enw'r ffeil trwy addasu'r A1 i gyfeirnod cell arall yn y cod uchod.

2. Bydd eich llyfr gwaith gweithredol yn cael ei gadw yn ffolder C: \ Defnyddwyr \ dt \ Penbwrdd \ fy ngwybodaeth \ (rhaid aros y slaes olaf pan fyddwch chi'n pastio'ch lleoliad yn ei le), gallwch newid y llwybr i'ch angen.


Erthyglau cysylltiedig:

Sut i gadw ffeil gyda dyddiad ac amser yn Excel?

Sut i ddangos llwybr ffeil yn y bar teitl neu'r bar offer yn Excel?


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 (31)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
nid yw'r modiwl yn arbed yn .XlsX ; meddwl bod ganddo rywbeth i'w wneud â llinell 7;; ".xls", FileFormat:=xlNormal; Hefyd, sut alla i addasu i gymryd y gwerth o 3 cell wahanol concatenated? er enghraifft: enw cyntaf , enw olaf , dyddiad; yn llinell 6 o'r cod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dim enw ffeil Fel Llinyn
Dim enw ffeil1 Fel Llinyn
Dim enw ffeil2 Fel Llinyn

Path = "C:\Users\dt\Desktop\fy ngwybodaeth\"
filename = Ystod ("A1")
filename1 = Ystod ("A2")
filename2 = Ystod ("A3")
ActiveWorkbook.SaveAs filename:=Llwybr ac enw ffeil &" -" & filename1 & "-" & filename2 ".xls", FileFormat:=xlNormal
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Chris. Gallwch ei concatinate mewn cell ar wahân ac yna cyfeirio at y gell honno fel eich gwerth enw ffeil.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, dim ond fel y llwybr ac enw'r ffeil y bydd Mwynglawdd yn arbed. Dim ond i'r enw ffeil y cyfeirir ato o'r gell yr wyf am ei gadw. Allwch chi fy helpu os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn eithaf cŵl ... ond mae'n ymddangos bod yna nam nad wyf yn siŵr sut i'w gywiro. Rwy'n defnyddio hwn mewn templed macro-alluogi. Rwy'n agor y templed, rwy'n gwneud newidiadau / diweddariadau, rwy'n taro F5 i redeg y macro... a ... mae blwch deialog "Ewch i" yn ymddangos yn disgwyl i mi roi "cyfeiriad" i mewn. Fodd bynnag, os byddaf yn taro ALT F11, ac YNA taro F5, mae'r ffeil .xls newydd yn cael ei gadw yn ôl y disgwyl. A oes angen i mi agor y modiwl Visual Basic bob amser i redeg y weithdrefn "arbed" hon?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gennyf dempled nad wyf am gael ei ysgrifennu drosto fel bod gofyn i'r defnyddiwr gadw'r ffeil a enwir yn ôl dyddiad a roddwyd yn un o'r meysydd. Dydw i ddim eisiau i'r defnyddiwr orfod agor offer yna dewis / rhedeg macro. Efallai y byddan nhw'n nodi enw'r ffeil yn ogystal.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
gallwch ychwanegu'r =NAWR() fel paramedr at eich enw ffeil yn y gell cyn i chi ei dynnu yn y Macro (a hefyd gosod botwm safonol yng nghornel y dudalen fel na fydd yn rhaid i'r cyflogai agor unrhyw offer
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rydych chi'n bobl sy'n achub bywydau. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae angen i mi gadw fel ffeil .csv. sut fyddwn i'n newid hwn i wneud iddo gadw fel ffeil .csv? Preifat Is-ffeilname_cellvalue() 'Diweddariad 20141112 Dim Llwybr Fel Llinynnol Enw'r ffeil As String Path = "C:\Doorlister\import\DoorJob\" filename = Ystod ("AC2") ActiveWorkbook.SaveAs filename:=Llwybr ac enw ffeil & ".xls ", FileFormat:=xlNormal End Sub Diolch i chi ymlaen llaw am eich cymorth!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dw i'n meddwl mod i wedi gwneud rhywbeth o'i le yma...

Mae'n rhoi gwall i mi yn Taflenni llinell ("shitname"). Dewiswch

Mae'n debyg i mi wneud rhywbeth o'i le pan enwais y "shitname" fel y gell K10

Rwyf am newid y ddalen i ddalen arall a elwir yn union fel y gell K10


' Macro gicsel
'
' Llwybr Byr Bysellfwrdd: Ctrl+Shift+C
'
Dewis.Copy
Taflenni ("debagat"). Dewiswch
Rhesi ("8:8"). Dewiswch
Taflen Actif.Gludo
Llwybr Dim Fel Llinyn
Llwybr = "C:\cgxml\"
Dim enw ffeil Fel Llinyn
filename = Ystod ("A8")
Dim shitname Fel Llinynnol
shitname = Ystod ("K10")
Taflenni ("shitname"). Dewiswch
Application.CutCopyMode = Anghywir
ActiveWorkbook.SaveAs filename:=Llwybr ac enw ffeil & ".xml", FileFormat:=xltxt, CreateBackup:=Gau
Taflenni ("CYFANSWM"). Dewiswch
ActiveCell.Offset(1, 0).EntireRow.Select
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio'n wych... Diolch, ond mae angen i mi gadw fel PDF... Unrhyw feddyliau?

diolch

Chris
Lleihawyd y sylw hwn gan y safonwr ar y wefan
yr un peth ag uchod ond disodli ActiveWorkbook.SaveAs gyda: "ActiveSheet.ExportAsFixedFormat Math:=xlTypePDF, Filename:= _" C:\input filenamne.pdf", Ansawdd:= _
xlQualityStandard, IncludeDocProperties:=Gwir, IgnorePrintAreas:=Anghywir, _
OpenAfterPublish:=Gwir
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am eich adborth, wedi fy helpu yn fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Beth ddylwn i ei ychwanegu os oeddwn i eisiau cadw'r daflen waith weithredol ond gan ddefnyddio gwerth cell taflen 1?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helpwch os gwelwch yn dda... Rwyf wedi llwyddo i wneud popeth. Ond mae'n arbed y dogfennau yn Fy Nogfennau yn lle'r gweinydd penodedig...



Is-orchymyn PreifatButton1_Cliciwch()
Llwybr Dim Fel Llinyn
Dim FfeilName1 Fel Llinyn
Dim FfeilName2 Fel Llinyn
Dim FfeilName3 Fel Llinyn
Dim FfeilName4 Fel Llinyn
Dim FfeilName5 Fel Llinyn
Path = "J:\Protection Services\Documents\Booysendal diogelwch"
FileName1 = Ystod ("A2")
FileName2 = Ystod ("B2")
FileName3 = Ystod ("C2")
FileName4 = Ystod ("D2")
FileName5 = Ystod ("E2")
ActiveWorkbook.SaveAs Filename:=Enw Ffeil 1 &" -" &FfeilName2 &" -" &FfeilName3 &" -" &FfeilName4 &" -" &FileName5 & ".xls", FileFormat:=xlNormal
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ychwanegu adlach ar ôl diogelwch a chyn y dyfynbris... ...security\"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth os ydych chi eisiau dim ond eisiau diffinio enw'r ffeil ond bod gennych chi'r opsiwn i ddewis y llwybr ffeil bob tro y byddwch chi'n arbed?

Hefyd a allwch chi nodi celloedd lluosog ar gyfer yr enw ffeil. Mae'r celloedd wedi'u huno hefyd.

Arbedwch i wahanol lwybrau ffeil bob tro

Defnyddiwch gelloedd lluosog ar gyfer enw'r ffeil
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Iawn, felly cefais hyn yn gweithio'n dda gan ddefnyddio botwm mewn taflen. Nawr hoffwn iddo arbed fel arfer ar ôl y arbediad cychwynnol fel. A ellir gwneud hyn? Gan ddefnyddio'r un botwm arbed?
Diolch Bruce
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut i greu macro i arbed dalennau lluosog fel gyda'u gwerthoedd cell fel enwau ffeiliau
Diolch,
Rajiv
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo i gyd!

Sut gall arbed mewnbwn ailadroddus yn yr un celloedd, mewn celloedd eraill, gyda Macro?

Ar daflen 1, rwy'n mewnbynnu data yn A1, B1, C1, ar gyfer n-amserau mewn diwrnod. Yn sheet2, mae angen i mi gadw'r holl gofnodion hyn, yn A2, B2, C2, A3, B3, C3, ac ati. Tnx!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo ffrindiau,
Mae gen i broblem a byddwn yn falch os oes rhywun i fy helpu
Mae gen i ffeil yn gyriant "F" a ffolder "ABS" - fy enw ffeil yw "Listdata"
Mewn ffeil Excel ar fy n ben-desg rydw i eisiau i gelloedd (4,4) adfer data o ddalen "ABS" (1) a cell (2,2)
Y cod isod
Is-facro1()
activesheet.Cells(4, 4).Value = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Gwerth
Is-End
ond nid yw'n gweithio'n gywir
Diolch Gyfeillion
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n ceisio defnyddio'r cod hwn ond pan fyddaf yn ceisio gweithredu rwy'n cael gwall runtime 1004 ac mae'n amlygu rhes 7 fel un annilys: ActiveWorkbook.SaveAs filename:=Llwybr ac enw ffeil & ".xls", FileFormat:=xlNormal
Sut gallaf ddatrys hyn? Rwy'n defnyddio office 365
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Se a célula de referencia estiver em uma outra planilha já aberta? Como faço?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. Rwy'n gyffrous iawn y gallai weithio, ond i mi mae'n dweud "gwall Rhedeg SYLFAENOL. Nid yw'r weithdrefn neu'r weithdrefn swyddogaeth wedi'i diffinio." a saeth yn nodi llinell 6. Beth ddylwn i ei wneud?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i fotwm rheoli ar gyfer arbed fel PDF gydag enw penodol i leoliad penodol eisoes yn gweithio, ond rwyf am addasu'r cod gan mai enw'r ffeil yw enw'r ddalen weithredol ynghyd â gwerth cell benodol o ddalen arall. Sut mae gwneud hynny? Dyma beth sydd gen i i'w arbed fel PDF:


Is-orchymyn PreifatButton1_Cliciwch()
Application.ScreenUpdating = Anghywir
ActiveSheet.ExportAsFixedFormat Math:=xlTypePDF, _
filename: = " \ U: \ Dogfennau \ My_IT_Stuff \ T&A \ PP11", _
OpenAfterPublish: = Anghywir
Application.ScreenUpdating = Gwir
Is-End

Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a all unrhyw un helpu gyda datrysiad, rwyf wedi llwyddo i gael yr allbwn yn gywir os nad yw'r gell yn wag

Is-gadw Preifat()

Dim llwybr Fel Llinyn

Dim enw ffeil1 Fel Llinyn



path = "C:\User\Compwork\"



filename1 = llwybr & Ystod ("G4") & " & " -" & " & Ystod ("G6") & " " & " -" & " " & Ystod ("H7") & " " & " VTError "

Application.DisplayAlerts = Gau

ActiveWorkbook.Saveas filename1, FileFormat:=52, CreateBackup:=Anghywir

ThisWorkbook.Worksheets("adroddiad").ExportAsFixedFormat Math:=x1typePDF, Enw Ffeil:=enw ffeil1

Application.DisplayAlerts = Gwir

ActiveWorkbook.Close



Is-End



Fodd bynnag, fy mhroblem yw hoffwn arbed enw ffeil heb adael gofod os yw gwerth y gell yn NULL er enghraifft, os yw gwerth G6 yn wag yna hoffwn yr allbwn "G4-H7 VTError".
A oes unrhyw ffordd i fynd i'r afael â hyn?


Diolch.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir