كيفية جعل listbox تظهر وتختفي عند الوقوف على خلية معينة

[محمد ابراهيم78]

السلام عليكم ...

ارجوا المساعدة في اظهار listbox عند الوقوف على اي خلية في العمود B وتختفي عند التحرك منها وعند الاختيار من listbox توضع القيمة في الخلية B

LISTBOX.xlsm

[عبدالله بشير عبدالله]

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

قمت ياستبدال اللستبوكس بالورقة باخر في يوزرفورم

فكرة العمل

انقر على الخلية المراد وضع الوظيفة بها في العمود B يظهر الفورم قم بالاختيار  ويختفى الفورم عند النقر في اي خلية اخرى

لك وافر الاحترام والتقدير

LISTBOX1.xlsm

 

[محمد ابراهيم78]

شكراً جزيلاً على الرد ... ممكن شرح الكود 

[عبدالله بشير عبدالله]

اخي الفاضل 

يوجد اكواد في ورقة العمل عددها 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Private Sub ShowListBoxForm(TargetCell As Range)
Private Sub HideListBoxForm()

ويوجد في الفورم 4 اكواد

Private Sub UserForm_Initialize()

Private Sub ListBox1_Click()
Private Sub UserForm_Deactivate()
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

ارجو تحديد الكود المطلوب شرحة او النقاط الغامضة بالاكواد

تم تعديل الإثنين at 22:11 بواسطه Foksh
وضع الأكواد في محرر الأكواد

[أبو ردينة]

بارك الله فيك مشرفنا الغالي أ / عبد الله 👍