میانگین گیری

[سوده68]

سلام دوستانم خیلی خیلی خیلی خسته نباشید
من یه سوال داشتم ممنون میشم کمکم کنید
من یه تعدادی فایل اکسل دارم که تو هرکدوم ازین فایلها 2000 نقطه هست..2000 هزارتا هم قرینه این نقاط
میخوام این نقاط رو 5 تا 5 تا ازشون میانگین گیری کنم..بشه 400 نقطه..و البته 400 نقطه قرینه اون..
کسی هست کمکم کنه؟؟

[khakzad]

سلام
منظور از 3تا 3تا چیه؟
1- مثل میانگین متحرک
2-داده 1تا3 بعد داده 4تا6 و بعد داده 7 تا 9 و . . . . . .

[سوده68]

سلام
منظور از 3تا 3تا چیه؟
1- مثل میانگین متحرک
2-داده 1تا3 بعد داده 4تا6 و بعد داده 7 تا 9 و . . . . . .

مرسی از پاسختون
ینی مثلا سه تای اول رو میانگین بگیره به جاش یه نقطه بذاره بعد سه تای بعدی بعد همین طور تا آخر

[khakzad]

خدمت شما
سوالی بود در خدمتم

[سوده68]

خدمت شما
سوالی بود در خدمتم

وای مرسی چقد بلدین
این الان مربوط به سوال منه؟؟؟
من یکمی سوالمو تغییر دادم..میانگین گیری توی نقطه های هر فایل اکسلم منظورم بود
و اینکه الان اینو چی کارش کنم؟؟؟
بلد نیستم اجراش کنم

[khakzad]

منظورتون از نقطه چی هست؟؟؟؟!!!!!
فایل نمونه بذارید و سوالتون رو بپرسید
من یک نمونه گذاشتم که داده هایی در یک ستون موجود هست. و 3تا3تا میانگین میگیره

[iranweld]

با سلام

با استفاده از VB فایل پیوست تهیه گردید با انتخاب تعداد اعداد ، میانگین ستون A محاسبه میگردد

Sub test()


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

Range("B2:B" & Z1).ClearContents

If Range("C1").Value = 2 Then

For i = 2 To Z1 Step 2

Range("b" & i).Value = (Range("A" & i).Value + Range("A" & i + 1).Value) / 2

Next

ElseIf Range("C1").Value = 3 Then

For i = 2 To Z1 Step 3

Range("b" & i).Value = (Range("A" & i).Value + Range("A" & i + 1).Value + Range("A" & i + 2).Value) / 3

Next

ElseIf Range("C1").Value = 4 Then

For i = 2 To Z1 Step 4

Range("b" & i).Value = (Range("A" & i).Value + Range("A" & i + 1).Value + Range("A" & i + 2).Value + Range("A" & i + 3).Value) / 4

Next

ElseIf Range("C1").Value = 5 Then

For i = 2 To Z1 Step 5

Range("b" & i).Value = (Range("A" & i).Value + Range("A" & i + 1).Value + Range("A" & i + 2).Value + Range("A" & i + 3).Value + Range("A" & i + 4).Value) / 5

Next

End If

End Sub 

[generalsamad]

با سلام
اگه منظورتون مثل روش دوستان هست از این فرمول نیز میتونید استفاده کنید

=average(indirect("a"&(row(a1)*3-2&":a"&row(a1)*3))) 

اگه منظورتون غیر از این توضیحات بوده لطفا یک فایل نمونه ضمیمه کنید و بر اساس فایل نمونه درخواستتون رو بیان کنید

[سوده68]

مرسی
متاسفانه من نتونستم فایلم رو اینجا آپلود کنم

DS0990

این فایل منه
من میخوام این ستونی که وجود داره رو برام پنج تا پنج تا میانگین بگیره..ینی پنج تا پنج تا از تفاطم میانگین بگیره به جاش یه نقطه قرار بده
حالا من ده هزارتا ازین فایل ها دارم
میخوام یه برنامه ای باشه که برای تک تک این فایل ها کاری رو که گفتم انجام بده و من تک تک مجبور نشم واسه هر فایل جدا برنامه رو اجرا کنم
امیدوارم متوجه شده باشین
ممنونم از کمک هاتون

[generalsamad]

واسه میانگین گیری باید داده ها عددی باشند
فایلی که ضمیمه کردید چنین شرایطی نداره
میخواید اطلاعاتی که با کاما جدا شدند توی یک سلول قرار بگیرند؟

[iranweld]

در فایل پیوست از ردیفی که دیتاها بصورت عددی میباشد میانگین 5 تایی را محاسبه مینماید

[سوده68]

در فایل پیوست از ردیفی که دیتاها بصورت عددی میباشد میانگین 5 تایی را محاسبه مینماید

مرسی دقیقا همونیه ک میخوام
دستوراتش همونیه که تو صفحه قبل نوشتین؟؟؟
من برای هر کدوم از ده هزار فایل جداجدا باید اون کد رو اجرا کنم؟؟؟

[iranweld]

با سلام

دستورات خلاصه تر شده است .
اگر بیشتر توضیح بدید که دیتای 10000 فایل را در آخر چطور دسته بندی میکنید شاید راه بهتری توسط دوستان پیشنهاد و ارائه گردد

Sub test()

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

Range("c17:D" & Z1).ClearContents


For i = 17 To Z1 Step 5

Range("c" & i).Value = (Range("A" & i).Value + Range("A" & i + 1).Value + Range("A" & i + 2).Value + Range("A" & i + 3).Value + Range("A" & i + 4).Value) / 5

Range("d" & i).Value = (Range("B" & i).Value + Range("B" & i + 1).Value + Range("B" & i + 2).Value + Range("B" & i + 3).Value + Range("B" & i + 4).Value) / 5

Next


End Sub