اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

رابط هذا التعليق
شارك

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

 

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

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

رابط هذا التعليق
شارك

  • 2 weeks later...

جرب ده أفضل

 

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

بعد 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

تم تعديل بواسطه مختار حسين محمود
رابط هذا التعليق
شارك

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

 

 

السلام عليكم

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

 

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information