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

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

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

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

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

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

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

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

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

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

="MD "&A1

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

1. صحافة CTRL + C لنسخ الخلايا باستخدام صيغة أمر MD.
2. ساعات العمل المفكرة والصحافة CTRL + V للصق الأوامر في ملف جديد.
   

الخطوة 3: احفظ ملف المفكرة كملف .bat

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

الخطوة 4: انقر نقرًا مزدوجًا فوق ملف .bat لإنشاء مجلدات متعددة

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

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

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

بعد تثبيت كوتولس ل إكسيلالرجاء النقر كوتولس بلس > استيراد / تصدير > إنشاء مجلدات من محتويات الخلية لفتح إنشاء مجلدات من محتويات الخلية صندوق المحادثة:

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

النتيجة:

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

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

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

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

1. اضغط باستمرار ALT + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
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 المفتاح لتشغيل هذا الكود في مربع المطالبة، حدد قيم الخلايا التي تريد إنشاء المجلدات منها. ثم انقر فوق OK.
   
2. ثم في ما يلي حدد المجلد الوجهة في النافذة، حدد مسار الوجهة لإخراج المجلدات التي تم إنشاؤها. ثم انقر فوق OK زر ، انظر لقطة الشاشة:
   

النتيجة:

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

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

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

الخطوة 1: تحضير البيانات

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

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

1. اضغط باستمرار ALT + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
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 المفتاح لتشغيل هذا الكود في مربع المطالبة، حدد قيم الخلايا التي تريد إنشاء المجلدات منها. ثم انقر فوق OK.
   
2. في النافذة المنبثقة التالية، حدد مسار الوجهة لإخراج المجلدات التي تم إنشاؤها. ثم انقر فوق OK زر ، انظر لقطة الشاشة:
   

النتيجة:

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

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