Tybiwch fod gennych restr o enwau staff o fewn ystod o daflenni gwaith a'ch nod yw creu ffolderi unigol ar gyfer pob un i storio eu gwybodaeth. Gall creu pob ffolder â llaw gymryd llawer o amser. Fodd bynnag, mae yna ddulliau effeithlon i gyflymu'r broses hon. Yn y canllaw hwn, byddaf yn rhannu sawl dull o gynhyrchu ffolderi yn gyflym yn seiliedig ar y gwerthoedd celloedd penodedig.

Creu ffolderi yn seiliedig ar werthoedd celloedd

• Trwy ddefnyddio gorchymyn MD a Notepad
• Trwy ddefnyddio nodwedd bwerus - Kutools ar gyfer Excel
• Trwy ddefnyddio cod VBA

Creu ffolderi ac is-ffolderi yn seiliedig ar werthoedd celloedd gyda chod VBA

Creu ffolderi yn seiliedig ar werthoedd celloedd

Yn yr adran hon, byddwn yn archwilio gwahanol ddulliau yn fanwl, gan gynnig cyfarwyddiadau cam-wrth-gam cynhwysfawr i greu ffolderi yn gyflym ac yn ddiymdrech yn seiliedig ar restr o werthoedd celloedd.

Creu ffolderi o restr trwy ddefnyddio gorchymyn MD a Notepad

Mae troi rhestr o Excel yn ffolderi gan ddefnyddio'r gorchymyn MD a Notepad yn gamp smart sy'n cymysgu sgriptio swp hawdd â dawn Excel am gadw pethau'n drefnus. Mae'r dull hwn yn wych ar gyfer gwneud llawer o ffolderi yn gyflym, heb orfod gwneud y cyfan â llaw. Dyma ganllaw cam wrth gam i gyflawni'r dasg hon:

Cam 1: Defnyddiwch y gorchymyn MD i greu fformiwlâu

Copïwch neu nodwch y fformiwla ganlynol i mewn i gell wag wrth ymyl eich gwerth cell cyntaf (B1, er enghraifft), ac yna, llusgwch y ddolen llenwi i lawr i gymhwyso'r fformiwla i'ch holl eitemau rhestr.

="MD "&A1

Cam 2: Copïwch a gludwch y fformiwlâu i mewn i ffeil Notepad

1. Pwyswch Ctrl + C i gopïo'r celloedd gyda'r fformiwla gorchymyn MD.
2. agored Notepad ac yn y wasg Ctrl + V i gludo'r gorchmynion i ffeil newydd.
   

Cam 3: Arbedwch y ffeil Notepad fel ffeil .bat

Cliciwch Arbed fel oddi wrth y Ffeil tab yn y Notepad, yn y Arbed fel blwch deialog, dewiswch gyfeiriadur lle rydych chi am greu ffolderi lluosog, ac yna rhowch enw ar gyfer y ffeil hon gyda a .bat estyniad. Yn olaf, cliciwch Save botwm. Gweler y screenshot:

Cam 4: Cliciwch ddwywaith ar y ffeil .bat i gynhyrchu ffolderi lluosog

1. Caewch y ffeil Notepad, llywiwch i'r ffolder y gwnaethoch chi gadw'r ffeil .bat yn flaenorol.
2. Nawr, tystiwch yr hud: cliciwch ddwywaith ar y ffeil, a byddwch yn gweld ffolderi lluosog yn cael eu creu i gyd ar unwaith. Gweler y demo isod:
   

Creu ffolderi o restr trwy ddefnyddio offeryn pwerus - Kutools ar gyfer Excel

Gyda'r pwerus Kutools ar gyfer Excel'S Creu Ffolderi o Gynnwys y Cell nodwedd, gallwch nawr yn hawdd ac yn gyflym greu ffolderi o restr Excel. Ond nid yw'n dod i ben ar dim ond ffolderi sylfaenol; Mae Kutools hefyd yn caniatáu ichi greu strwythurau cymhleth gydag is-ffolderi aml-lefel ar yr un pryd. Gall ychydig o gamau syml yn unig drawsnewid data o Excel yn system ffolder drefnus, gan roi hwb sylweddol i'ch cynhyrchiant.

Ar ôl gosod Kutools ar gyfer Excel, Cliciwch Kutools Byd Gwaith > Mewnforio / Allforio > Creu Ffolderi o Gynnwys y Cell i agor y Creu Ffolderi o Gynnwys y Cell blwch deialog:

1. Dewiswch y gwerthoedd cell yr ydych am greu ffolderi yn seiliedig arnynt;
2. Yna, cliciwch ar botwm i nodi'r ffolder cyrchfan rydych chi am gadw'r ffolderi;
3. Yn olaf, cliciwch OK botwm.
   

Canlyniad:

Bydd Kutools yn prosesu'r rhestr o'ch dalen ac yn creu ffolder ar gyfer pob cofnod yn y cyrchfan penodedig. Llywiwch i'r ffolder cyrchfan i weld y canlyniad. Gweler y sgrinlun:

Creu ffolderi o restr trwy ddefnyddio cod VBA

Gall defnyddio cod VBA yn Excel drawsnewid y dasg ddiflas o greu ffolderi o restr yn broses gyflym, awtomataidd. Bydd yr adran hon yn dangos i chi sut i gymhwyso cod VBA i gynhyrchu ffolderi.

Cam 1: Agorwch olygydd modiwl VBA a chopïwch y cod

1. Dal i lawr y ALT + F11 allweddi yn Excel, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
   Cod VBA: Creu ffolderi yn seiliedig ar restr o werthoedd celloedd

   Sub CreateFoldersFromSelection()
   'Updateby Extendoffice
       Dim FolderPath As String
       Dim Cell As Range
       Dim SelectedRange As Range
       Dim FolderName As String
       On Error Resume Next
       Set SelectedRange = Application.InputBox("Select the range with folder names", "Kutools for Excel", Type:=8)
       If SelectedRange Is Nothing Then Exit Sub
       On Error GoTo 0
       
       With Application.FileDialog(msoFileDialogFolderPicker)
           .Title = "Select the destination Folder"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           FolderPath = .SelectedItems(1) & "\"
       End With
       
       For Each Cell In SelectedRange
           FolderName = FolderPath & Cell.Value
           If Cell.Value <> "" And Not FolderExists(FolderName) Then
               MkDir FolderName
           End If
       Next Cell
   End Sub
   
   Function FolderExists(ByVal Path As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(Path) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Cam 2: Gweithredu'r cod

1. Ar ôl pasio'r cod hwn, pwyswch F5 allwedd i redeg y cod hwn. Yn y blwch prydlon, dewiswch y gwerthoedd cell yr ydych am greu ffolderi ohonynt. Ac yna, cliciwch OK.
   
2. Yna, yn y canlynol Dewiswch y Ffolder Cyrchfan ffenestr, nodwch y llwybr cyrchfan i allbynnu'r ffolderi a grëwyd. Ac yna, cliciwch OK botwm, gweler y screenshot:
   

Canlyniad:

Ar ôl gweithredu'r cod VBA, ewch draw i'r cyfeiriadur cyrchfan i weld y canlyniad. Yno, fe welwch y ffolderi sydd newydd eu creu, pob un yn cyfateb i eitem o'ch rhestr Excel. gweler y sgrinlun:

Creu ffolderi ac is-ffolderi yn seiliedig ar werthoedd celloedd gyda chod VBA

O bryd i'w gilydd, efallai y byddwch chi'n cael eich hun mewn sefyllfa lle mae angen i chi gynhyrchu nid yn unig ffolderi, ond hefyd eu his-ffolderi cyfatebol, i gyd yn seiliedig ar y data o fewn celloedd Excel. I gyflawni'r dasg hon, yma, byddaf yn cyflwyno cod VBA.

Cam 1: Paratowch y data

Yn gyntaf, dylech nodi'r data fel y sgrinlun a ddangosir, gosodwch enwau'r prif ffolder yn y golofn gyntaf a'r enwau ar gyfer yr is-ffolderi yn yr ail golofn.

Cam 2: Agorwch olygydd modiwl VBA a chopïwch y cod

1. Dal i lawr y ALT + F11 allweddi yn Excel, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
   Cod VBA: Creu ffolderi ac is-ffolderi yn seiliedig ar werthoedd celloedd

   Sub CreateFoldersAndSubfoldersWithUserInput()
   'Updateby Extendoffice
       Dim Rng As Range
       Dim Cell As Range
       Dim basePath As String
       Dim fldrPicker As FileDialog
       Dim FolderPath As String, subfolderPath As String
       On Error Resume Next
       Set Rng = Application.InputBox("Select the range of cells (two columns: one is folder column, another s subfolder column):", "Kutools for Excel", Type:=8)
       If Rng Is Nothing Then Exit Sub
       On Error GoTo 0
       Set fldrPicker = Application.FileDialog(msoFileDialogFolderPicker)
       With fldrPicker
           .Title = "Select the Base Folder Path"
           .AllowMultiSelect = False
           If .Show <> -1 Then Exit Sub
           basePath = .SelectedItems(1)
       End With
       If Right(basePath, 1) <> "\" Then basePath = basePath & "\"
       For Each Cell In Rng.Columns(1).Cells
           If Not Cell.Value = "" Then
               FolderPath = basePath & Cell.Value
               If Not FolderExists(FolderPath) Then MkDir FolderPath
               If Not Cell.Offset(0, 1).Value = "" Then
                   subfolderPath = FolderPath & "\" & Cell.Offset(0, 1).Value
                   If Not FolderExists(subfolderPath) Then MkDir subfolderPath
               End If
           End If
       Next Cell
   End Sub
   
   Function FolderExists(FolderPath As String) As Boolean
       On Error Resume Next
       FolderExists = (GetAttr(FolderPath) And vbDirectory) = vbDirectory
       On Error GoTo 0
   End Function
   

Cam 3: Gweithredu'r cod

1. Ar ôl pasio'r cod hwn, pwyswch F5 allwedd i redeg y cod hwn. Yn y blwch prydlon, dewiswch y gwerthoedd cell yr ydych am greu ffolderi ohonynt. Ac yna, cliciwch OK.
   
2. Yn y ffenestr popped-out ganlynol, nodwch y llwybr cyrchfan i allbynnu'r ffolderi a grëwyd. Ac yna, cliciwch OK botwm, gweler y screenshot:
   

Canlyniad:

Ar ôl gweithredu'r cod VBA, ewch i'r cyfeiriadur cyrchfan i weld y canlyniad. Fe welwch fod y ffolderi a'u his-ffolderi priodol, yn unol â gwerthoedd y celloedd, wedi'u creu'n llwyddiannus fel y dangosir y sgrinlun a ganlyn:

Erthyglau cysylltiedig: