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

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


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





جلب اسماء الملفات داخل فولدر بارتباط تشعبى

السلام عليكم ورحمة الله وبركاته اليوم أقدم ليكم كود بسيط وهو لادراج أسماء الملفات داخل فولدر تقوم أنت باختياره من الجهاز ..



15-09-2018 09:39 مساء
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 

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

كل ما عليك هو نسخ الكود أو تحمله من الرابط يكون أفضل عشان هيكون فيه بركه biggrin2
وتفعل الكود لوحده هيفتحلك نافذة تختار منها الفولدر ثم اضغط Ok
وبعدها الكود هيقوم بواجبة ويرصلك الاسماء بالارتباط التشعبى فى العمود ومن الصف اللى انت محدده بالكود
هتلاقى تعليق كاتبه لتحديد رقم الصف ورقم العمود البادئ لوضع الاسماء
تحت التعليق مكتوب rw =1 دا بداية رقم الصف و cl = 1 دا بداية رقم العمود

ومش عايز ارغى كتير عشان مش فاضى اساسا biggrin2
الكود المستخدم

Sub Alsaqr_GetFiles()
'programming by Eslam Abdullah
Dim Folder As Object, File As Object
Dim DFolder As FileDialog, FPath$, rw%, cl%

'حدد هنا رقم بداية الصف ورقم بداية العمود
rw = 1: cl = 1

    Set DFolder = Application.FileDialog(msoFileDialogFolderPicker)
        If DFolder.Show = -1 Then
            FPath = DFolder.SelectedItems(1)
            Set DFolder = Nothing
        Else: Exit Sub
        End If
        
    Set Folder = CreateObject("Scripting.FileSystemObject").GetFolder(FPath)
    If Folder.Files.Count = 0 Then MsgBox "المجلد لا يحتوى على ملفات يمكن ادراجها", 64, "أكاديمية الصقر للتدريب": Exit Sub
    
    For Each File In Folder.Files
        ActiveSheet.Hyperlinks.Add Cells(rw, cl), File.path, , , File.Name
        rw = rw + 1
    Next File
    MsgBox "تم بحمد الله تعالى", 64, "أكاديمية الصقر للتدريب"
End Sub


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

كان معكم المعلق الشهير بأكاديمية الصقر اسلام عبدالله
دمتم فى حفظ الله ورعايته 81

 





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

15-09-2018 10:03 مساء
مشاهدة مشاركة منفردة [2]
مهند محسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 455
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 2
يتابعونه : 9
قوة السمعة : 846
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif جلب اسماء الملفات داخل فولدر بارتباط تشعبى
جزاك الله كل خير

15-09-2018 10:22 مساء
مشاهدة مشاركة منفردة [3]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif جلب اسماء الملفات داخل فولدر بارتباط تشعبى
مشكور مروركم العطر استاذ على واستاذ مهند
تقبلوا وافر احترامى وتقديرى 81

15-09-2018 11:31 مساء
مشاهدة مشاركة منفردة [4]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 765
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif جلب اسماء الملفات داخل فولدر بارتباط تشعبى
قمة الابداع أستاذى الجليل / إسلام
تقبل وافر احترامى وتقديرى
123


16-09-2018 12:44 صباحا
مشاهدة مشاركة منفردة [5]
عبدالجيد
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 194
المشاركات : 387
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-2-1986
الدعوات : 2
يتابعهم : 158
يتابعونه : 37
قوة السمعة : 2958
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif جلب اسماء الملفات داخل فولدر بارتباط تشعبى

بارك الله فيكم جميعا 
فأنتم قمة فى الابداع والتألق


16-09-2018 01:08 صباحا
مشاهدة مشاركة منفردة [6]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 5
يتابعهم : 0
يتابعونه : 89
قوة السمعة : 10845
موقعي : زيارة موقعي
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif جلب اسماء الملفات داخل فولدر بارتباط تشعبى
مشكور مروركم العطر والمشجع
أستاذى الحبيب محمد الدسوقى
واخى الحبيب عبدالجيد
تقبلوا وافر احترامي وتقديري 81




الكلمات الدلالية
اسماء ، الملفات ، داخل ، فولدر ، بإرتباط ، تشعبى ،


 










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

الساعة الآن 03:45 مساء