أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
mmagedmemo ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil هل يمكن تغيير مسار الصورة فى الحفظ ونقلها للمسار الجديد اكسيل اسئله واجابات


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





إنشاء مجلدات ومجلدات فرعية بلا حدود Create Folders SubFolders Limitless

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



04-10-2020 09:06 صباحا
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 

السلام عليكم ورحمة الله وبركاته

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

سأضع لكم صورة توضيحية لتتضح صورة الشكل النهائي لورقة العمل كمثال:

TqTzT_001

** نلاحظ في العمود الأول سيتم إنشاء عدد 2 مجلد رئيسي الأول باسم ABC والثاني باسم Yasser

** المجلد ABC سيتم إنشاء عدد 2 مجلد بداخله الأول باسم DE و FG

** المجلد DE سيتم إنشاء مجلد بداخله باسم HI وداخله مجلد NO وداخله PQ (سلسلة مجلدات فرعية)

** المجلد FG سيتم إنشاء مجلدين الأول باسم JK والثاني باسم LM

خلاصة القول أنه يمكن إنشاء أي عدد من المجلدات الرئيسية وأي عدد من المجلدات الفرعية لأي عدد من المستويات

#If Win64 Then
    Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Boolean
#Else
    Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Boolean
#End If

Sub Create_Folders_SubFolders_Limitless()
    Dim objRow As Range, objCell As Range, strFolders As String
    For Each objRow In ActiveSheet.UsedRange.Rows
        strFolders = ThisWorkbook.Path & ""
        For Each objCell In objRow.Cells
            strFolders = strFolders & "" & objCell
        Next objCell
        strFolders = strFolders & ""
        MakeSureDirectoryPathExists strFolders
    Next objRow
End Sub
 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

أرجو أن يكون الموضوع ذات إفادة لكم إن شاء العلي القدير

أخوكم في الله / ياسر خليل أبو البراء
 
 


04-10-2020 09:46 صباحا
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1773
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 offline 
look/images/icons/i1.gif إنشاء مجلدات ومجلدات فرعية بلا حدود Create Folders SubFolders Limitless
جزاك الله كل خير استاذ ياسر عمل ممتاز وأعتقد انه مهم جداً للكثير جعله الله فى ميزان حسناتك ورحم الله والديك
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

04-10-2020 09:47 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif إنشاء مجلدات ومجلدات فرعية بلا حدود Create Folders SubFolders Limitless
وجزيت خيراً أخي العزيز علي ومشكور على مرورك العطر.

05-10-2020 02:45 صباحا
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 812
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif إنشاء مجلدات ومجلدات فرعية بلا حدود Create Folders SubFolders Limitless
جزاكم الله خيرا استاذنا الكبير ابو البراء الغالى
وجعله الله فى ميزان حسناتكم يوم القيامة

05-10-2020 05:57 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif إنشاء مجلدات ومجلدات فرعية بلا حدود Create Folders SubFolders Limitless
بارك الله فيك أخي حسونة ومشكور على دعواتك الطيبة.

05-10-2020 07:18 صباحا
مشاهدة مشاركة منفردة [5]
mmbadr
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-11-2018
رقم العضوية : 9117
المشاركات : 12
الجنس : ذكر
تاريخ الميلاد : 16-4-1976
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 34
 offline 
look/images/icons/i1.gif إنشاء مجلدات ومجلدات فرعية بلا حدود Create Folders SubFolders Limitless
صباح الفل

05-10-2020 07:28 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif إنشاء مجلدات ومجلدات فرعية بلا حدود Create Folders SubFolders Limitless
صباح الخيرات أخي الكريم




الكلمات الدلالية
إنشاء ، مجلدات ، ومجلدات ، فرعية ، حدود ، Create ، Folders ، SubFolders ، Limitless ،


 










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

الساعة الآن 03:20 صباحا