kareembaghdad69 قام بنشر مارس 6 مشاركة قام بنشر مارس 6 (معدل) السلام عليكم الرجاء المساعدة في جمع اعداد مرات عديدة في نفس الخلية مثلا لدينا يوزرفورم فيه كومبوبوكس وتيكست يوكس وزر اضافة ...مثلا نختار من الكومبوبوكس فستان ونضيف رصيد في التيكستبوكس مثلا 5 فساتين سوف يسجل الرقم 5 في قاعدة البيانات ولتكن الخلية a2 من الشيت رقم1 واذا تم تعزيز الرصيد مرة اخرى لنفس المادة وهي فستان مثلا 7 فساتين وعملنا اضافة المطلوب ان يجمع الرقم 7 مع الرقم 5 ويكون 12 ليظهر في نفس الخلية وهي a2 الجمع في خلية واحدة.xlsm تم تعديل مارس 6 بواسطه kareembaghdad69 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر مارس 6 أفضل إجابة مشاركة قام بنشر مارس 6 السلام عليكم و رحمة الله ضع الكودين الآتيين فى حدث الفورم 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 3 رابط هذا التعليق شارك More sharing options...
kareembaghdad69 قام بنشر مارس 7 الكاتب مشاركة قام بنشر مارس 7 ماشاء الله استاذنا الله يبارك في يدك اللي خطت هذه النفحات الطيبة ممنون منكم الله يحفطكم رابط هذا التعليق شارك 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.