نسورالجو قام بنشر أغسطس 19, 2021 مشاركة قام بنشر أغسطس 19, 2021 السلام عليكم المطلوب التعديل لكود تعديل البيانات بشرطين التاريخ واسم الصنف "ComboBox1" به اسم الصنف "ComboBox2" به التاريخ ، لانه توجد اصناف مكررة في نفس التاريخ Private Sub CommandButton5_Click() Dim ws As Worksheet Set ws = Sheets("اصناف") For Each F In ws.Range("c5:c5000") If F = ComboBox1.Text Then ws.Select F.Select Exit For End If Next F ActiveCell.Value = ComboBox1.Value ActiveCell.Offset(0, 4).Value = TextBox4 ActiveCell.Offset(0, 5).Value = TextBox5 ActiveCell.Offset(0, 6).Value = TextBox6 ActiveCell.Offset(0, 9).Value = TextBox7 ActiveCell.Offset(0, 10).Value = TextBox8 MsgBox "تم تعديل البيانات بنجاح" End Sub التاريخ يوجد في عمود A5 والصنف في عمود C5 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أغسطس 20, 2021 مشاركة قام بنشر أغسطس 20, 2021 كان ينبغي تحديد موضع عمود التاريخ على فرض ان اسم الصنف في العمود C والتاريخ في العمود D Set ws = Sheets("اصناف") For Each F In ws.Range("c5:c5000") If F = ComboBox1.Text and F.Offset(0, 1) = ComboBox2.Text Then ws.Select F.Select Exit For End If Next F ActiveCell.Value = ComboBox1.Value ActiveCell.Offset(0, 4).Value = TextBox4 ActiveCell.Offset(0, 5).Value = TextBox5 ActiveCell.Offset(0, 6).Value = TextBox6 ActiveCell.Offset(0, 9).Value = TextBox7 ActiveCell.Offset(0, 10).Value = TextBox8 MsgBox "تم تعديل البيانات بنجاح" End Sub بالتوفيق رابط هذا التعليق شارك More sharing options...
نسورالجو قام بنشر أغسطس 20, 2021 الكاتب مشاركة قام بنشر أغسطس 20, 2021 التاريخ يوجد في عمود A5 والصنف في عمود C5 رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر أغسطس 20, 2021 أفضل إجابة مشاركة قام بنشر أغسطس 20, 2021 الجزء الخاص بالتاريخ على افتراض انه في العمود D الذي يلي C بمقدار عمود 1 هو F.Offset(0, 1) = ComboBox2.Text ولتغييره للعمود A الذي يسبق C بمقدار 2 F.Offset(0, -2) = ComboBox2.Text لذلك جرب الكود كاملا Set ws = Sheets("اصناف") For Each F In ws.Range("c5:c5000") If F = ComboBox1.Text and F.Offset(0, -2) = ComboBox2.Text Then ws.Select F.Select Exit For End If Next F ActiveCell.Value = ComboBox1.Value ActiveCell.Offset(0, 4).Value = TextBox4 ActiveCell.Offset(0, 5).Value = TextBox5 ActiveCell.Offset(0, 6).Value = TextBox6 ActiveCell.Offset(0, 9).Value = TextBox7 ActiveCell.Offset(0, 10).Value = TextBox8 MsgBox "تم تعديل البيانات بنجاح" End Sub وكان ينبغي أن تتوصل لها وحدك بالتوفيق 1 1 رابط هذا التعليق شارك More sharing options...
نسورالجو قام بنشر أغسطس 20, 2021 الكاتب مشاركة قام بنشر أغسطس 20, 2021 جزاك الله خيرا استاذ محمد وبارك الله في علمك وصحتك ومالك وأهلك 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر سبتمبر 13, 2021 مشاركة قام بنشر سبتمبر 13, 2021 جميعا بإذن الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان