عمل حقلة تكرارية داخل الحلقة الاساسية

انتظر ردك الجميل

هذت ملف اكسيل لما اريد

dataout.xls

لتقريب  الفكرة

بفرض ان هناك لستة    بها الاعداد
1
2
3
4
5
6
7
8
كيف  يتم عرض  مجموع كل عددين  وفي النهاية يتم عرض  المجموع الكلي
dim a,b as integer
for i=0 to 7
for j=1 to 2
a=a+listbox1.items(j)   مثلا
next j
b+=a
next i
 

كود لم يجرب ولكن مجرد فكرة

dim i  as intger=0 
dim sn  as intger=1
For Each oRow as dataRow in ds.Tables("invodet").Rows

xlw.Worksheets("sheet1").Cells(i + 6, 1) = sn
xlw.Worksheets("sheet1").Cells(i + 6, 1).HorizontalAlignment = 3
xlw.Worksheets("sheet1").Cells(i + 6, 1).VerticalAlignment = 3
xlw.Worksheets("sheet1").Cells(i + 6, 2) = oRow("invsal").ToString()
xlw.Worksheets("sheet1").Cells(i + 6, 2).numberformat = "#,##.00"

xlw.Worksheets("sheet1").Cells(i + 6, 3) = oRow("invqu").ToString()
xlw.Worksheets("sheet1").Cells(i + 6, 4) = oRow("invprc").ToString()
xlw.Worksheets("sheet1").Cells(i + 6, 4).numberformat = "#,##.00"

xlw.Worksheets("sheet1").Cells(i + 6, 5) = oRow("invunit").ToString()
xlw.Worksheets("sheet1").Cells(i + 6, 6) = oRow("invsun").ToString()
i=i+1
sn=sn+1
if i mod 32 then
	xlw.Worksheets("sheet1").Cells(i + 6, 2) ="=sum(B" & i & ":B & i-32 & ")"
	xlw.Worksheets("sheet1").Cells(i + 6, 2).numberformat = "#,##.00"

	xlw.Worksheets("sheet1").Cells(i + 6, 6) ="ما قبله"

	i=i+1
end if
Next