منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اريد كود جمع خليتين في خلية ثالثة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اناعندي داا جريد بها ثلاث خلايا اريد جمع الخلية الاولي مع الخلية الثانية في الخلية الثالثة بناء علي شرط

يعني الشرط جمع القيم التي تكون اكبر من 14من الخلية الاولي اما الاقل يتم تجاهلها االخلية الاولي يعني قيم العمود الاول والثانية قيم العمود الثااني والثالثة قيم العمود الثالث

الخلية الاولي :الخلية الثانية : الخلية الثالثة

2 : 5 لاتجمع
42 : 4 46
16 : 3 19
كود :
dim x, y,z as integer
for i as integer = 0 to datagridview1.rowcount-1
if datagridview1.rows(i).cells(0).value > 14 then
x = datagridview1.rows(i).cells(0).value
y = datagridview1.rows(i).cells(1).value
z = x+y
else
z = datagridview1.rows(i).cells(1).value
end if
datagridview1.rows(i).cells(2).value = z
x = 0
y = 0
z = 0
next
اخي مشكورجدا الكود شغال وتمام

واريد تحديد اول عشرة صفوف فقط بالعملية كلها وليس كل صفوف الداتا جريد
او اختيار عدد محدد من الصفوف

واريد ابقاء المتغيرات كما هي علية وليس صفرا يعني الصفوف التي لم تجمع تبقي باعدادها وليس صفرا
بالنسبة للسؤال الأول عدل جملة الدوران بالعدد الذي تريده

مثلا لو أردت أول عشرة صفوف

for i as integer = 0 to 9

أما بالنسبة للسؤال الثاني ففي نهاية الكود

x = 0
y = 0
z = 0

احذف الثلاث سطور السابقة حتى تحتفظ بقيمتها
اخي وضح اكتر بخصوص توضيح عدد الصفوف
For i As Integer = 0 To DataGridView1.RowCount - 1
ويوضع فين العداد دة
for i as integer = 0 to 9
العدد الخاص باول عشرة صفوف انتا كدة تقصد حلقة اخري داخل الحلقة ياريت تكمل الكود كلة مع بعض لان الامور مش وضحة معايا
الجزء الثاني انا عدلتة واشتغل معايا كويس وهو ثبات قيم المتغيرات الاخري
انا حاولت بالاكواد دية و
Dim x, y, z As Integer
For i As Integer = 0 To DataGridView1.RowCount - 1
For b As Integer = 0 To 10
If DataGridView1.Rows(i).Cells(2).Value < 14 Then
x = DataGridView1.Rows(i).Cells(2).Value
y = DataGridView1.Rows(i).Cells(3).Value

z = x + y
DataGridView1.Rows(i).Cells(4).Value = z
next
next
لو عاوز فقط أول 10 صفوف وكذلك عدم تصفير القيم

عدل الكود للتالي
كود :
dim x, y,z as integer
for i as integer = 0 to 9
if datagridview1.rows(i).cells(0).value > 14 then
x += datagridview1.rows(i).cells(0).value
y += datagridview1.rows(i).cells(1).value
z += x+y
else
z += datagridview1.rows(i).cells(1).value
end if
datagridview1.rows(i).cells(2).value = z
next
مشكور جدا اخي الاكواد شغالة 1000*100