قم بإنشاء مجلدات ومجلدات فرعية متعددة من قائمة البيانات في Excel
لنفترض أن لديك قائمة بأسماء الموظفين ضمن نطاق ورقة العمل وتهدف إلى إنشاء مجلدات فردية لكل منهم لتخزين معلوماتهم. يمكن أن يستغرق إنشاء كل مجلد يدويًا وقتًا طويلاً. ومع ذلك، هناك طرق فعالة لتسريع هذه العملية. في هذا الدليل، سأشارك عدة طرق لإنشاء المجلدات بسرعة بناءً على قيم الخلايا المحددة.
إنشاء مجلدات بناءً على قيم الخلايا
قم بإنشاء المجلدات والمجلدات الفرعية بناءً على قيم الخلايا باستخدام رمز VBA
إنشاء مجلدات بناءً على قيم الخلايا
في هذا القسم، سنستكشف طرقًا مختلفة بالتفصيل، ونقدم إرشادات شاملة خطوة بخطوة لإنشاء مجلدات بسرعة ودون عناء استنادًا إلى قائمة قيم الخلايا.
قم بإنشاء مجلدات من القائمة باستخدام أمر MD والمفكرة
يعد تحويل قائمة من Excel إلى مجلدات باستخدام أمر MD وNotepad خدعة ذكية تمزج بين البرمجة النصية المجمعة السهلة وموهبة Excel للحفاظ على تنظيم الأشياء. تعتبر هذه الطريقة رائعة لإنشاء الكثير من المجلدات بسرعة، دون الحاجة إلى القيام بذلك يدويًا. فيما يلي دليل خطوة بخطوة لإنجاز هذه المهمة:
الخطوة 1: استخدم الأمر MD لإنشاء الصيغ
انسخ الصيغة التالية أو أدخلها في خلية فارغة بجوار قيمة الخلية الأولى (B1، على سبيل المثال)، ثم اسحب مقبض التعبئة لأسفل لتطبيق الصيغة على جميع عناصر القائمة.
="MD "&A1
الخطوة 2: انسخ الصيغ والصقه في ملف المفكرة
- صحافة CTRL + C لنسخ الخلايا باستخدام صيغة أمر MD.
- ساعات العمل المفكرة والصحافة CTRL + V للصق الأوامر في ملف جديد.
الخطوة 3: احفظ ملف المفكرة كملف .bat
انقر حفظ ك من قم بتقديم علامة التبويب في المفكرة، في حفظ ك في مربع الحوار، اختر الدليل الذي تريد إنشاء مجلدات متعددة فيه، ثم قم بتسمية هذا الملف بامتداد الخفافيش امتداد. وأخيرا، انقر فوق حفظ زر. انظر لقطة الشاشة:
الخطوة 4: انقر نقرًا مزدوجًا فوق ملف .bat لإنشاء مجلدات متعددة
- أغلق ملف المفكرة، وانتقل إلى المجلد الذي قمت بحفظ ملف .bat فيه مسبقًا.
- الآن، شاهد السحر: انقر نقرًا مزدوجًا على الملف، وسترى مجلدات متعددة يتم إنشاؤها كلها مرة واحدة. انظر العرض التوضيحي أدناه:
قم بإنشاء مجلدات من قائمة باستخدام أداة قوية – Kutools for Excel
مع الأقوياء كوتولس ل إكسيلالصورة إنشاء مجلدات من محتويات الخلية الميزة، يمكنك الآن إنشاء مجلدات بسهولة وسرعة من قائمة Excel. ولكنها لا تتوقف عند المجلدات الأساسية فقط؛ يتيح لك Kutools أيضًا إنشاء هياكل معقدة بمجلدات فرعية متعددة المستويات دفعة واحدة. بضع خطوات بسيطة فقط يمكن أن تحول البيانات من Excel إلى نظام مجلد منظم، مما يعزز إنتاجيتك بشكل كبير.
بعد تثبيت كوتولس ل إكسيلالرجاء النقر كوتولس بلس > استيراد / تصدير > إنشاء مجلدات من محتويات الخلية لفتح إنشاء مجلدات من محتويات الخلية صندوق المحادثة:
- حدد قيم الخلايا التي تريد إنشاء مجلدات بناءً عليها؛
- ثم ، انقر فوق زر لتحديد المجلد الوجهة الذي تريد حفظ المجلدات فيه؛
- أخيرا ، انقر فوق OK .
النتيجة:
سيقوم Kutools بمعالجة القائمة من الورقة الخاصة بك وإنشاء مجلد لكل إدخال في الوجهة المحددة. انتقل إلى المجلد الوجهة لرؤية النتيجة. انظر لقطة الشاشة:
- هذه الميزة المفيدة يمكن أن تساعد أيضًا إنشاء المجلدات مع المجلدات الفرعية الخاصة بها ما تحتاج إليه. للقيام بذلك، يجب عليك إدخال أسماء المجلدات والمجلدات الفرعية المطلوبة في الخلايا، باستخدام علامة الشرطة المائلة العكسية (\) للفصل بين كل مستوى. ستكون محتويات كل خلية بمثابة دليل لإعداد البنية المطلوبة للمجلدات والمجلدات الفرعية.
ثم قم بتطبيق إنشاء مجلدات من محتويات الخلية الميزة، سيتم إنشاء كافة المجلدات مع المجلدات الفرعية الخاصة بها بنجاح. انظر لقطة الشاشة: - لتطبيق هذه الميزة ، من فضلك قم بتنزيل وتثبيت Kutools لبرنامج Excel لأول مرة.
قم بإنشاء مجلدات من قائمة باستخدام كود VBA
يمكن أن يؤدي استخدام تعليمات VBA البرمجية في Excel إلى تحويل المهمة الشاقة المتمثلة في إنشاء مجلدات من قائمة إلى عملية تلقائية سريعة. سيوضح لك هذا القسم كيفية تطبيق كود VBA لإنشاء المجلدات.
الخطوة 1: افتح محرر وحدة VBA وانسخ الكود
- اضغط باستمرار ALT + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
- انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
رمز 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: تنفيذ الكود
- بعد لصق هذا الرمز ، الرجاء الضغط F5 المفتاح لتشغيل هذا الكود في مربع المطالبة، حدد قيم الخلايا التي تريد إنشاء المجلدات منها. ثم انقر فوق OK.
- ثم في ما يلي حدد المجلد الوجهة في النافذة، حدد مسار الوجهة لإخراج المجلدات التي تم إنشاؤها. ثم انقر فوق OK زر ، انظر لقطة الشاشة:
النتيجة:
بعد تنفيذ كود VBA، توجه إلى الدليل الوجهة لعرض النتيجة. ستجد هناك المجلدات التي تم إنشاؤها حديثًا، ويتوافق كل منها مع عنصر من قائمة Excel الخاصة بك. انظر لقطة الشاشة:
- إذا كانت هناك إدخالات مكررة في الخلايا، فسيؤدي تشغيل التعليمات البرمجية إلى إنشاء مجلد واحد فقط لتلك التكرارات.
- إذا وجدت نفسك تستخدم هذا الرمز بشكل متكرر، ففكر في حفظ المصنف الخاص بك فيه مصنف Excel الذي يدعم وحدات الماكرو شكل. يحافظ هذا الإجراء على التعليمات البرمجية داخل المصنف، مما يسمح لك بتنفيذها مباشرة في المستقبل دون الحاجة إلى إعادة إدخال التعليمات البرمجية أو إعادة استيرادها.
قم بإنشاء المجلدات والمجلدات الفرعية بناءً على قيم الخلايا باستخدام رمز VBA
في بعض الأحيان، قد تجد نفسك في موقف لا تحتاج فيه إلى إنشاء مجلدات فحسب، بل أيضًا المجلدات الفرعية المقابلة لها، وكل ذلك يعتمد على البيانات الموجودة في خلايا Excel. لتحقيق هذه المهمة، سأقدم هنا كود VBA.
الخطوة 1: تحضير البيانات
أولاً، يجب عليك إدخال البيانات كما هو موضح في لقطة الشاشة التالية، ووضع أسماء المجلدات الرئيسية في العمود الأول وأسماء المجلدات الفرعية في العمود الثاني.
الخطوة 2: افتح محرر وحدة VBA وانسخ الكود
- اضغط باستمرار ALT + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
- انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
رمز 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: تنفيذ الكود
- بعد لصق هذا الرمز ، الرجاء الضغط F5 المفتاح لتشغيل هذا الكود في مربع المطالبة، حدد قيم الخلايا التي تريد إنشاء المجلدات منها. ثم انقر فوق OK.
- في النافذة المنبثقة التالية، حدد مسار الوجهة لإخراج المجلدات التي تم إنشاؤها. ثم انقر فوق OK زر ، انظر لقطة الشاشة:
النتيجة:
بعد تنفيذ كود VBA، انتقل إلى الدليل الوجهة لعرض النتيجة. ستجد أن المجلدات والمجلدات الفرعية الخاصة بها، وفقًا لما تمليه قيم الخلية، قد تم إنشاؤها بنجاح كما هو موضح في لقطة الشاشة التالية:
- يتوفر هذا الرمز فقط لإنشاء المجلدات الرئيسية ومجلدات المستوى الأول الفرعية الخاصة بها فقط.
- إذا وجدت نفسك تستخدم هذا الرمز بشكل متكرر، ففكر في حفظ المصنف الخاص بك فيه مصنف Excel الذي يدعم وحدات الماكرو شكل. يحافظ هذا الإجراء على التعليمات البرمجية داخل المصنف، مما يسمح لك بتنفيذها مباشرة في المستقبل دون الحاجة إلى إعادة إدخال التعليمات البرمجية أو إعادة استيرادها.
مقالات ذات صلة:
- قم بإدراج كافة أسماء الملفات من مجلد ومجلدات فرعية في ورقة عمل
- إذا كنت تريد إنشاء قائمة بأسماء الملفات داخل دليل في ورقة عمل ، فيمكنك معالجة الطرق التالية للحصول على قائمة بالملفات من دليل في ورقة العمل بسرعة.
- سرد كافة المجلدات والمجلدات الفرعية في Excel
- هل سبق لك أن عانيت من هذه المشكلة التي تسرد جميع المجلدات والمجلدات الفرعية من دليل محدد في ورقة عمل؟ في Excel ، لا توجد طريقة سريعة وسهلة للحصول على اسم جميع المجلدات الموجودة في دليل معين مرة واحدة. للتعامل مع المهمة ، قد تساعدك هذه المقالة.
- انسخ الملفات أو انقلها من مجلد إلى آخر بناءً على القائمة
- إذا كانت لديك قائمة بأسماء الملفات في عمود في ورقة العمل ، وتم تحديد موقع الملفات في مجلد في جهاز الكمبيوتر الخاص بك. ولكن ، الآن ، تحتاج إلى نقل أو نسخ هذه الملفات التي يتم سرد الأسماء في ورقة العمل من مجلدها الأصلي إلى مجلد آخر كما هو موضح في لقطة الشاشة التالية. كيف يمكنك إنهاء هذه المهمة بأسرع ما يمكن في Excel؟
- إعادة تسمية ملفات متعددة للمجلد
- قد يعاني معظمنا من هذه المشكلة التي نحتاجها لإعادة تسمية ملفات متعددة في مجلد ، وإعادة تسمية أسماء الملفات واحدة تلو الأخرى ستجعلنا مجانين إذا كان هناك مئات أو آلاف الملفات في هذا المجلد. هل هناك أي وظائف جيدة لنا للتعامل مع هذه المهمة؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!