إظهار اليوزر فورم

[abo nody]

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

محتاج مساعدة من الأخوة أصحاب الخبرة

محتاج كود لإظهار اليوزر فورم عند الضغط دبل كليك علي خلية معينة

شكرا

[Ali Mohamed Ali]

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

لكن من فضلك ارسال ملف واشرح عليه ما تريد وذلك يكون أفضل للمساعدة من قبل أساتذتنا

جزاك الله كل خير

[Ali Mohamed Ali]

وممكن تجرب هذا الملف

فبمجرد الضغط دبل كليك على اى خلية من العمود الأول A

ويكون بداية من الصف السادس سيظهر لك الفورم مباشرة

كل عام وانتم بخير ورمضان مبارك

 

Search.xlsm

[abo nody]

أستاذ علي 

رمضان كريم و ربنا يعيده عليك بالصحة والعافية 

شكرا لحضرتك علي الرد 

هو فعلا المطلوب 

لو فيها إساءة ادب مني 

ممكن شرح للكود عشان اقدر انفذه في أي شيت أكون محتاج له

وشكرا جزيلا 

[Ali Mohamed Ali]

كود استدعاء وظهور الفورم بدبل كليك فى اى خلية

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
منع خاصية اهتزاز الشاشة'
If Target.Column = 1 And Target.Row > 5 Then
"يقصد بهذا السطر هو شرط ومكان الدبل  كليك لإظهار الفورم -وفى هذه الحالة يكون الضغط فى أى خلية من العمود الأول A -ولكن بشرط بعد' الصف  أو السطر الخامس ,,,,,,,, ويمكنك التغيير فى هذا السطر من الكود لأى ملف أخر تريد عمله'
"
UserForm1.Show
بعد ذلك يظهر لك الفورم'
End If
End Sub   'نهاية الكود

تفضل اخى الكريم

أما بالنسبة لأكواد الفورم حاول متابعتها ودراستها بنفسك

 

 

[abo nody]

أستاذ علي 

رمضان كريم و ربنا يعيده عليك بالصحة والعافية 

شكرا لحضرتك علي الرد 

هو فعلا المطلوب 

لو فيها إساءة ادب مني 

ممكن شرح للكود عشان اقدر انفذه في أي شيت أكون محتاج له

وشكرا جزيلا 

شكرا لحضرتك يا استاذنا