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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





إنشاء فهرس لكل أوراق العمل بشكل تلقائي Auto Generate INDEX For Sheets

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



31-08-2019 07:18 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 

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

32297_Logo

أقدم لكم كود بسيط ومفيد جداً ، وهو يقوم بإنشاء فهرس في ورقة العمل الرئيسية بأوراق العمل الأخرى وإنشاء ارتباط تشعبي بها.
9ygiQ_001


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

إلى هنا فحسب ، وإليكم الكود ، وهو يوضع في حدث ورقة العمل المطلوب إنشاء الفهرس بها ، ويتم ذلك عن طريق كليك يمين على اسم ورقة العمل ثم اختر View Code ثم الصق الكود
Private Sub Worksheet_Activate()
    'تعريف المتغيرات
    Dim ws      As Worksheet
    Dim i       As Long

    'تعيين قيمة للمتغير ليساوي 1 ويمثل أول صف لوضع النتائج
    i = 1
    
    'بدء التعامل مع ورقة العمل التي تحتوي الكود
    With Me
        
        'مسح محتويات العمود الأول وهو عمود النتائج
        .Columns(1).ClearContents
        
        '[A1] في الخلية [INDEX] وضع كلمة
        .Cells(1, 1) = "INDEX"
        
        '[Index] تسمية الخلية الأولى باسم نطاق معرف باسم
        .Cells(1, 1).Name = "Index"
    
    'جملة الانتهاء من التعامل مع ورقة العمل
    End With

    'حلقة تكرارية لكل أوراق العمل
    For Each ws In Worksheets
    
        'استثناء ورقة العمل التي تحتوي الكود من الحلقة التكرارية
        If ws.Name <> Me.Name Then
        
            'زيادة مقدار قيمة الصف بمقدار واحد
            i = i + 1
            
            'بدء التعامل مع ورقة العمل الهدف
            With ws
            
                'يليها رقم فهرس الورقة [Start] وضع تسمية لأول خلية في الورقة الهدف باسم
                .Range("A1").Name = "Start" & ws.Index
                
                '[Back To Index] إنشاء ارتباط تشعبي في ورقة العمل الهدف بعنوان
                'والذي يوجد في أول خلية في الورقة الرئيسية [Index] عنوان الارتباط هو النطاق المسمى
                .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:="Index", TextToDisplay:="Back To Index"
                
            'انتهاء التعامل مع الورقة الهدف
            End With
            
            'إنشاء ارتباط تشعبي للخلية في الورقة الرئيسية بعنوان ورقة العمل الهدف
            'والذي يليه رقم فهرس الورقة [Start] عنوان الارتباط التشعبي هو النطاق المسمى
            Me.Hyperlinks.Add Anchor:=Me.Cells(i, 1), Address:="", SubAddress:="Start" & ws.Index, TextToDisplay:=ws.Name
            
        'نهاية جملة الشرط
        End If
    
    'الانتقال للورقة التالية في أوراق المصنف
    Next ws
End Sub



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

إعداد وتقديم / ياسر خليل أبو البراء
 
 


أثارت هذه المشاركة إعجاب: الصقر، محمود ابو الدهب، ali mohamed ali، محمد أبو عبدو، EM_ACC،





31-08-2019 09:19 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1711
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17638
الاعجاب : 326
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif إنشاء فهرس لكل أوراق العمل بشكل تلقائي Auto Generate INDEX For Sheets

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



أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :الصقر

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



31-08-2019 09:28 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif إنشاء فهرس لكل أوراق العمل بشكل تلقائي Auto Generate INDEX For Sheets
دا نورك أخي الحبيب حسام .. شرفني مرورك بالموضوع

أثارت هذه المشاركة إعجاب: الصقر،




31-08-2019 11:12 صباحا
مشاهدة مشاركة منفردة [3]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
look/images/icons/i1.gif إنشاء فهرس لكل أوراق العمل بشكل تلقائي Auto Generate INDEX For Sheets
بارك الله فيك استاذ ياسر اعتقد موجود في ملف الالف كود وبصراحة كل الاعمال لا غنى عنها 
 

أثارت هذه المشاركة إعجاب: YasserKhalil،


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

تحياتى وتقدير للجميع  محمود ابوالدهب


31-08-2019 11:42 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif إنشاء فهرس لكل أوراق العمل بشكل تلقائي Auto Generate INDEX For Sheets
بارك الله فيك أخي الحبيب محمود ومشكور على مرورك العطر

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،




31-08-2019 12:38 مساء
مشاهدة مشاركة منفردة [5]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 707
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 845
الاعجاب : 68
 offline 
look/images/icons/i1.gif إنشاء فهرس لكل أوراق العمل بشكل تلقائي Auto Generate INDEX For Sheets
استاذ ياسر شكرا لك على الكود الرائع 
With Me

ولكن لدي مجموعة من الاستفسارات هل هذا الكود يشير الى الصفة التي بها الكود لتعامل معها 
وهل كلمة me كلمة دلالية ام هي جزء اساسي بالكود
 





31-08-2019 01:28 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif إنشاء فهرس لكل أوراق العمل بشكل تلقائي Auto Generate INDEX For Sheets
كلمة Me تشير إلى ورقة العمل لأن الكود بورقة العمل ..
ولو الكود بالفورم فهي تشير للفورم الموجود به الكود

أثارت هذه المشاركة إعجاب: khaled alborene،




31-08-2019 01:35 مساء
مشاهدة مشاركة منفردة [7]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 707
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 845
الاعجاب : 68
 offline 
look/images/icons/i1.gif إنشاء فهرس لكل أوراق العمل بشكل تلقائي Auto Generate INDEX For Sheets
جميل جدا 
لدي سؤال اخر ما ضرورة عمل name manager لكل خلية 





31-08-2019 02:18 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif إنشاء فهرس لكل أوراق العمل بشكل تلقائي Auto Generate INDEX For Sheets
كنوع من التنيظيم للكود للتعامل بسهولة مع أوراق العمل بالترتيب

أثارت هذه المشاركة إعجاب: khaled alborene،




31-08-2019 02:42 مساء
مشاهدة مشاركة منفردة [9]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1210
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5709
الاعجاب : 711
 offline 
look/images/icons/i1.gif إنشاء فهرس لكل أوراق العمل بشكل تلقائي Auto Generate INDEX For Sheets
بارك الله فيك استاذ ياسر وجزاك الله خير الثواب
قمة الروعة  فى شرح الكود حتى يكون سهل بالنسبة لجميع الأعضاء ويستطيعون التعديل على الكود بما يناسب احتياجاتهم - وسع الله استاذى الكريم فى رزقك واكرمك الله فى اولادك وبارك الله لك فيهم

أثارت هذه المشاركة إعجاب: YasserKhalil،


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


31-08-2019 02:50 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif إنشاء فهرس لكل أوراق العمل بشكل تلقائي Auto Generate INDEX For Sheets
تسلم أخي العزيز علي وجزيت خيراً على دعواتك الطيبة المباركة .. ولك بمثل ما دعوت لي وزيادة

أثارت هذه المشاركة إعجاب: ali mohamed ali،




31-08-2019 03:34 مساء
مشاهدة مشاركة منفردة [11]
محمد أبو عبدو
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 163
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 485
الاعجاب : 38
 offline 
look/images/icons/i1.gif إنشاء فهرس لكل أوراق العمل بشكل تلقائي Auto Generate INDEX For Sheets
بارك الله فيك وجزاك الله خير الجزاء أستاذي الفاضل.


أثارت هذه المشاركة إعجاب: YasserKhalil،




31-08-2019 03:50 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif إنشاء فهرس لكل أوراق العمل بشكل تلقائي Auto Generate INDEX For Sheets
بارك الله فيك أخي الكريم محمد أبو عبدو ومشكور على مرورك بالموضوع







الكلمات الدلالية
Sheets ، INDEX ، Generate ، Auto ، تلقائي ، بشكل ، العمل ، أوراق ، فهرس ، إنشاء ،


 







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



الساعة الآن 02:57 صباحا

أعلن هنا
أعلن هنا
أعلن هنا