إنشاء مجلدات ومتعددة من قائمة بيانات في Excel

لنفترض أن لديك قائمة بأسماء الموظفين ضمن نطاق ورقة عمل وتهدف إلى إنشاء مجلدات فردية لكل موظف لتخزين معلوماتهم. يمكن أن يكون إنشاء كل مجلد يدويًا أمرًا يستغرق وقتًا طويلاً. ومع ذلك، هناك طرق فعالة لتسريع هذه العملية. في هذا الدليل، سأشارك عدة أساليب لإنشاء مجلدات بسرعة بناءً على قيم الخلايا المحددة.

إنشاء مجلدات بناءً على قيم الخلايا

• باستخدام أمر MD وNotepad
• باستخدام ميزة قوية – Kutools لـ Excel
• باستخدام كود VBA

إنشاء مجلدات ومتفرعة بناءً على قيم الخلايا باستخدام كود VBA

إنشاء مجلدات بناءً على قيم الخلايا

في هذا القسم، سنستعرض بالتفصيل طرقًا مختلفة، مع تقديم تعليمات خطوة بخطوة شاملة لإنشاء مجلدات بسرعة وسهولة بناءً على قائمة بقيم الخلايا.

إنشاء مجلدات من قائمة باستخدام أمر MD وNotepad

تحويل قائمة من Excel إلى مجلدات باستخدام أمر MD وNotepad هو حيلة ذكية تجمع بين كتابة البرامج النصية البسيطة وميزات Excel التنظيمية. هذه الطريقة رائعة لإنشاء الكثير من المجلدات بسرعة دون الحاجة إلى القيام بذلك يدويًا. إليك دليلًا خطوة بخطوة لتحقيق هذه المهمة:

الخطوة 1: استخدام أمر MD لإنشاء صيغ

انسخ أو أدخل الصيغة التالية في خلية فارغة بجانب أول قيمة خلية (B1، على سبيل المثال)، ثم اسحب مقبض التعبئة لأسفل لتطبيق الصيغة على جميع عناصر القائمة.

="MD "&A1

الخطوة 2: نسخ ولصق الصيغ في ملف Notepad

1. اضغط على "Ctrl + C" لنسخ الخلايا التي تحتوي على صيغة أمر MD.
2. افتح Notepad واضغط على "Ctrl + V" للصق الأوامر في ملف جديد.
   

الخطوة 3: حفظ ملف Notepad بصيغة .bat

انقر على "حفظ كـ" من تبويب "ملف" في Notepad، وفي مربع الحوار "حفظ كـ"، اختر دليلًا حيث تريد إنشاء مجلدات متعددة، ثم أعطِ اسمًا لهذا الملف بإضافة امتداد .bat. وأخيرًا، انقر على زر "حفظ". شاهد لقطة الشاشة:

الخطوة 4: انقر مرتين على ملف .bat لتوليد مجلدات متعددة

1. أغلق ملف Notepad، وانتقل إلى المجلد الذي حفظت فيه ملف .bat مسبقًا.
2. الآن، شاهد السحر: انقر مرتين على الملف، وسترى مجلدات متعددة يتم إنشاؤها دفعة واحدة. شاهد العرض التوضيحي أدناه:
   

إنشاء مجلدات من قائمة باستخدام أداة قوية – Kutools لـ Excel

مع الأداة القوية Kutools لـ Excel وخاصية "إنشاء مجلدات من محتوى الخلايا"، يمكنك الآن بسهولة وسرعة إنشاء مجلدات من قائمة Excel. ولكن لا يتوقف الأمر عند إنشاء مجلدات أساسية فقط؛ بل يتيح لك Kutools أيضًا إنشاء هياكل معقدة مع مجلدات فرعية متعددة المستويات دفعة واحدة. بضع خطوات بسيطة يمكن أن تحول البيانات من Excel إلى نظام مجلدات منظم، مما يعزز إنتاجيتك بشكل كبير.

بعد تثبيت Kutools لـ Excel، يرجى النقر على "Kutools Plus" > "استيراد / تصدير" > "إنشاء مجلدات من محتوى الخلايا" لفتح مربع الحوار "إنشاء مجلدات من محتوى الخلايا":

1. حدد قيم الخلايا التي تريد إنشاء مجلدات بناءً عليها؛
2. ثم، انقر على الزر لتحديد المجلد الوجهة الذي تريد حفظ المجلدات فيه؛
3. أخيرًا، انقر على زر "موافق".
   

النتيجة:

سيقوم Kutools بمعالجة القائمة من ورقة العمل الخاصة بك وإنشاء مجلد لكل إدخال في الوجهة المحددة. انتقل إلى مجلد الوجهة لرؤية النتيجة. شاهد لقطة الشاشة:

إنشاء مجلدات من قائمة باستخدام كود VBA

يمكن أن يؤدي استخدام كود VBA في Excel إلى تحويل مهمة إنشاء المجلدات من قائمة إلى عملية سريعة وأوتوماتيكية. سيوضح لك هذا القسم كيفية تطبيق كود VBA لإنشاء مجلدات.

الخطوة 1: افتح محرر وحدة VBA وانسخ الكود

1. اضغط باستمرار على مفتاحي "ALT + F11" في Excel، وسيتم فتح نافذة "Microsoft Visual Basic for Applications".
2. انقر على "إدراج" > "وحدة"، والصق الكود التالي في نافذة الوحدة.
   كود VBA: إنشاء مجلدات بناءً على قائمة بقيم الخلايا

   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
   

الخطوة 2: تنفيذ الكود

1. بعد لصق هذا الكود، يرجى الضغط على مفتاح F5 لتشغيل هذا الكود. في مربع الحوار المنبثق، حدد قيم الخلايا التي تريد إنشاء مجلدات منها. وبعد ذلك، انقر على "موافق".
   
2. ثم، في نافذة "اختيار المجلد الوجهة" التالية، حدد مسار الوجهة لإخراج المجلدات المنشأة. وبعد ذلك، انقر على زر "موافق"، شاهد لقطة الشاشة:
   

النتيجة:

بعد تنفيذ كود VBA، انتقل إلى دليل الوجهة لعرض النتيجة. ستجد المجلدات الجديدة التي تم إنشاؤها، وكل منها يتوافق مع عنصر من قائمة Excel الخاصة بك. شاهد لقطة الشاشة:

إنشاء مجلدات ومتفرعة بناءً على قيم الخلايا باستخدام كود VBA

أحيانًا قد تجد نفسك في موقف تحتاج فيه إلى إنشاء ليس فقط مجلدات، ولكن أيضًا المجلدات الفرعية المقابلة لها، بناءً على البيانات الموجودة داخل خلايا Excel. لتحقيق هذه المهمة، هنا، سأقدم لك كود VBA.

الخطوة 1: إعداد البيانات

أولاً، يجب عليك إدخال البيانات كما هو موضح في لقطة الشاشة التالية، وضع أسماء المجلدات الرئيسية في العمود الأول وأسماء المجلدات الفرعية في العمود الثاني.

الخطوة 2: افتح محرر وحدة VBA وانسخ الكود

1. اضغط باستمرار على مفتاحي "ALT + F11" في Excel، وسيتم فتح نافذة "Microsoft Visual Basic for Applications".
2. انقر على "إدراج" > "وحدة"، والصق الكود التالي في نافذة الوحدة.
   كود VBA: إنشاء مجلدات ومتفرعة بناءً على قيم الخلايا

   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
   

الخطوة 3: تنفيذ الكود

1. بعد لصق هذا الكود، يرجى الضغط على مفتاح F5 لتشغيل هذا الكود. في مربع الحوار المنبثق، حدد قيم الخلايا التي تريد إنشاء مجلدات منها. وبعد ذلك، انقر على "موافق".
   
2. في النافذة المنبثقة التالية، حدد مسار الوجهة لإخراج المجلدات المنشأة. وبعد ذلك، انقر على زر "موافق"، شاهد لقطة الشاشة:
   

النتيجة:

بعد تنفيذ كود VBA، اذهب إلى دليل الوجهة لعرض النتيجة. ستجد أن المجلدات ومجلداتها الفرعية، كما تمليها قيم الخلايا، قد تم إنشاؤها بنجاح كما هو موضح في لقطة الشاشة التالية:

مقالات ذات صلة: