logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
michel Sadek ali mohamed ali-- لا تميز خلال هذه الفترة Yasser Elaraby لا تميز خلال هذه الفترة اكسيل اسئله واجابات



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





02-03-2019 05:15 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
السلام عليكم ورحمة الله وبركاته
انبثاق الأشكال المساعدة واختفاؤها بتمرير الماوس أقدم لكم - إخوتي الكرام - مما تابعته ، موضوعاً يتعلق بديناميكية ظهور الأشكال المساعدة التي قد يضعها البعض منا كدليل مساعد للعمل
يقوم بالمختصر المفيد بإظهار الأشكال المساعدة بمجرد المرور على زر عرض المساعدة ثم تختفي هذه الأشكال بتحول الماوس عنه بأي اتجاه داخل الورقة
باستخدام حيل بسيطة بواسطة الـ VBA
نرسم هذه الأشكال ..ننسقها ...نضعها في الأماكن المراد التنبيه لمضمونها ، نسميها أيضاً حسب دور كل منها، نضعها ضمن مجموعة HelpGroup
نكتب الموديول التالي بعد تسميته
CODE

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 على محيط زر العرض لإخفاء العرض وذلك بمجرد مرور الماوس
CODE

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




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

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


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




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



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

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


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




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



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

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


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




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




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

اقتبـاس ،، مشكور و عمل رائع جدااااا

جزاكم الله خيراً إخوتي الكرام ..أرجو أن يكون نافعاً
مروركم شرفني
111



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

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


look/images/icons/i1.gif انبثاق الأشكال المساعدة واختفاؤها بتمرير الماوس
  05-03-2019 06:54 صباحاً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4072
المشاركات : 23
الجنس :
تاريخ الميلاد : 16-9-1986
قوة السمعة : 80
الاعجاب : 0
اكثر من رائع




look/images/icons/i1.gif انبثاق الأشكال المساعدة واختفاؤها بتمرير الماوس
  05-03-2019 09:25 صباحاً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 16-09-2017
رقم العضوية : 487
المشاركات : 39
الجنس :
تاريخ الميلاد : 5-5-1994
قوة السمعة : 95
الاعجاب : 0
اكثر من رائع




look/images/icons/i1.gif انبثاق الأشكال المساعدة واختفاؤها بتمرير الماوس
  05-03-2019 09:32 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 442
الجنس :
تاريخ الميلاد : 9-7-1981
الدعوات : 4
قوة السمعة : 1787
الاعجاب : 0
بارك الله فيك أخي الغالي أبو يوسف وجزاك الله كل خير
أعمالك وموضوعاتك تنم عن إبداع متناهي




look/images/icons/i1.gif انبثاق الأشكال المساعدة واختفاؤها بتمرير الماوس
  05-03-2019 11:28 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 819
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8466
الاعجاب : 11
جزاكم الله خيرا أخى الكريم




look/images/icons/i1.gif انبثاق الأشكال المساعدة واختفاؤها بتمرير الماوس
  06-03-2019 08:59 صباحاً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 80
المشاركات : 723
الجنس :
تاريخ الميلاد : 14-5-1965
الدعوات : 2
قوة السمعة : 3892
الاعجاب : 16
المشاركة الأصلية كتبت بواسطة: رمضان بكري بارك الله فيك أخي الغالي أبو يوسف وجزاك الله كل خير
أعمالك وموضوعاتك تنم عن إبداع متناهي
المشاركة الأصلية كتبت بواسطة: محمد الدسوقى جزاكم الله خيرا أخى الكريم
وبارك الله تعالى بأخويّ العزيزين المحترمين على مروركما العطر الطيب

WIBw86qCNyaGxLs


تم تحرير المشاركة بواسطة :محمد حسن المحمد بتاريخ:06-03-2019 09:00 صباحاً




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

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


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





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









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

الساعة الآن 02:11 PM