+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد كود جمع خليتين في خلية ثالثة (/showthread.php?tid=8447)
اريد كود جمع خليتين في خلية ثالثة - mazen - 12-04-13
اناعندي داا جريد بها ثلاث خلايا اريد جمع الخلية الاولي مع الخلية الثانية في الخلية الثالثة بناء علي شرط
يعني الشرط جمع القيم التي تكون اكبر من 14من الخلية الاولي اما الاقل يتم تجاهلها االخلية الاولي يعني قيم العمود الاول والثانية قيم العمود الثااني والثالثة قيم العمود الثالث
الخلية الاولي :الخلية الثانية : الخلية الثالثة
2 : 5 لاتجمع
42 : 4 46
16 : 3 19
اريد كود جمع خليتين في خلية ثالثة - أحمد النجار - 13-04-13
كود :
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اريد كود جمع خليتين في خلية ثالثة - mazen - 13-04-13
اخي مشكورجدا الكود شغال وتمام
واريد تحديد اول عشرة صفوف فقط بالعملية كلها وليس كل صفوف الداتا جريد
او اختيار عدد محدد من الصفوف
واريد ابقاء المتغيرات كما هي علية وليس صفرا يعني الصفوف التي لم تجمع تبقي باعدادها وليس صفرا
اريد كود جمع خليتين في خلية ثالثة - أحمد النجار - 13-04-13
بالنسبة للسؤال الأول عدل جملة الدوران بالعدد الذي تريده
مثلا لو أردت أول عشرة صفوف
for i as integer = 0 to 9
أما بالنسبة للسؤال الثاني ففي نهاية الكود
x = 0
y = 0
z = 0
احذف الثلاث سطور السابقة حتى تحتفظ بقيمتها
اريد كود جمع خليتين في خلية ثالثة - mazen - 13-04-13
اخي وضح اكتر بخصوص توضيح عدد الصفوف
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
اريد كود جمع خليتين في خلية ثالثة - أحمد النجار - 13-04-13
لو عاوز فقط أول 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اريد كود جمع خليتين في خلية ثالثة - mazen - 14-04-13
مشكور جدا اخي الاكواد شغالة 1000*100