فوزى فوزى قام بنشر يناير 6, 2022 مشاركة قام بنشر يناير 6, 2022 منتدى اوفيسنا اثناء بحثى في منتداكم عجبنى فكرت الشيت بس ممكن نعدل في الكود عند الضغط على صورة اى منتج من المنتجات الثلاث الموجوده فى الفورم مثلا صورة مينى كيك يعرض بياناته في الفورم ولكن اذا ضغطت مرة ثانية يعرض سطر ثانى كما هو واضح في صوره الفورم مطلوب تعديل كلما اضغط على الصورة يزود الكمية واحد testcasheir.xlsm رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر يناير 7, 2022 مشاركة قام بنشر يناير 7, 2022 بعدما تضغط علي الصورة يتم ادراج سطر جديد انقر نقرا مزدوجا علي السطر سيظهر لك فورم تستطيع من خلاله زيادة او تنقيص الكمية او الغاء الاختيار بالكلية 1 رابط هذا التعليق شارك More sharing options...
فوزى فوزى قام بنشر يناير 7, 2022 الكاتب مشاركة قام بنشر يناير 7, 2022 حضرتك نسيت تضع المرفق الجديد رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر يناير 7, 2022 مشاركة قام بنشر يناير 7, 2022 لم افهم ارجو التوضيح 1 رابط هذا التعليق شارك More sharing options...
فوزى فوزى قام بنشر يناير 8, 2022 الكاتب مشاركة قام بنشر يناير 8, 2022 انا اسف لتاخرى فى الرد المطلوب عند الضغط على الصورة يزاداد فى الكميه 1 بدل ما ضغط على السطر ويظهر فورم واضع به الكميه رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسونة حسين قام بنشر يناير 8, 2022 أفضل إجابة مشاركة قام بنشر يناير 8, 2022 السلام عليكم ورحمه الله وبركاته وبها نبدأ ضع هذا الكود في ملفك 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 1 رابط هذا التعليق شارك More sharing options...
فوزى فوزى قام بنشر يناير 8, 2022 الكاتب مشاركة قام بنشر يناير 8, 2022 حل جميل ورائع ويفى بالغرض جزاكم الله خير وربنا يجعله فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر يناير 8, 2022 مشاركة قام بنشر يناير 8, 2022 آمين يارب العالمين وجزاكم مثله اخى الكريم والحمد لله الذي بنعمته تتم الصالحات 1 رابط هذا التعليق شارك More sharing options...
فوزى فوزى قام بنشر يناير 8, 2022 الكاتب مشاركة قام بنشر يناير 8, 2022 شكرا على اهتمامكم بالموضوع رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.