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

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


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





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

السلام عليكم ورحمة الله وبركاته انبثاق الأشكال المساعدة واختفاؤها بتمرير الماوس أقدم لكم - إخوتي الكرام - مما تابعته ، م ..



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

السلام عليكم ورحمة الله وبركاته
انبثاق الأشكال المساعدة واختفاؤها بتمرير الماوس
أقدم لكم - إخوتي الكرام - مما تابعته ، موضوعاً يتعلق بديناميكية ظهور الأشكال المساعدة التي قد يضعها البعض منا كدليل مساعد للعمل 
يقوم بالمختصر المفيد بإظهار الأشكال المساعدة بمجرد المرور على زر عرض المساعدة ثم تختفي هذه الأشكال بتحول الماوس عنه بأي اتجاه داخل الورقة
باستخدام حيل بسيطة بواسطة الـ VBA  
نرسم هذه الأشكال ..ننسقها ...نضعها في الأماكن المراد التنبيه لمضمونها ، نسميها أيضاً حسب دور كل منها، نضعها ضمن مجموعة  HelpGroup 
نكتب الموديول التالي بعد تسميته 

Sub ShowHideHelp()
With Sheet1
If .Range("A1").Value = "إخفاء المساعدة" Then
.Shapes("HelpGroup").Visible = msoCTrue
.Range("A1").Value = "عرض المساعدة"
Else:
.Shapes("HelpGroup").Visible = msoFalse
.Range("A1").Value = "عرض المساعدة"
End If
End With
End Sub

Sub ShowHelp()
Sheet1.Shapes("HelpGroup").Visible = msoCTrue
End Sub
Sub HideHelp()
Sheet1.Shapes("HelpGroup").Visible = msoFalse
End Sub


الأول: منها إظهار وإخفاء أزرار المساعدة المرتبط بالخلية A1 
الثاني: لعرض المساعدة بتفعيل  HelpGroup
الثالث:لإخفاء أزرار المساعدة بإلغاء تفعيل HelpGroup
نقوم بوضع Label على زر العرض لتفعيل الكود الثاني 
و 3 Labels على محيط زر العرض لإخفاء العرض وذلك بمجرد مرور الماوس

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ShowHelp
End Sub
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
HideHelp
End Sub

Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
HideHelp
End Sub
Private Sub Label4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
HideHelp
End Sub

أرجو أن أكون قد أوصلت الفكرة بما فيه الكفاية
للأمانة : تابعته وطبقته ...
0YmEGH3M9WRgXGp
 
 
  كيفية انبثاق واختفاء المساعدة بسرعة.rar   تحميل rar مرات التحميل :(95)
الحجم :(58.987) KB

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

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


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

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

وجزاكم بمثل ما دعوتم أخي الغالي مالك111
توقيع :محمد حسن المحمد

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


03-03-2019 07:31 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif انبثاق الأشكال المساعدة واختفاؤها بتمرير الماوس
بارك الله فيك أخي الغالي أبو يوسف وجزاك الله كل خير
أعمالك وموضوعاتك تنم عن إبداع متناهي

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

WIBw86qCNyaGxLs

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

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


03-03-2019 09:03 صباحا
مشاهدة مشاركة منفردة [5]
mooon984
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-02-2019
رقم العضوية : 11524
المشاركات : 40
الجنس : ذكر
تاريخ الميلاد : 16-3-1980
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 32
 offline 
look/images/icons/i1.gif انبثاق الأشكال المساعدة واختفاؤها بتمرير الماوس
مشكور و عمل رائع جدااااا

03-03-2019 10:27 صباحا
مشاهدة مشاركة منفردة [6]
bufce
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-02-2019
رقم العضوية : 11600
المشاركات : 52
الجنس : ذكر
تاريخ الميلاد : 1-10-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 80
 offline 
look/images/icons/i1.gif انبثاق الأشكال المساعدة واختفاؤها بتمرير الماوس
كود أحتاجه في عملي
اتمنى ان استطيع تطبيقه
جزاك الله خيرا




الكلمات الدلالية
انبثاق ، الأشكال ، المساعدة ، واختفاؤها ، بتمرير ، الماوس ،


 










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

الساعة الآن 03:31 صباحا