فورم اعجبنى

[فوزى فوزى]

منتدى اوفيسنا اثناء بحثى في منتداكم عجبنى فكرت الشيت بس ممكن نعدل في الكود عند الضغط على صورة اى منتج من المنتجات الثلاث الموجوده فى الفورم مثلا صورة مينى كيك يعرض  بياناته في الفورم ولكن اذا ضغطت مرة ثانية يعرض سطر ثانى كما هو واضح في صوره الفورم مطلوب تعديل كلما اضغط على الصورة يزود الكمية واحد

testcasheir.xlsm

[أبوعيد]

بعدما تضغط علي الصورة يتم ادراج سطر جديد

انقر نقرا مزدوجا علي السطر سيظهر لك فورم

تستطيع من خلاله زيادة او تنقيص الكمية او الغاء الاختيار بالكلية

[فوزى فوزى]

حضرتك نسيت تضع المرفق الجديد

[أبوعيد]

لم افهم ارجو التوضيح

[فوزى فوزى]

انا اسف لتاخرى فى الرد المطلوب عند الضغط على الصورة يزاداد فى الكميه 1    بدل ما ضغط على السطر ويظهر فورم واضع به الكميه

[حسونة حسين]

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

ضع هذا الكود في ملفك

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 2) = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 2) + 1
    UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 4) = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 2) * UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 3)
    UserForm1.Label7.Caption = UserForm1.Label7.Caption + 1
    Dim varTotal As Currency
    Dim varTotal2 As Currency
    Dim varRow As Integer
    For varRow = 0 To (UserForm1.ListBox1.ListCount - 1)
        varTotal = varTotal + UserForm1.ListBox1.Column(2, varRow)
        varTotal2 = varTotal2 + UserForm1.ListBox1.Column(4, varRow)
    Next
    UserForm1.Label7.Caption = varTotal
    UserForm1.Label9.Caption = varTotal2
End Sub

بدلا من

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    UserForm2.Show
End Sub

 

[فوزى فوزى]

حل جميل ورائع ويفى بالغرض جزاكم الله خير وربنا يجعله فى ميزان حسناتك

[حسونة حسين]

آمين يارب العالمين 

وجزاكم مثله اخى الكريم 

والحمد لله الذي بنعمته تتم الصالحات 

[فوزى فوزى]

شكرا على اهتمامكم بالموضوع