[حل شده] جمع اعداد یک ستون با گام مشخص

[mahdi_tamadon]

سلام. ببخشید یه سوالی داشتم. من یه ستون دارم که تعداد خیلی زیادی ردیف داره. میخوام داده ی ردیف ۸۲ + ۲۰۷ + ۳۳۲ + ۴۵۷ + … تا آخر رو برام جمع کنه و بعد میانگین بگیره. یعنی اول داده ی ۸۲ و سپس با گام ۱۲۵ تایی بره پایین و جمع کنه و سپس میانگین بگیره. خیلی ممنون میشم اگر راهنمایی بفرمایید. (داده اول = 82 / گام 125 تایی)

ارادتمند

[iranweld]

با سلام

چنانچه اعداد شما در ستون A باشد از ماکرو ذیل استفاده کنید

Sub test()

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For i = 82 To z1 Step 125

Sum = Sum + Range("A" & i)

Next

MsgBox Sum

End Sub 

[mahdi_tamadon]

با سلام

چنانچه اعداد شما در ستون A باشد از ماکرو ذیل استفاده کنید

Sub test()

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For i = 82 To z1 Step 125

Sum = Sum + Range("A" & i)

Next

MsgBox Sum

End Sub 

سلام. بی نهایت سپاسگزارم فقط دو تا نکته:
1. چجوری میتونم تعداد رو محدود کنم؟ مثلا تا 20 تا سلول اول رو جمع کنه و بعد میانگین بگیره.
2. طبق همون ترتیب ذکر شده، سلول 20 تا 40 رو جمع کنه و بعد میانگین بگیره.

[iranweld]

موارد مورد نظر از جمله از چه ردیفی و با چه پله ای و تعداد شمارش را در قسمت زرد رنگ فایل پیوست وارد کنید

Sub test()

k = 0

Sum = 0

tedad = Range("b4")

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For i = Range("b2") To z1 Step Range("b3")

Sum = Sum + Range("A" & i)

k = k + 1

If k >= tedad Then Exit For

Next

MsgBox "Avrege :" & Sum / k & vbNewLine & "tedad  : " & k

End Sub