logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





15-09-2018 09:39 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
السلام عليكم ورحمة الله وبركاته
اليوم أقدم ليكم كود بسيط وهو لادراج أسماء الملفات داخل فولدر تقوم أنت باختياره من الجهاز ومن ثم توضع فى عمود معين
وقمت بكتابة سطر بسيط فى البداية لتحدد رقم الصف والعمود الذى ستوضع فيه الاسماء بالارتباط التشعبى

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

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

CODE
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




look/images/icons/i1.gif جلب اسماء الملفات داخل فولدر بارتباط تشعبى
  15-09-2018 10:02 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
ابداع استاذ اسلام كود ممتاز بارك الله فيك



توقيع :ali mohamed ali


{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
الاخرين لوجه الله وان تحتسب له اجر عند الله

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




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




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




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

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





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




look/images/icons/i1.gif جلب اسماء الملفات داخل فولدر بارتباط تشعبى
  16-09-2018 05:42 صباحاً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36759
الاعجاب : 186
بارك الله فيك أخي الحبيب إسلام وجزاك الله خيراً
موضوع رائع .. ويستحق كل تقدير
123




look/images/icons/i1.gif جلب اسماء الملفات داخل فولدر بارتباط تشعبى
  16-09-2018 09:42 صباحاً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10066
الاعجاب : 67
موقعي : زيارة موقعي
الله ينور ياغالي 123



توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif جلب اسماء الملفات داخل فولدر بارتباط تشعبى
  16-09-2018 10:17 صباحاً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20048
الاعجاب : 12
موقعي : زيارة موقعي

الله ينور يا غالى 123




توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


look/images/icons/i1.gif جلب اسماء الملفات داخل فولدر بارتباط تشعبى
  16-09-2018 07:54 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
مشكور مروركم الغالى أساتذتى الاحباء "الياسرين والحسام"
لا وايه نفس الجمله "الله ينور ياغالى" وبنفس الايموشن
الظاهر انها اتاخدت كوبى والسلام عليكم biggrin2




look/images/icons/i1.gif جلب اسماء الملفات داخل فولدر بارتباط تشعبى
  16-09-2018 09:03 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 88
المشاركات : 8
الجنس :
قوة السمعة : 20
الاعجاب : 0
منتهى البساطه والروعه




look/images/icons/i1.gif جلب اسماء الملفات داخل فولدر بارتباط تشعبى
  17-09-2018 06:23 صباحاً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36759
الاعجاب : 186
بص بقا وركز يا سمسم عشان مش بحب يكون فيه لبس ..أنا أولاً رديت ووضعت الإيموشين الأول ومقلتش "الله ينور يا غالي" ، بالطبع إنت غالي وعزيز بس أنا مقلتش كدا .. فيا ريت تاخد بالك ..أما العربي وحسام فتلاقيهم نفس الروح ونفس التفكير ونفس كل حاجة عشان كدا هتلاقي الردود متشابهة ، لكن لو ركزت هتلاقي أكيد اختلاف في الردين ..
يعني العربي بين "يا" و"غالي" لم يترك مسافة ، أما حسام فترك مسافة .. العربي الخط مش Bold لكن حسام الخط Bold .. العربي عمل توسيط لكن حسام Aligh Right .. بكدا يكون فيه اختلافات كبيرة وشاسعة .. أرجو التركيز يا غالي 142




طبعاً طلعت تراجع المشاركات عشان تتأكد من كلامي ، ومنتش واثق من اللي بقوله .. laugh




اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 2 < 1 2 >




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية جلب اسماء الملفات والفولدرات مع عمل هيبرلينك ليها بواسطة البوركويري mmagedmemo
3 914 YasserKhalil
سحب اسماء الملفات من مجلد ما abdhamidnasr
0 728 abdhamidnasr

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









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

الساعة الآن 07:49 AM