السلام عليكم ورحمه الله وبركاته وبها نبدأ
ضع هذا الكود في ملفك
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