طلب بمجرد الوقوف على الزر

[أبوحازم]

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

الوقوف على الزر.rar

[أبوحازم]

للرفع

[أبوحازم]

للرفع يا أخوان

[مختار حسين محمود]

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

 

أخى أبو حازم هذه محاولة منى  آمل أن تحقق رغبتك     تحياتى

اظهار واخفاء بمجرد الوقوف على الزر.rar

[أبوحازم]

شكرا بدائية طيبة غير انه يوجد اهتزاز كثير  يجعلني لا ارى تماما شكرا

[مختار حسين محمود]

جرب ده أفضل

 

تمريرة سريعة على الصورة وابعد  حتى لا يتكرر استدعاء الكود ويحصل الاهتزاز

بعد 3 ثوانى من ظهور الأعمده هتلاقيها اختفت لوحدها حسب الكود ده الموجود فى حدث الورقة

Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Columns("r:x").Select
    Selection.EntireColumn.Hidden = False
Range("a1").Select
Application.OnTime Now + TimeValue("00:00:03"), "SHOW_COL"
End Sub

يمكن تغيير المدة الزمنية التى تختفى  بعدها الأعمدة فى الكود السابق

الكود السابق يستدعى الكود العادى  ده

Sub SHOW_COL()
ActiveSheet.Columns("s:w").Hidden = True
 Range("a1").Select
End Sub

اذا كان الحل يروقك اختره كأفضل اجابة تحياتى

اظهار واخفاء بمجرد الوقوف على الزر - 2.rar

تم تعديل أبريل 16, 2015 بواسطه مختار حسين محمود

[خزاني]

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

 

 

السلام عليكم

ربط ربما يفيدك

 

http://www.officena.net/ib/index.php?showtopic=59079&hl=