Bir çalışma sayfası aralığında personel adlarından oluşan bir listeniz olduğunu ve her birinin bilgilerini depolayacağı ayrı klasörler oluşturmayı hedeflediğinizi varsayalım. Her klasörü manuel olarak oluşturmak zaman alıcı olabilir. Ancak bu süreci hızlandıracak etkili yöntemler vardır. Bu kılavuzda, belirtilen hücre değerlerine dayalı olarak hızlı bir şekilde klasörler oluşturmaya yönelik çeşitli yaklaşımları paylaşacağım.

Hücre değerlerine dayalı klasörler oluşturma

• MD komutunu ve Not Defteri'ni kullanarak
• Güçlü bir özellik kullanarak – Kutools for Excel
• VBA kodunu kullanarak

VBA koduyla hücre değerlerine göre klasörler ve alt klasörler oluşturun

Hücre değerlerine dayalı klasörler oluşturma

Bu bölümde, hücre değerleri listesine dayalı olarak hızlı ve zahmetsizce klasörler oluşturmak için kapsamlı adım adım talimatlar sunarak çeşitli yöntemleri ayrıntılı olarak inceleyeceğiz.

MD komutunu ve Not Defteri'ni kullanarak listeden klasörler oluşturun

MD komutunu ve Not Defteri'ni kullanarak bir listeyi Excel'den klasörlere dönüştürmek, kolay toplu komut dosyası oluşturmayı Excel'in işleri düzenli tutma becerisiyle birleştiren akıllı bir numaradır. Bu yöntem, hepsini elle yapmak zorunda kalmadan hızlı bir şekilde çok sayıda klasör oluşturmak için mükemmeldir. İşte bu görevi gerçekleştirmek için adım adım bir kılavuz:

Adım 1: Formüller oluşturmak için MD komutunu kullanın

Aşağıdaki formülü ilk hücre değerinizin (örneğin B1) yanındaki boş bir hücreye kopyalayın veya girin ve ardından formülü tüm liste öğelerinize uygulamak için doldurma tutamacını aşağı sürükleyin.

="MD "&A1

Adım 2: Formülleri kopyalayıp bir Not Defteri dosyasına yapıştırın

1. Basın Ctrl + C MD komut formülüyle hücreleri kopyalamak için.
2. Açılış Not Defteri ve basın Ctrl + V komutları yeni bir dosyaya yapıştırmak için.
   

3. Adım: Not Defteri dosyasını .bat dosyası olarak kaydedin

Tıkla Olarak kaydet itibaren fileto Not Defteri'ndeki sekmede, Olarak kaydet iletişim kutusunda, birden fazla klasör oluşturmak istediğiniz dizini seçin ve ardından bu dosyaya bir ad verin. . Bitirin eklenti. Son olarak tıklayın İndirim buton. Ekran görüntüsüne bakın:

Adım 4: Birden fazla klasör oluşturmak için .bat dosyasına çift tıklayın

1. Not Defteri dosyasını kapatın, daha önce .bat dosyasını kaydettiğiniz klasöre gidin.
2. Şimdi sihire tanık olun: Dosyaya çift tıklayın, birden fazla klasörün aynı anda oluşturulduğunu göreceksiniz. Aşağıdaki demoya bakın:
   

Güçlü bir araç kullanarak listeden klasörler oluşturun - Kutools for Excel

güçlü olanla Kutools for Excel'S Hücre İçeriklerinden Klasörler Oluşturun özelliği sayesinde artık Excel listesinden kolay ve hızlı bir şekilde klasörler oluşturabilirsiniz. Ancak bu yalnızca temel klasörlerle bitmiyor; Kutools ayrıca tek seferde çok seviyeli alt klasörlerle karmaşık yapılar oluşturmanıza da olanak tanır. Yalnızca birkaç basit adım, verileri Excel'den düzenli bir klasör sistemine dönüştürebilir ve üretkenliğinizi önemli ölçüde artırabilir.

Kurduktan sonra Kutools for Excel, lütfen tıklayın Kutools Artı > İthalat / İhracat > Hücre İçeriklerinden Klasörler Oluşturun açmak için Hücre İçeriklerinden Klasörler Oluşturun iletişim kutusu:

1. Temel olarak klasör oluşturmak istediğiniz hücre değerlerini seçin;
2. Ardından, klasörleri kaydetmek istediğiniz hedef klasörü belirtmek için düğme;
3. Son olarak tıklayın OK düğmesine basın.
   

Sonuç:

Kutools listeyi sayfanızdan işleyecek ve belirtilen hedefteki her giriş için bir klasör oluşturacaktır. Sonucu görmek için hedef klasöre gidin. Ekran görüntüsüne bakın:

VBA kodunu kullanarak listeden klasörler oluşturma

Excel'de VBA kodunu kullanmak, bir listeden klasör oluşturma gibi sıkıcı bir görevi hızlı, otomatik bir sürece dönüştürebilir. Bu bölüm size klasör oluşturmak için VBA kodunu nasıl uygulayacağınızı gösterecektir.

Adım 1: VBA modül düzenleyicisini açın ve kodu kopyalayın

1. basılı tutun ALT + F11 Excel'de anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.
2. Tıkla Ekle > modülve aşağıdaki kodu modül Pencere.
   VBA kodu: Hücre değerleri listesine göre klasörler oluşturun

   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
   

Adım 2: Kodu yürütün

1. Bu kodu yapıştırdıktan sonra lütfen F5 Bu kodu çalıştırmak için tuşuna basın. Bilgi istemi kutusunda, klasör oluşturmak istediğiniz hücre değerlerini seçin. Ve ardından tıklayın OK.
   
2. Daha sonra aşağıdaki Hedef Klasörü seçin penceresinde, oluşturulan klasörlerin çıktısının alınacağı hedef yolu belirtin. Ve ardından tıklayın OK düğmesi, ekran görüntüsüne bakın:
   

Sonuç:

VBA kodunu çalıştırdıktan sonra sonucu görüntülemek için hedef dizine gidin. Burada, her biri Excel listenizdeki bir öğeye karşılık gelen yeni oluşturulan klasörleri bulacaksınız. ekran görüntüsüne bakın:

VBA koduyla hücre değerlerine göre klasörler ve alt klasörler oluşturun

Bazen kendinizi yalnızca klasörler değil aynı zamanda bunlara karşılık gelen alt klasörleri de Excel hücrelerindeki verilere dayalı olarak oluşturmanız gereken bir durumda bulabilirsiniz. Bu görevi gerçekleştirmek için burada bir VBA kodu tanıtacağım.

Adım 1: Verileri hazırlayın

Öncelikle verileri aşağıdaki ekran görüntüsündeki gibi girmeli, ana klasör adlarını ilk sütuna, alt klasör adlarını da ikinci sütuna yerleştirmelisiniz.

Adım 2: VBA modül düzenleyicisini açın ve kodu kopyalayın

1. basılı tutun ALT + F11 Excel'de anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.
2. Tıkla Ekle > modülve aşağıdaki kodu modül Pencere.
   VBA kodu: Hücre değerlerine dayalı klasörler ve alt klasörler oluşturun

   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
   

Adım 3: Kodu yürütün

1. Bu kodu yapıştırdıktan sonra lütfen F5 Bu kodu çalıştırmak için tuşuna basın. Bilgi istemi kutusunda, klasör oluşturmak istediğiniz hücre değerlerini seçin. Ve ardından tıklayın OK.
   
2. Aşağıdaki açılan pencerede, oluşturulan klasörlerin çıktısının alınacağı hedef yolu belirtin. Ve ardından tıklayın OK düğmesi, ekran görüntüsüne bakın:
   

Sonuç:

VBA kodunu çalıştırdıktan sonra sonucu görüntülemek için hedef dizine gidin. Hücre değerlerinin belirttiği şekilde klasörlerin ve ilgili alt klasörlerinin aşağıdaki ekran görüntüsünde başarıyla oluşturulduğunu göreceksiniz:

İlgili Makaleler: