الجمع في خلية واحدة من خلال الفورم

[kareembaghdad69]

السلام عليكم

الرجاء المساعدة في جمع اعداد مرات عديدة في نفس الخلية 

مثلا لدينا يوزرفورم فيه كومبوبوكس وتيكست يوكس وزر اضافة ...مثلا نختار من الكومبوبوكس فستان ونضيف رصيد في التيكستبوكس مثلا 5 فساتين سوف يسجل الرقم  5 في قاعدة البيانات ولتكن  الخلية a2 من الشيت رقم1  واذا تم تعزيز الرصيد مرة اخرى  لنفس المادة وهي فستان مثلا  7 فساتين وعملنا اضافة 

المطلوب ان يجمع الرقم 7 مع الرقم 5 ويكون 12 ليظهر في نفس الخلية وهي a2

الجمع في خلية واحدة.xlsm

تم تعديل مارس 6, 2024 بواسطه kareembaghdad69

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

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

ضع الكودين الآتيين فى حدث الفورم

Private Sub CommandButton1_Click()
Dim ws As Worksheet, Knd As String
Dim x As Integer, Trgt As Range
Set ws = Sheets("ورقة1")
If Me.ComboBox1.Value = "" Or Me.TextBox1.Value = "" Then
MsgBox "يرجى استكمال البيانات"
Exit Sub
End If
Knd = Me.ComboBox1.Value
x = WorksheetFunction.Match(Knd, ws.Range("A1:F1"), 0)
Set Trgt = ws.Cells(2, x)
Trgt.Value = Trgt.Value + Me.TextBox1.Value
Me.ComboBox1.Value = ""
Me.TextBox1.Value = ""
End Sub
Private Sub UserForm_Initialize()
For Each c In Range("A1:F1")
Me.ComboBox1.AddItem c
Next
End Sub

 

[kareembaghdad69]

ماشاء الله استاذنا الله يبارك في يدك اللي خطت هذه النفحات الطيبة 

ممنون منكم الله يحفطكم