logo

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



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





19-02-2019 01:36 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
القوائم منزلقة على شكل شرائح
السلام عليكم ورحمة الله وبركاته
الحمد لله رب العالمين والصلاة والسلام على سيد المرسلين،وبعد:
إخوتي الأكارم - موضوع لفت نظري كيفية تنفيذه على الإكسيل أحببت أن أطلعكم عليه
نفتح مصنف جديد ثم نقوم بتسيق الورقة لتظهر أمام أحبتي بمظهر لائق - والعين تأكل قبل الفم أحيانا​ً ...

MjIyOTk2MQ7171%D9%82%D9%88%D8%A7%D8%A6%D9%85%20%D8%B9%D9%84%D9%89%20%D8%B4%D9%83%D9%84%20%D8%B4%D8%B1%D8%A7%D8%A6%D8%AD
نكتب العنوان المناسب - أعتذر إن لم يكن العنوان مناسباً - ثم من إدراج شكل مستطيل مستدير الزوايا من إحدى الاتجاهات ننسخ منه 4 أشكال أخرى بعد التنسيق والنص في الوسط إلى اليسار بلون جذاب
وتحويله إلى شكل أفقي باستدارته كما تتم استدارة النص ضمنه ..نسمي كلاً منها بمربع الاسم بمسمياتها التي سيتم استخدامها في الأكواد ...((مع الاحتفاظ بالاسم في الذاكرة دون زيادة أو نقصان)).
ثم نحضر الصور التي سنستخدمها كأيقونات ننسقها ونسميها ..
نقوم بفتح المطور نختار منه إدراج ليبل Label لترتكز عليه الأشكال في يسار الورقة
ثم ندرج ليبلات بعدد هذه القوائم ..وبعد ذلك نكتب الأكواد في حدث الورقة ..
CODE

Private Sub ContactHover_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideOut_Contacts
SlideIn_Schedule
End Sub
Private Sub EmailsHover_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideIn_Schedule
SlideIn_Reports
SlideOut_Emails
End Sub
Private Sub GraphsHover_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideIn_Reports
SlideOut_Graphs
End Sub
Private Sub MinAll_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideIn_Contacts
SlideIn_Schedule
SlideIn_Emails
SlideIn_Reports
SlideIn_Graphs
End Sub

Private Sub ReportsHover_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideIn_Graphs
SlideIn_Emails
SlideOut_Reports
End Sub
Private Sub ScheduleHover_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideIn_Contacts
SlideIn_Emails
SlideOut_Schedule
End Sub




بحيث إذا تم انزلاق جزء من القائمة تختفي البقية حيث لا يظهر إلا الأيقونة المعبرة عن الشريحة
وإليكم الموديول الذي يتم إدراجه للقيام بهذه العملية بدقة
CODE

Dim Wdth As Long
Sub SlideOut_Contacts()
With ActiveSheet.Shapes("ContactsBtn")
For Wdth = 32 To 105
.Height = Wdth
ActiveSheet.Shapes("ContactsIcon").Left = Wdth - 32
Next Wdth
.TextFrame2.TextRange.Characters.Text = "Contacts"
End With
End Sub
Sub SlideIn_Contacts()
With ActiveSheet.Shapes("ContactsBtn")
For Wdth = 105 To 32 Step -1
.Height = Wdth
.Left = Wdth - 32
ActiveSheet.Shapes("ContactsIcon").Left = Wdth - 32
Next Wdth
ActiveSheet.Shapes("ContactsBtn").TextFrame2.TextRange.Characters.Text = ""
End With
End Sub
Sub SlideOut_Schedule()
With ActiveSheet.Shapes("ScheduleBtn")
For Wdth = 32 To 105
.Height = Wdth
ActiveSheet.Shapes("ScheduleIcon").Left = Wdth - 32
Next Wdth
.TextFrame2.TextRange.Characters.Text = "Schedule"
End With
End Sub
Sub SlideIn_Schedule()
With ActiveSheet.Shapes("ScheduleBtn")
For Wdth = 105 To 32 Step -1
.Height = Wdth
.Left = Wdth - 32
ActiveSheet.Shapes("ScheduleIcon").Left = Wdth - 32
Next Wdth
ActiveSheet.Shapes("ScheduleBtn").TextFrame2.TextRange.Characters.Text = ""
End With
End Sub

Sub SlideOut_Emails()
With ActiveSheet.Shapes("EmailsBtn")
For Wdth = 32 To 105
.Height = Wdth
ActiveSheet.Shapes("EmailsIcon").Left = Wdth - 32
Next Wdth
.TextFrame2.TextRange.Characters.Text = "Emails"
End With
End Sub
Sub SlideIn_Emails()
With ActiveSheet.Shapes("EmailsBtn")
For Wdth = 105 To 32 Step -1
.Height = Wdth
.Left = Wdth - 32
ActiveSheet.Shapes("EmailsIcon").Left = Wdth - 32
Next Wdth
ActiveSheet.Shapes("EmailsBtn").TextFrame2.TextRange.Characters.Text = ""
End With
End Sub
Sub SlideOut_Reports()
With ActiveSheet.Shapes("ReportsBtn")
For Wdth = 32 To 105
.Height = Wdth
ActiveSheet.Shapes("ReportsIcon").Left = Wdth - 32
Next Wdth
.TextFrame2.TextRange.Characters.Text = "Reports"
End With
End Sub
Sub SlideIn_Reports()
With ActiveSheet.Shapes("ReportsBtn")
For Wdth = 105 To 32 Step -1
.Height = Wdth
.Left = Wdth - 32
ActiveSheet.Shapes("ReportsIcon").Left = Wdth - 32
Next Wdth
ActiveSheet.Shapes("ReportsBtn").TextFrame2.TextRange.Characters.Text = ""
End With
End Sub
Sub SlideOut_Graphs()
With ActiveSheet.Shapes("GraphsBtn")
For Wdth = 32 To 105
.Height = Wdth
ActiveSheet.Shapes("GraphsIcon").Left = Wdth - 32
Next Wdth
.TextFrame2.TextRange.Characters.Text = "Graphs"
End With
End Sub
Sub SlideIn_Graphs()
With ActiveSheet.Shapes("GraphsBtn")
For Wdth = 105 To 32 Step -1
.Height = Wdth
.Left = Wdth - 32
ActiveSheet.Shapes("GraphsIcon").Left = Wdth - 32
Next Wdth
ActiveSheet.Shapes("GraphsBtn").TextFrame2.TextRange.Characters.Text = ""
End With
End Sub




نقوم أيضاً بربط الصورة (الأيقونة) والشكل بالماكرو الخاص بكل منها.
والسلام عليكم ورحمة الله وبركاته.

 
 
  قوائم منزلقة على شكل شرائح.rar   تحميل rar مرات التحميل :(83)
الحجم :(1409.295) KB




توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


look/images/icons/i1.gif القوائم منزلقة على شكل شرائح
  19-02-2019 02:58 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 02-10-2017
رقم العضوية : 828
المشاركات : 183
الجنس :
تاريخ الميلاد : 7-7-1986
الدعوات : 1
قوة السمعة : 167
الاعجاب : 0
شكرا وجزاك الله خير للبرنامج
لكن اذا سمحت استاذ محمد حسن اشرح الكود
لكي تكون الافادة اكثر




look/images/icons/i1.gif القوائم منزلقة على شكل شرائح
  19-02-2019 03:03 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 02-10-2017
رقم العضوية : 828
المشاركات : 183
الجنس :
تاريخ الميلاد : 7-7-1986
الدعوات : 1
قوة السمعة : 167
الاعجاب : 0
عزرا استاذ محمد حسن الفائل من نوع الرار تالف الذي حملت فيه البرنامج
اذا سمحت اعد رفع البرنامج مرة اخري الي هذا المنتدي




look/images/icons/i1.gif القوائم منزلقة على شكل شرائح
  19-02-2019 03:33 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 219
المشاركات : 169
الدولة : سورية
الجنس :
تاريخ الميلاد : 10-2-1968
قوة السمعة : 280
الاعجاب : 0
جزاكم الله خيرا




look/images/icons/i1.gif القوائم منزلقة على شكل شرائح
  19-02-2019 03:36 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20034
الاعجاب : 12
موقعي : زيارة موقعي

الله الله على الشغل العالى يابويوسف
جزاكم الله خيرا
142




توقيع :الصقر

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


look/images/icons/i1.gif القوائم منزلقة على شكل شرائح
  19-02-2019 04:02 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
المشاركة الأصلية كتبت بواسطة: الصقر

الله الله على الشغل العالى يابويوسف
جزاكم الله خيرا
142

جزاكم الله خيراً على هذا الإطراء أخي الحبيب حسام
كما أشكر إخوتي الكرام على مروركم العطر الطيب abdulwahed catran و yousifaziz
يرجى التحقق من صلاحية الملف ولكم جزيل الشكر
والسلام عليكم



توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


look/images/icons/i1.gif القوائم منزلقة على شكل شرائح
  19-02-2019 04:15 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 612
الجنس :
تاريخ الميلاد : 13-3-1990
قوة السمعة : 1166
الاعجاب : 4
رائع استاذنا الفاضل وموضوع مميز جزاكم الله خير




look/images/icons/i1.gif القوائم منزلقة على شكل شرائح
  19-02-2019 04:43 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
بناء على طلب الأخ yousifaziz في حدث الورقة
CODE

Private Sub ContactHover_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'تأرجح شريحة Contact مع حركة الماوس
SlideOut_Contacts 'شريحة Contacts تنزلق خارجاً
SlideIn_Schedule 'شريحة Schedule تنزلق داخلاً
End Sub
Private Sub EmailsHover_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideIn_Schedule 'شريحة Schedule  تنزلق داخلاً
SlideIn_Reports 'شريحة Schedule  تنزلق داخلاً
SlideOut_Emails 'شريحة Contacts تنزلق خارجاً
End Sub
Private Sub GraphsHover_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideIn_Reports 'شريحة Reports  تنزلق داخلاً
SlideOut_Graphs 'شريحة Graphs تنزلق خارجاً
End Sub
Private Sub MinAll_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideIn_Contacts 'شريحة Contacts  تنزلق داخلاً
SlideIn_Schedule 'شريحة Schedule  تنزلق داخلاً
SlideIn_Emails 'شريحة Emails  تنزلق داخلاً
SlideIn_Reports 'شريحة Reports  تنزلق داخلاً
SlideIn_Graphs 'شريحة Graphs  تنزلق داخلاً
End Sub

Private Sub ReportsHover_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideIn_Graphs 'شريحة Graphs  تنزلق داخلاً
SlideIn_Emails 'شريحة Emails  تنزلق داخلاً
SlideOut_Reports 'شريحة Reports تنزلق خارجاً
End Sub
Private Sub ScheduleHover_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
SlideIn_Contacts 'شريحة Contacts  تنزلق داخلاً
SlideIn_Emails 'شريحة Emails  تنزلق داخلاً
SlideOut_Schedule 'شريحة Schedule تنزلق خارجاً
End Sub




وفي الموديول:
CODE

Dim Wdth As Long 'تم وضع هذا التعريف ليكون شاملاً للأكواد دونه
Sub SlideOut_Contacts() 'انزلاق شريحة Contacts خارجاً

With ActiveSheet.Shapes("ContactsBtn") 'في الشيت المفعل.أشكال. زرContacts
For Wdth = 32 To 105 'يزداد العرض من 32 إلى 105
.Height = Wdth 'الارتفاع = العرض
ActiveSheet.Shapes("ContactsIcon").Left = Wdth - 32 'الشيت المفعل.أشكال.أيقونة Contacts محاذاة إلى اليسار =عرض -32
Next Wdth 'العرض التالي:
.TextFrame2.TextRange.Characters.Text = "Contacts" 'يكتب على الشكل كلمة Contacts
End With 'انتهاء With
End Sub
Sub SlideIn_Contacts() 'انزلاق شريحة Contacts داخلاً
With ActiveSheet.Shapes("ContactsBtn") 'في الشيت المفعل.أشكال. زرContacts
For Wdth = 105 To 32 Step -1 'يتناقص العرض من 105 إلى 32
.Height = Wdth 'الارتفاع = العرض
.Left = Wdth - 32 'محاذاة إلى اليسار = العرض -32
ActiveSheet.Shapes("ContactsIcon").Left = Wdth - 32 'الشيت المفعل.أشكال.أيقونة Contacts محاذاة إلى اليسار =عرض -32
Next Wdth 'العرض التالي
ActiveSheet.Shapes("ContactsBtn").TextFrame2.TextRange.Characters.Text = "" 'يكتب على الشكل كلمة فاغة
End With
End Sub


أما بقية الأكواد فهي مشابهة مع اختلاف التسميات
والسلام عليكم



توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


look/images/icons/i1.gif القوائم منزلقة على شكل شرائح
  19-02-2019 04:44 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
المشاركة الأصلية كتبت بواسطة: مالك ماريه رائع استاذنا الفاضل وموضوع مميز جزاكم الله خير
جزاكم الله خيراً أخي الكريم مالك ماريه



توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


look/images/icons/i1.gif القوائم منزلقة على شكل شرائح
  20-02-2019 06:25 صباحاً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
بسم الله ما شاء الله .. خايف إني أحسدك ، لكني بحق أغبطك بشدة
بارك الله فيك وجزاك الله خيراً




look/images/icons/i1.gif القوائم منزلقة على شكل شرائح
  20-02-2019 07:03 صباحاً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
المشاركة الأصلية كتبت بواسطة: YasserKhalil بسم الله ما شاء الله .. خايف إني أحسدك ، لكني بحق أغبطك بشدة
بارك الله فيك وجزاك الله خيراً
أحبك في الله أخي الحبيب و أستاذي الفاضل أبو البراء
لكم الفضل السابق ..عطرتم بمروركم الطيب موضوعي هذا.
142



توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


look/images/icons/i1.gif القوائم منزلقة على شكل شرائح
  20-02-2019 08:48 صباحاً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
بارك الله فيك اخي الكريم ابو يوسف وجزاكم الله خيرا على موضوعاتك المميزة
تحياتي لك
123



توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif القوائم منزلقة على شكل شرائح
  20-02-2019 09:02 صباحاً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
المشاركة الأصلية كتبت بواسطة: Yasser Elaraby بارك الله فيك اخي الكريم ابو يوسف وجزاكم الله خيرا على موضوعاتك المميزة
تحياتي لك
123
أخي الحبيب أبو أسيل عطرتم موضوعي هذا بكلماتكم المشجعة .., لكم مني كل الشكر والتقدير ...
والسلام عليكم
111



توقيع :محمد حسن المحمد

الرفقُ ما كان في شيءٍ إلاَّ زانهُ ، وما نُزع من شيءٍ إلاَّ شانُه ،اللينُ في الخطاب ، البسمةُ الرائقةُ على المحيا، 
الكلمةُ الطيبةُ عند اللقاء ، هذه حُلَلٌ منسوجةٌ يرتديها السعداء


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





الكلمات الدلالية
القوائم ، منزلقة ، شرائح ،









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

الساعة الآن 12:01 PM