ایجاد ردیف اتومات

[landsat11]

سلام وقت بخیر

سوال یک: من یک اکسل با داده های زیاد دارم و میخوام بین هر دو ردیف، دو ردیف دیگه ایجاد کنه و میانگین آن دو ردیف قبلی رو در سلول های جدید قرار بده و برای کل اکسل انجام بده.
سوال دو: و با همین شرایط فرمول دیگری باشه که در سلول جدید جای اعداد رو پر کنه بدین صورت:
3
6
9
12
15
18
24
یعنی دو ردیف جدید بین 3 و 6 ایجاد کنه و اعداد درون اون بشه 4 و 5 به صوتر پشت سر هم

[Amir Ghasemiyan]

سلام دوست عزیز
با توجه به اینکه سوال شما در خصوص اکسل هست سوالتون از تالار اکسس به اکسل منتقل شد
و اما جواب سوالاتتون:
در خصوص سوال اول شما میتونید از ابزار subtotal استفاده کنید.
در مورد سوال دوم هم لطفا بفرمایید که دیتاهای موجود به چه شکل هست؟ با همین ترتیبی که شما وارد کردید یا خیر؟

در کل پیشنهاد میکنم فایل قرار بدید تا بهتر بتونیم راهنمایی کنیم.

[landsat11]

من میخوام بین ردیف 2 و 3، سه ردیف اتومات ایجاد بشه و میانگین اعداد دو ردیفی قبلی در اون قرار بگیره

مثلا برای ستون اول A، میانگین اعداد 23 و 12 در اون سلول های سه ردیفی که ایجاد شده قرار بگیره به شکل زیر:

و همزمان میانگین اعداد قبل و بعد به اون سلول های خالی بر اساس ستون اضافه بشه مثل تصویر زیر که یک بخشش رو دستی پر کردم:

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

Sub InsertEveryOtherRow()
 Dim Rng As Range
 Dim lastRow As Long
 Dim i As Long

 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual

 ' Get selected range
 Set Rng = Selection
 lastRow = Rng.Rows.Count + Rng.Row

 ' Define a loop for each row in the range, starting from the last row
 For i = lastRow To Rng.Row + 1 Step -1
    ' Insert a blank row after each row
    Rows(i).Insert Shift:=xlShiftDown
    Rows(i).Insert Shift:=xlShiftDown
    Rows(i).Insert Shift:=xlShiftDown
 Next i

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

[karimi6155]

سلام فایل پیوست رو امتحان کنید ببینید همونیه که میخواهید
3.rar
البته توی عکسهای پیوستتون متوجه نشدم چرا میانگین 12 و 23 رو 29 زدید.

[landsat11]

سلام فایل پیوست رو امتحان کنید ببینید همونیه که میخواهید
3.rar
البته توی عکسهای پیوستتون متوجه نشدم چرا میانگین 12 و 23 رو 29 زدید.

سلام
عالیه مرسی

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

[karimi6155]

سلام فایل پیوست رو ببینید
اگر لازم نیست عدد بودنش تست بشه اون (+1-1) رو بردارید از توی کد
4.rar

[landsat11]

سلام فایل پیوست رو ببینید
اگر لازم نیست عدد بودنش تست بشه اون (+1-1) رو بردارید از توی کد
[ATTACH]n333260[/ATTACH]

درسته عالیه

حالا من کدی از ترکیب دو کد بالا میخوام که برای ستون اول کد 4 رو اجرا کنه یعنی میانگین نگیره و عدد قبلی رو بزاره ولی برای ستون دوم به بعد میانگین گیری کنه

[landsat11]

در کل یه اکسل داریم مطابق تصویر زیر که میخوام اول اعداد مطابق آنچه که در تصویر نوشتم استخراج بشن در جای خودشون بعد ماکرو روی اونها اجرا بشه مطابق پست قبلی:
ستون اول (Date) در سلول های جدید عدد قبلی رو بزاره و برای سلول های ستون دوم (UTC Time) بین اعداد را پر کنه پشت سر هم از 0 الی 23 و برای ستون های بعدی میانگین گیری کنه

[karimi6155]

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

[landsat11]

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

مرسی

[karimi6155]

سلام فایل پیوست رو امتحان کنید ببینید همونیه که میخواهید

[landsat11]

سلام فایل پیوست رو امتحان کنید ببینید همونیه که میخواهید

سلام
نه
بر اساس پست شماره 8 میخواستم
الان یه مشکلی که دارم اکسل نمیتونه این محاسبات رو برای رکورد زیاد انجام بده

سپاس