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

Ինչպե՞ս պահպանել Excel ֆայլը բջջային արժեքով:

Երբ աշխատանքային գրքույկ եք օգտագործում, երբևէ մտածե՞լ եք, որ բջջային բովանդակության հիման վրա պահպանեք Excel ֆայլը: Օրինակ, A1 բջիջում ունեք «Վաճառքի գին», և ցանկանում եք աշխատանքային գրքույկը պահել որպես անուն Վաճառքի գին: Իհարկե, անունը կարող եք մուտքագրել Save As երկխոսության մեջ, այնուհետև պահպանել այն: Բայց սա կլինի անարդյունավետ մեթոդ ձեր աշխատանքի քանակի մեջ: Այսօր ես կխոսեմ այն ​​լուծելու արագ հնարքի մասին:

Պահպանեք Excel ֆայլը հատուկ բջջային արժեքով ՝ օգտագործելով VBA կոդ

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

նետ կապույտ աջ պղպջակ Պահպանեք Excel ֆայլը հատուկ բջջային արժեքով ՝ օգտագործելով VBA կոդ

Հետևյալ VBA կոդը կարող է օգնել ձեզ պահպանել ձեր աշխատանքային գրքույկը նշված բջջային արժեքով, խնդրում ենք կատարել հետևյալը.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Պահպանեք Excel ֆայլը բջջային որոշակի արժեքով

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, Եվ հետո սեղմեք F5 Կոդը կատարելու բանալին, և ձեր աշխատանքային գիրքը անվանվել է որպես A1 բջիջի բջջային պարունակություն: Տեսեք,

doc- խնայել-բջջային արժեքի հետ 1

Նշումներ:

1. Որպես ֆայլի անուն կարող եք նշել ցանկացած բջջային արժեք `պարզապես վերափոխելով A1- ը վերը նշված կոդի այլ բջջային հղման:

2. Ձեր ակտիվ աշխատանքային գրքույկը կպահպանվի պանակի մեջ C: \ Users \ dt \ Desktop \ իմ տվյալները \ (վերջին կտրվածքը պետք է մնա, երբ ձեր տեղը տեղադրեք դրա փոխարեն) գտնվելու վայրը, կարող եք փոխել ձեր կարիքի ուղին:


Առնչվող հոդվածներ քանակը:

Ինչպե՞ս պահպանել ֆայլը Excel- ում ամսաթվով և ժամով:

Ինչպե՞ս ցույց տալ ֆայլի ուղին Excel- ում վերնագրի տողում կամ գործիքագոտում:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (33)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
մոդուլը չի ​​պահպանում .XlsX ; կարծեք, որ դա կապ ունի 7-րդ տողի հետ; «.xls», Ֆայլի ձևաչափ:=xlNormal; Նաև ինչպե՞ս կարող եմ փոփոխել, որպեսզի արժեքը վերցնեմ միացված 3 տարբեր բջիջներից: օրինակ՝ անուն, ազգանուն, ամսաթիվ; օրենսգրքի 6-րդ տողում.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մթնեցրեք ֆայլի անունը որպես տող
Մթնեցրեք ֆայլի անունը1 որպես տող
Մթնեցրեք ֆայլի անունը2 որպես տող

Ճանապարհ = "C:\Users\dt\Desktop\my information\"
ֆայլի անուն = միջակայք («A1»)
ֆայլի անուն1 = միջակայք («A2»)
ֆայլի անուն2 = միջակայք («A3»)
ActiveWorkbook.SaveAs ֆայլի անունը.=Ուղին և ֆայլի անունը & «-» & ֆայլի անունը1 & «-» & ֆայլի անունը2 «.xls», Ֆայլի ձևաչափը՝=xlՆորմալ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Քրիս. Դուք կարող եք այն միացնել առանձին բջիջի մեջ և այնուհետև նշել այդ բջիջը որպես ձեր ֆայլի անվան արժեք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Իմը կպահվի միայն որպես ուղի և ֆայլի անուն: Ես ուզում եմ, որ միայն ֆայլի անունը պահպանվի, որը նշված է բջիջից: Խնդրում եմ, կարող եք օգնել ինձ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա բավականին հիանալի է... բայց կարծես սխալ կա, որը ես վստահ չեմ, թե ինչպես ուղղել: Ես օգտագործում եմ սա մակրո-միացված ձևանմուշում: Ես բացում եմ ձևանմուշը, կատարում եմ փոփոխություններ/թարմացումներ, սեղմում եմ F5՝ մակրո գործարկելու համար... և... բացվում է «Գնալ դեպի» երկխոսության տուփը, որը ակնկալում է, որ ես մուտքագրեմ «տեղեկանք»: Այնուամենայնիվ, եթե սեղմեմ ALT: F11, այնուհետև սեղմեք F5, նոր .xls ֆայլը պահվում է ինչպես սպասվում էր: Արդյո՞ք ես միշտ պետք է բացեմ Visual Basic մոդուլը այս «փրկելու» ընթացակարգը գործարկելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ ձևանմուշ, որի վրա չեմ ուզում գրվի այնպես, որ օգտագործողից պահանջվի պահել դաշտերից մեկում մուտքագրված ամսաթվով նշված ֆայլը: Ես չեմ ուզում, որ օգտվողը ստիպված լինի բացել գործիքները, այնուհետև ընտրել / գործարկել մակրո: Նրանք կարող են նաև մուտքագրել ֆայլի անունը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք կարող եք =NOW()-ը որպես պարամետր ավելացնել ձեր ֆայլի անվանմանը բջիջում՝ նախքան այն հանել մակրոյում (և նաև տեղադրել ստանդարտ կոճակ էջի անկյունում, որպեսզի աշխատողը ստիպված չլինի բացել որևէ գործիք։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք, տղաներ, փրկիչներ եք: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես պետք է պահպանեմ որպես .csv ֆայլ: ինչպես կարող եմ փոխել սա, որպեսզի այն պահպանվի որպես .csv ֆայլ: Private Sub filename_cellvalue() 'Update 20141112 Dim Path As String Dim ֆայլի անունը As String Path = "C:\Doorlister\import\DoorJob\" ֆայլի անուն = Range("AC2") ActiveWorkbook.SaveAs ֆայլի անունը.=Ուղին & ֆայլի անունը & ".xls" ", FileFormat:=xlNormal End Sub Կանխավ շնորհակալ ենք ձեր օգնության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարծում եմ, որ ես ինչ-որ բան սխալ եմ արել այստեղ ...

Այն ինձ սխալ է տալիս Sheets-ում («shitname»): Ընտրեք

Հավանաբար, ես ինչ-որ սխալ եմ արել, երբ անվանել եմ «shitname»-ը, ինչպես բջիջը K10

Ես ուզում եմ թերթը փոխել մեկ այլ թերթիկի, որը կոչվում է հենց այնպես, ինչպես բջիջը K10


gicsel Macro
'
Ստեղնաշարի դյուրանցում՝ Ctrl+Shift+C
'
Ընտրություն.Պատճեն
Թերթեր ("debagat"). Ընտրեք
Տողեր ("8:8"): Ընտրեք
ActiveSheet.Paste
Dim Path As String
Ճանապարհ = "C:\cgxml\"
Մթնեցրեք ֆայլի անունը որպես տող
ֆայլի անուն = միջակայք («A8»)
Dim shitname As String
shitname = միջակայք («K10»)
Թերթեր ("shitname"): Ընտրեք
Application.CutCopyMode = Կեղծ է
ActiveWorkbook.SaveAs ֆայլի անունը.=Ուղին և ֆայլի անունը & «.xml», Ֆայլի ձևաչափ:=xltxt, CreateBackup:=False
Թերթեր («TOTAL»): Ընտրեք
ActiveCell.Offset(1, 0).EntireRow.Select
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հիանալի է աշխատում... Շնորհակալություն, բայց ես պետք է պահպանեմ որպես PDF... Կա՞ն մտքեր:

Շնորհակալություն

Chris
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
նույնը, ինչ վերևում, բայց ActiveWorkbook.SaveAs-ը փոխարինիր հետևյալով.
xlQualityStandard, IncludeDocProperties:=Ճիշտ, ԱնտեսելՏպագրման տարածքները:=Սխալ, _
OpenAfterPublish:=Ճիշտ է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն արձագանքի համար, ինձ շատ օգնեց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Ի՞նչ պետք է ավելացնեմ, եթե ուզում էի պահպանել ակտիվ աշխատաթերթը, բայց օգտագործելով թերթի 1 բջիջի արժեքը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Խնդրում եմ օգնեք... Ինձ հաջողվեց ամեն ինչ անել: Բայց այն պահում է փաստաթղթերը My Documents-ում նշված սերվերի փոխարեն...



Մասնավոր ենթահրամանի կոճակ1_Click()
Dim Path As String
Dim FileName1 որպես տող
Dim FileName2 որպես տող
Dim FileName3 որպես տող
Dim FileName4 որպես տող
Dim FileName5 որպես տող
Ճանապարհ = "J:\Protection Services\Documents\Booysendal Security"
FileName1 = Range («A2»)
FileName2 = Range («B2»)
FileName3 = Range («C2»)
FileName4 = Range («D2»)
FileName5 = Range («E2»)
ActiveWorkbook.SaveAs Ֆայլի անուն.=FileName1 & "-" & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & FileName5 & ".xls", FileFormat:=xlՆորմալ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Անվտանգությունից հետո և մեջբերումից առաջ ավելացրեք հետշեղ... ... անվտանգություն\"
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Իսկ եթե ցանկանում եք, պարզապես ցանկանում եք սահմանել ֆայլի անունը, բայց ամեն անգամ պահպանելով ֆայլի ուղին ընտրելու հնարավորություն ունեք:

Կարող եք նաև ֆայլի անվան համար նշել մի քանի բջիջ: Բջիջները նույնպես միաձուլվում են:

Ամեն անգամ պահեք տարբեր ֆայլերի ուղիներում

Ֆայլի անվան համար օգտագործեք բազմաթիվ բջիջներ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ, այնպես որ ես ստացա, որ սա լավ է աշխատում, օգտագործելով թերթիկի կոճակը: Այժմ ես կցանկանայի, որ այն պարզապես նորմալ պահվեր սկզբնական պահպանումից հետո: Հնարավո՞ր է դա անել: Օգտագործե՞լ նույն պահպանման կոճակը:
Շնորհակալություն Բրյուս
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինչպես ստեղծել մակրո՝ մի քանի թերթեր պահելու համար, ինչպես իրենց բջիջների արժեքներով՝ որպես ֆայլի անուններ
Thanks,
Ռաջիվ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ բոլորին!

Ինչպե՞ս կարելի է կրկնվող մուտքագրումը պահպանել նույն բջիջներում, այլ բջիջներում, մակրոյով:

Թերթ1-ում ես տվյալներ եմ մուտքագրում A1, B1, C1, օրվա ընթացքում n անգամ: Sheet2-ում ես պետք է պահեմ այս բոլոր գրառումները՝ A2, B2, C2, A3, B3, C3 և այլն: Tnx!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ ընկերներ,
Ես խնդիր ունեմ և ուրախ կլինեմ, եթե ինձ օգնող գտնվի
Ես ունեմ ֆայլ «F» սկավառակում և «ABS» պանակում. իմ ֆայլի անունը «Listdata» է:
Իմ աշխատասեղանի Excel ֆայլում ես ցանկանում եմ, որ բջիջները (4,4) ստանան տվյալները «ABS» թերթից (1) և բջիջներից (2,2)
Ստորև բերված կոդը
Ենթամակրո1()
activesheet.Cells(4, 4).Value = "F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
Վերջ Sub
բայց դա ճիշտ չի աշխատում
Շնորհակալություն ընկերներ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես փորձում եմ օգտագործել այս կոդը, բայց երբ փորձում եմ գործարկել, ստանում եմ «runtime 1004» սխալ, և այն նշում է 7-րդ տողը որպես անվավեր.
Ինչպե՞ս կարող եմ դա լուծել: Ես օգտագործում եմ office 365
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Se a célula de referencia estiver em uma outra planilha ja aberta? Como faço?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն. Ես շատ ոգևորված եմ, որ դա կարող է աշխատել, բայց ինձ համար այն ասում է «ՀԻՄՆԱԿԱՆ գործարկման ժամանակի սխալ: Լսելու կարգը կամ գործառույթի ընթացակարգը սահմանված չէ»: և 6-րդ գիծը ցույց տվող սլաք: Ի՞նչ պետք է անեմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ կառավարման կոճակ, որը պահպանում է որպես PDF՝ հատուկ անունով որոշակի վայրում, որն արդեն աշխատում է, բայց ես ուզում եմ փոփոխել կոդը, քանի որ ֆայլի անունը ակտիվ թերթիկի անունն է, գումարած մեկ այլ թերթի որոշակի բջջի արժեքը: Ինչպե՞ս կարող եմ դա անել: Սա այն է, ինչ ես ունեմ որպես PDF պահելու համար.


Մասնավոր ենթահրամանի կոճակ1_Click()
Դիմում. ScreenUpdating = Սուտ է
ActiveSheet.ExportAsFixedFormat տեսակը՝=xlTypePDF, _
filename:="\\U:\Documents\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish: = Կեղծ է
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub

Thank you!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
կարո՞ղ է որևէ մեկը օգնել խնդրի լուծմանը, ես կարողացա ճիշտ ելք ստանալ, եթե բջիջը դատարկ չէ

Մասնավոր Sub Saveas ()

Մթնշաղի ճանապարհը որպես լար

Մթնեցրեք ֆայլի անունը1 որպես տող



ճանապարհ = "C:\User\Compwork\"



filename1 = ուղի և միջակայք ("G4") & " " & "-" & " " & Range ("G6") & " " & "-" & " " & Range ("H7") & " " & "VTE սխալ «

Application.DisplayAlerts = Սխալ

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

ThisWorkbook.Worksheets("report").ExportAsFixedFormat Տեսակ՝=x1typePDF, Ֆայլի անուն՝=ֆայլի անուն1

Application.DisplayAlerts = Ճիշտ է

ActiveWorkbook.Close



Վերջ Sub



Այնուամենայնիվ, իմ խնդիրն այն է, որ ես կցանկանայի պահպանել ֆայլի անունը առանց բացատ թողնելու, եթե բջիջի արժեքը, օրինակ, NULL է, եթե G6 արժեքը դատարկ է, ապա ես կցանկանայի դուրս գալ «G4-H7 VTError»:
Սրան մոտենալու միջոց կա՞:


Thanks.
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից