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

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


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





القوائم منزلقة على شكل شرائح

القوائم منزلقة على شكل شرائح السلام عليكم ورحمة الله وبركاته الحمد لله رب العالمين والصلاة والسلام على سيد المرسلين،وبعد ..



19-02-2019 01:36 مساء
محمد حسن المحمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 720
الجنس : ذكر
تاريخ الميلاد : 14-5-1965
الدعوات : 2
يتابعهم : 68
يتابعونه : 32
قوة السمعة : 3985
عدد الإجابات: 2
 offline 

القوائم منزلقة على شكل شرائح
السلام عليكم ورحمة الله وبركاته
الحمد لله رب العالمين والصلاة والسلام على سيد المرسلين،وبعد:
إخوتي الأكارم - موضوع لفت نظري كيفية تنفيذه على الإكسيل أحببت أن أطلعكم عليه

نفتح مصنف جديد ثم نقوم بتسيق الورقة لتظهر أمام أحبتي بمظهر لائق - والعين تأكل قبل الفم أحيانا​ً ...

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 لترتكز عليه الأشكال في يسار الورقة
ثم ندرج ليبلات بعدد هذه القوائم  ..وبعد ذلك نكتب الأكواد في حدث الورقة ..

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




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

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 مرات التحميل :(82)
الحجم :(1409.295) KB

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

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


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

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

عزرا استاذ محمد حسن الفائل من نوع الرار تالف الذي حملت فيه البرنامج
اذا سمحت اعد رفع البرنامج مرة اخري الي هذا المنتدي

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

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

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


توقيع :الصقر

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


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

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


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

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


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




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


 










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

الساعة الآن 06:49 صباحا