Note: The other languages of the website are Google-translated. Back to English

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

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

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

قم بإنشاء مجلدات بسرعة بناءً على قيم الخلية باستخدام Kutools for Excelفكرة جيدة 3


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

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

1. ضع المصنف النشط في دليل محدد ستضع فيه المجلدات التي تم إنشاؤها. افتح المصنف وحدد نطاق الخلايا التي تريد استخدامها.

إنشاء مجلدات doc1

2. انقر المطور > Visual Basic، جديد Microsoft Visual Basic للتطبيقات سيتم عرض النافذة ، انقر فوق إدراج > وحدة، وأدخل الكود التالي في الوحدة النمطية:

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

Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub

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

إنشاء مجلدات doc2


قم بإنشاء مجلدات بسرعة بناءً على قيم الخلية باستخدام Kutools for Excel

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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:(تنزيل مجاني Kutools for Excel الآن!)

1. حدد النطاق الذي تريد إنشاء المجلدات.

2. انقر كوتولس بلس > استيراد / تصدير > إنشاء مجلدات من محتويات الخلية... ، انظر لقطة الشاشة:

doc قم بإنشاء مجلد 1

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

doc قم بإنشاء مجلد 2

4. انقر OK. وسوف يذكرك مربع المطالبة بعدد المجلدات التي تم إنشاؤها. انظر لقطة الشاشة:

doc قم بإنشاء مجلد 3

5. انقر OK. وتم إنشاء جميع القيم في النطاق المحدد مجلدات في المجلد المحدد.
doc قم بإنشاء مجلد 4


سرد جميع أسماء الملفات من مجلد في ورقة

لمعرفة المزيد عن هذه الوظيفة.

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

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:(تنزيل مجاني Kutools for Excel الآن!)

1. انقر كوتولس بلس > استيراد و تصدير > قائمة اسم الملف.
doc قم بإنشاء مجلد 5

2. في ال قائمة اسم الملف الحوار ، حدد المجلد الذي تريد سرد ملفاته ، الاختيار جميع الملفات or تحديد الخيار كما تحتاج في أنواع الملفات section.
img src = "/ images / stories / doc-excel / create-folder / doc-create-folder-6.png" alt = "doc create folder 6" />

3. انقر Ok، يتم إنشاء ورقة جديدة بجميع أسماء الملفات وبعض المعلومات ذات الصلة.
doc قم بإنشاء مجلد 7


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (61)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما هو الخطأ في اتباع تعليمات VBA؟ افعل بينما r
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لردك ، يحتوي رمز VBA على أسئلة صغيرة عندما أقوم بتحريره ، لذلك قمت هنا بتعديله ، ويتم تطبيقه بنجاح ، يرجى تجربته. حظا طيبا وفقك الله!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
SkyYang ، [اقتباس] شكرًا على ردك ، يحتوي رمز VBA على أسئلة قليلة عندما أقوم بتحريره ، لذا فقد قمت بتعديله هنا ، ويتم تطبيقه بنجاح ، يرجى المحاولة. حظا طيبا وفقك الله!بواسطة skyyang[/ اقتباس] أنت رائع !! كنت قادرًا على أن أكون أكثر إنتاجية في العمل بسبب البرنامج (كود VBA في المطور).
تم تصغير هذا التعليق بواسطة المشرف على الموقع
من كتب المثال الأول - أنت رائع !!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
من فضلك ، أحتاج إلى نفس الماكرو ولكن بدلاً من حفظها كمجلدات ، أحتاجها لحفظ دفاتر الملاحظات بأسماء الخلايا فقط في نطاق أعمدة ، وأقدر الدعم.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
جيد ... :) شكرا .. يجعلني أعمل بسيطًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا هذا وفر لي الكثير من الوقت. ولكن كيف يمكن إنشاء مجلدات فرعية؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلاً!!! هذا حل رائع وأكثر فاعلية وأسهل وجدته على الإنترنت لهذا الغرض! :الضحك بصوت مرتفع:
تم تصغير هذا التعليق بواسطة المشرف على الموقع
:-) شكرًا على تقديم هذه البيانات .... وفر الكثير من وقتي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية القيام بذلك في LibreOffice أو OpenOffice الرجاء الرد.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
HELP !!! لدي أكثر من 7500 مجلد لإنشائه ولكن البرنامج يواجه خطأ في التجميع أثناء تحديد [b] Sub MakeFolders () [b] كما لو كان اسمًا غير صالح أو شيء ما! أنا أقوم بتشغيل Excel 2010.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
واجهت نفس المشكلة ، ولكن عندما نظرت إلى اسم المجلد عن قرب ، كان هناك / وبمجرد إزالته ، عمل الرمز مثل السحر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كنت منقذا للحياة!!!!! [b] شكرًا لك! [b] ملاحظة: لا تضع مسافة بين MakeFolder و ().
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لسبب ما ، يواجه المصنف النشط مشاكل في المسار. HELPPPP: صرخة:
تم تصغير هذا التعليق بواسطة المشرف على الموقع
واجهت مشكلة مماثلة ، في النهاية اكتشفت أن البرنامج لا يعمل إذا كان اسم الملف يحتوي على خطوط مائلة / أو \ ، استبدلت / بـ _ ، لقد نجحت
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لهذا - ممتاز موفر للوقت
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عملت مثل السحر ، ولكن هل هناك طريقة لإنشاء مجلدات فرعية؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عند محاولة ذلك على جهاز Mac ، حصلت على "خطأ وقت التشغيل '68': الجهاز غير متوفر" ، والضغط على تصحيح الأخطاء يشير إلى السطر التالي من التعليمات البرمجية باعتباره الجاني: If Len (Dir (ActiveWorkbook.Path & "\" & Rng ( r، c)، vbDirectory)) = 0 ثم MkDir (ActiveWorkbook.Path & "\" & Rng (r، c)) الرجاء المساعدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أود أن أعرف هذا أيضًا. أريد عمل مجلدات فرعية بالاسم المعطى مضاف بالفعل. على سبيل المثال: Excel namedfolder \ P \ E أحتاج إلى مجلدين داخل المجلد P باسم E و K.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لك على هذا المنشور المفيد ، وفر لي بعض الوقت. أنا أحب المهووسين :) ماذا سنفعل بدونهم ، بجدية!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحاول إضافة عدة أعمدة معًا عند إنشاء مجلد. أي اقتراحات حول كيفية القيام بذلك؟ على سبيل المثال ABC 1 A1 A2 A3 2 B1 B2 B3 3 C1 C2 C3 المنتج النهائي بمجرد إنشاء المجلدات يجب أن يكون: المجلد 1 (A1 + A2 + A3) المجلد 2 (B1 + B2 + B3) إلخ ... لقد وجدت صيغًا متعددة في إنشاء مجلدات من خلايا مفردة ولكن لا شيء لعدة مرات. لقد حاولت أيضًا تعديل بعض الأشياء دون نجاح. أيه أفكار؟ شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنت رائع. انها عملت. شكرًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عمل جيد ..... ممتاز
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلاً على علامات تبويب KUTOOLS & Enterprise هذه ...... أداة توفير الوقت ..
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد وفرت لي الكثير من الوقت
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا يا صاح ،،، العمل ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هتافات! وظيفة عظيمة!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على هذا. يعمل بشكل جيد
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL