Cuir i gcás go bhfuil liosta ainmneacha foirne agat laistigh de raon bileoga oibre agus go bhfuil sé mar aidhm agat fillteáin aonair a chruthú do gach duine chun a gcuid faisnéise a stóráil. D'fhéadfadh sé a bheith am-íditheach ag cruthú gach fillteán de láimh. Mar sin féin, tá modhanna éifeachtacha ann chun an próiseas seo a bhrostú. Sa treoir seo, roinnfidh mé roinnt cineálacha cur chuige chun fillteáin a ghiniúint go tapa bunaithe ar na luachanna cille sonraithe.

Cruthaigh fillteáin bunaithe ar luachanna cille

• Trí ordú MD agus Notepad a úsáid
• Trí úsáid a bhaint as gné chumhachtach - Kutools le haghaidh Excel
• Trí chód VBA a úsáid

Cruthaigh fillteáin agus fofhillteáin bunaithe ar luachanna cille le cód VBA

Cruthaigh fillteáin bunaithe ar luachanna cille

Sa chuid seo, déanfaimid iniúchadh mionsonraithe ar mhodhanna éagsúla, ag tairiscint treoracha cuimsitheacha céim ar chéim chun fillteáin a chruthú go tapa agus gan stró bunaithe ar liosta luachanna cille.

Cruthaigh fillteáin ó liosta trí úsáid a bhaint as ordú MD agus Notepad

Is cleas cliste é liosta ó Excel a thiontú ina fhillteáin ag baint úsáide as an ordú MD agus Notepad a mheascann scripteáil bhaisc éasca le cnag Excel chun rudaí a choinneáil eagraithe. Tá an modh seo iontach chun go leor fillteán a dhéanamh go tapa, gan a bheith ort é a dhéanamh de láimh. Seo treoir céim ar chéim chun an tasc seo a chur i gcrích:

Céim 1: Bain úsáid as an ordú MD chun foirmlí a chruthú

Cóipeáil nó cuir isteach an fhoirmle seo a leanas i gcill bhán in aice le do chéad luach cille (B1, mar shampla), agus ansin, tarraing an láimhseáil líonta síos chun an fhoirmle a chur i bhfeidhm ar do liostaí go léir.

="MD "&A1

Céim 2: Cóipeáil agus greamaigh na foirmlí isteach i gcomhad Notepad

1. Preas Ctrl + C chun na cealla a chóipeáil leis an bhfoirmle ordaithe MD.
2. Oscail Notepad agus brúigh Ctrl + V chun na horduithe a ghreamú isteach i gcomhad nua.
   

Céim 3: Sábháil an comhad Notepad mar chomhad .bat

cliceáil Ach amháin mar ó na Comhad cluaisín sa Notepad, sa Ach amháin mar bosca dialóige, roghnaigh eolaire inar mian leat fillteáin iolracha a chruthú, agus ansin tabhair ainm don chomhad seo le a . Ialtóg síneadh. Ar deireadh, cliceáil Sábháil cnaipe. Féach an pictiúr:

Céim 4: Cliceáil faoi dhó ar an gcomhad .bat chun fillteáin iolracha a ghiniúint

1. Dún an comhad Notepad, nascleanúint chuig an bhfillteán a shábháil tú an comhad .bat roimhe seo.
2. Anois, finné an draíocht: cliceáil faoi dhó ar an gcomhad, agus feicfidh tú fillteáin iolracha á gcruthú go léir ag an am céanna. Féach ar an taispeántas thíos:
   

Cruthaigh fillteáin ó liosta trí úsáid a bhaint as uirlis chumhachtach - Kutools le haghaidh Excel

Leis an cumhachtach Kutools le haghaidh Excel'S Cruthaigh Fillteáin ó Ábhar na gCill gné, is féidir leat anois fillteáin a chruthú go héasca agus go tapa ó liosta Excel. Ach ní stopann sé ag fillteáin bhunúsacha amháin; Ligeann Kutools duit struchtúir chasta a chruthú freisin le fofhillteáin illeibhéil in aon dul amháin. Is féidir le roinnt céimeanna simplí sonraí ó Excel a athrú go córas fillteáin eagraithe, rud a chuireann go mór le do tháirgiúlacht.

Tar éis a shuiteáil Kutools le haghaidh Excel, Cliceáil le do thoil Kutools Plus > Iompórtáil / Export > Cruthaigh Fillteáin ó Ábhar na gCill a oscailt Cruthaigh Fillteáin ó Ábhar na gCill bosca dialóige:

1. Roghnaigh na luachanna cille ar mhaith leat fillteáin a chruthú bunaithe ar;
2. Ansin, cliceáil ar an cnaipe chun an fillteán ceann scríbe a theastaíonn uait na fillteáin a shábháil a shonrú;
3. Ar deireadh, cliceáil OK cnaipe.
   

Toradh:

Próiseálfaidh Kutools an liosta ó do bhileog agus cruthóidh sé fillteán le haghaidh gach iontráil sa cheann scríbe sonraithe. Déan nascleanúint chuig an bhfillteán sprice chun an toradh a fheiceáil. Féach ar an scáileán:

Cruthaigh fillteáin ó liosta trí úsáid a bhaint as cód VBA

Trí úsáid a bhaint as cód VBA in Excel is féidir an tasc tedious a bhaineann le fillteáin a chruthú ó liosta a athrú go próiseas tapa, uathoibrithe. Taispeánfaidh an chuid seo duit conas cód VBA a chur i bhfeidhm chun fillteáin a ghiniúint.

Céim 1: Oscail an eagarthóir modúl VBA agus cóipeáil an cód

1. Coinnigh síos an ALT + F11 eochracha in Excel, agus osclaíonn sé an 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: Cruthaigh fillteáin bunaithe ar liosta luachanna cille

   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
   

Céim 2: Rith an cód

1. Tar éis duit an cód seo a ghreamú, brúigh le do thoil F5 eochair chun an cód seo a rith. Sa bhosca pras, roghnaigh na luachanna cille ar mhaith leat fillteáin a chruthú uathu. Agus ansin, cliceáil OK.
   
2. Ansin, sa mhéid seo a leanas Roghnaigh an Fillteán scríbe fhuinneog, sonraigh an cosán cinn scríbe chun na fillteáin cruthaithe a aschur. Agus ansin, cliceáil OK cnaipe, féach ar an scáileán:
   

Toradh:

Tar éis duit an cód VBA a fheidhmiú, téigh chuig an eolaire ceann scríbe chun an toradh a fheiceáil. Anseo, gheobhaidh tú na fillteáin nuachruthaithe, gach ceann acu a fhreagraíonn do mhír ó do liosta Excel. féach an scáileán:

Cruthaigh fillteáin agus fofhillteáin bunaithe ar luachanna cille le cód VBA

Ó am go chéile, b'fhéidir go bhfaighidh tú féin i gcás ina gcaithfidh tú ní hamháin fillteáin a ghiniúint, ach freisin a gcuid fofhillteáin chomhfhreagracha, go léir bunaithe ar na sonraí laistigh de chealla Excel. Chun an tasc seo a bhaint amach, anseo, tabharfaidh mé isteach cód VBA.

Céim 1: Ullmhaigh na sonraí

Ar dtús, ba chóir duit na sonraí a iontráil mar an seat scáileáin seo a leanas, cuir ainmneacha na bpríomhfhillteán sa chéad cholún agus ainmneacha na bhfofhillteáin sa dara colún.

Céim 2: Oscail an eagarthóir modúl VBA agus cóipeáil an cód

1. Coinnigh síos an ALT + F11 eochracha in Excel, agus osclaíonn sé an 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: Cruthaigh fillteáin agus luachanna cille bunaithe ar fhofhillteáin

   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
   

Céim 3: Rith an cód

1. Tar éis duit an cód seo a ghreamú, brúigh le do thoil F5 eochair chun an cód seo a rith. Sa bhosca pras, roghnaigh na luachanna cille ar mhaith leat fillteáin a chruthú uathu. Agus ansin, cliceáil OK.
   
2. Sa fhuinneog popped-amach seo a leanas, sonraigh an cosán cinn scríbe chun na fillteáin cruthaithe a aschur. Agus ansin, cliceáil OK cnaipe, féach ar an scáileán:
   

Toradh:

Tar éis duit an cód VBA a fheidhmiú, téigh chuig an eolaire ceann scríbe chun an toradh a fheiceáil. Gheobhaidh tú amach gur cruthaíodh go rathúil na fillteáin agus a bhfofhillteáin faoi seach, de réir na luachanna cille, mar a thaispeántar an seat seo a leanas:

Airteagail ghaolmhara: