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

Sut i greu ffolderi yn gyflym yn seiliedig ar werthoedd celloedd yn Excel?

Gan dybio bod gennych chi restr o enwau staff mewn ystod o daflen waith, a nawr rydych chi am greu rhai ffolderau i bob un ohonyn nhw yn y celloedd gofnodi eu gwybodaeth. Os ydych chi'n creu'r ffolderau fesul un, bydd yn gwastraffu llawer o amser. Ond sut allech chi greu'r ffolderi hyn yn gyflym? Heddiw, byddaf yn cyflwyno rhai triciau cyflym ichi:

Creu ffolderau yn seiliedig ar werthoedd celloedd gyda chod VBA

Creu ffolderau yn gyflym yn seiliedig ar werthoedd celloedd gyda Kutools ar gyfer Excelsyniad da3


Creu ffolderau yn seiliedig ar werthoedd celloedd gyda chod VBA

Er enghraifft, mae gen i ystod o enwau mewn taflen waith, rydw i eisiau creu ffolderau ar gyfer pob un ohonyn nhw, a'u cadw i lwybr penodol, gyda'r cod VBA, dwi'n gallu gorffen y dasg hon.

1. Rhowch y llyfr gwaith gweithredol mewn cyfeiriadur penodol y byddwch chi'n gosod y ffolderau wedi'u creu ynddo. Agorwch y llyfr gwaith a dewis yr ystod o gelloedd rydych chi am eu defnyddio.

ffolderi doc-create -1

2. Cliciwch Datblygwr > Visual Basic, Newydd Microsoft Visual Basic ar gyfer cymwysiadau ffenestr yn cael ei harddangos, cliciwch Mewnosod > Modiwlau, a mewnbynnu'r cod canlynol i'r Modiwl:

Cod VBA: creu ffolderau yn seiliedig ar werthoedd celloedd

Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub

3. Cliciwch doc-lluosi-cyfrifo-3 botwm i weithredu'r cod. Mae'r holl gelloedd a ddewiswyd wedi'u creu i ffolderau â'u gwerthoedd. Ac mae'r ffolderau'n cael eu rhoi yn y llwybr yr un peth â'r llyfr gwaith gweithredol. Gweler y screenshot:

ffolderi doc-create -2


Creu ffolderau yn gyflym yn seiliedig ar werthoedd celloedd gyda Kutools ar gyfer Excel

Mae'n hawdd ac yn gyfleus i chi greu ffolderau yn seiliedig ar vales celloedd os ydych chi'n defnyddio'r teclyn- Kutools ar gyfer Excel.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel y nodir isod:(Kutools i'w lawrlwytho am ddim ar gyfer Excel Nawr!)

1. Dewiswch yr ystod rydych chi am greu ffolderau.

2. Cliciwch Kutools Byd Gwaith > Mewnforio / Allforio > Creu Ffolderi o Gynnwys y Cell…, Gweler y screenshot:

doc creu ffolder 1

3. Yn y Creu Ffolderi o Gynnwys y Cell blwch deialog, cliciwch ffolderi doc-create -3botwm i nodi'r llwybr rydych chi am arbed y ffolderau. Wedi gweld screenshot:

doc creu ffolder 2

4. Cliciwch OK. A bydd blwch prydlon yn eich atgoffa faint o ffolderau sydd wedi'u creu. Gweler y screenshot:

doc creu ffolder 3

5. Cliciwch OK. Ac mae'r holl werthoedd yn yr ystod a ddewiswyd wedi'u creu ffolderi yn y ffolder penodedig.
doc creu ffolder 4


Rhestrwch yr holl enwau ffeiliau o ffolder i mewn i ddalen

i wybod mwy am y swyddogaeth hon.

Dyma gyfleustodau yn Kutools ar gyfer Excel - Rhestr Enw Ffeil yn gallu rhestru holl enwau ffeiliau ffolder mewn dalen, os oes gennych ddiddordeb ynddo, ewch ymlaen i ddarllen.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel y nodir isod:(Kutools i'w lawrlwytho am ddim ar gyfer Excel Nawr!)

1. Cliciwch Kutools Byd Gwaith > Mewnforio / Allforio > Rhestr Enw Ffeil.
doc creu ffolder 5

2. Yn y Rhestr Enw Ffeil deialog, dewiswch ffolder rydych chi am restru ei ffeiliau, y gwiriad Pob ffeil or Nodwch opsiwn fel y mae angen i chi yn Ffeiliau math section.
img src = "https: // cdn.extendoffice.com / images / stories / doc-excel / create-folders / doc-create-folder-6.png "alt =" doc creu ffolder 6 "/>

3. Cliciwch Ok, mae taflen newydd yn cael ei chreu gyda'r holl enwau ffeiliau a rhywfaint o wybodaeth gymharol.
doc creu ffolder 7


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 (61)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth yw'r bai wrth ddilyn cyfarwyddyd VBA? Gwna Tra r
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am eich ateb, nid oes gan y cod VBA lawer o gwestiynau pan fyddaf yn ei olygu, felly dyma fi wedi ei addasu, ac mae'n berthnasol yn llwyddiannus, rhowch gynnig arni. Pob lwc!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
SkyYang, [dyfynbris] Diolch am eich ateb, nid oes gan y cod VBA lawer o gwestiynau pan fyddaf yn ei olygu, felly dyma fi wedi ei addasu, ac mae'n berthnasol yn llwyddiannus, rhowch gynnig arni. Pob lwc!Gan skyyang[/quote] RYDYCH CHI'N AWESOME!! Roeddwn i'n gallu bod yn fwy cynhyrchiol yn y gwaith oherwydd y rhaglen (cod VBA yn Datblygwr).
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pwy ysgrifennodd yr enghraifft gyntaf erioed - Rydych chi'n anhygoel !!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
os gwelwch yn dda, mae angen yr un macro hwnnw arnaf ond yn hytrach na'u cadw fel ffolderi, mae arnaf ei angen i arbed padiau nodiadau gyda dim ond yr enwau celloedd mewn ystod colofn, gwerthfawrogi'r gefnogaeth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da... :) Diolch.. Mae'n gwneud i mi weithio'n syml.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch mae hyn yn arbed llawer o amser i mi. Ond sut i greu is-ffolderi?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr!!! Mae hwn yn ateb gwych a mwyaf effeithiol a hawsaf i mi ddod o hyd ar y rhyngrwyd ar gyfer hyn! :lol:
Lleihawyd y sylw hwn gan y safonwr ar y wefan
:-) Diolch am ddarparu'r data hwn.... wedi arbed fy llawer o amser
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i wneud hyn yn LibreOffice neu OpenOffice Atebwch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
HELP !!! Mae gen i dros 7500 o ffolderi i'w gwneud ond mae gan y rhaglen wall casglu sy'n amlygu [b]Sub MakeFolders () [b] fel pe bai'n enw annilys neu'n rhywbeth! Rwy'n gweithredu Excel 2010.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cefais yr un broblem, ond pan edrychais ar enw'r ffolder yn agosach roedd / ac ar ôl i mi ei dynnu, roedd y cod yn gweithio fel swyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rydych chi'n achubwr bywyd !!!!! [b]Diolch![b] Nodyn: Peidiwch â rhoi bwlch rhwng MakeFolder a ().
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Am ryw reswm mae'r llyfr gwaith gweithredol yn cael problemau gyda'r llwybr. HELPPP :crio:
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd gen i fater tebyg , ar y diwedd fe wnes i sylweddoli nad yw'r rhaglen yn gweithio os oes gan enw'r ffeil slaes / neu \ , rwy'n disodli / gyda _, fe weithiodd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am hyn - arbed amser ardderchog
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi gweithio fel swyn, ond a oes ffordd i greu is-ffolderi?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae ceisio hwn ar Mac a dwi'n cael "Gwall amser rhedeg '68': Dyfais ddim ar gael", ac mae gwasgu dadfygio yn nodi'r llinell cod ganlynol fel y troseddwr: If Len(Dir(ActiveWorkbook.Path & "\" & Rng( r, c), vbDirectory)) = 0 Yna MkDir (ActiveWorkbook.Path & "\" & Rng(r, c)) Helpwch os gwelwch yn dda.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hoffwn i wybod hyn hefyd. Mae angen i mi wneud is-ffolderi gyda'r enw a roddwyd eisoes wedi'i ychwanegu. Enghraifft: Excelnamedfolder\P\E Mae angen dwy ffolder arnaf y tu mewn i ffolder P o'r enw E a K.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn am y post defnyddiol hwn, wedi arbed rhywfaint o amser. Dwi'n caru nerds :) Beth fydden ni'n ei wneud hebddyn nhw, o ddifri!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ceisio ychwanegu colofnau lluosog at ei gilydd wrth greu ffolder. Unrhyw awgrymiadau ar sut i wneud hyn? ee ABC 1 A1 A2 A3 2 B1 B2 B3 3 C1 C2 C3 Dylai'r cynnyrch terfynol unwaith y bydd ffolderi wedi'u creu fod fel a ganlyn: Ffolder 1 (A1 + A2 + A3) Ffolder 2 (B1 + B2 + B3) Etc... Cefais hyd i fformiwlâu lluosog ar creu ffolderi o gelloedd sengl ond dim byd ar gyfer lluosog. Rwyf hefyd wedi ceisio addasu ychydig o bethau heb unrhyw lwyddiant. Unrhyw syniadau? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rydych chi'n anhygoel. Fe weithiodd. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Swydd Da.....Ardderchog
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr am y tabiau KUTOOLS & Enterprise hwn ......offeryn arbed amser...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rydych chi newydd arbed llawer o amser ffrind i mi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch dude,,, mae'n gweithio...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Lloniannau! Swyddogaeth wych!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am hyn. yn gweithio'n iawn
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