[حل شده] ____ذخیره سازی اطلاعات روز های مختلف و پردازش اطلاعات تمام فایل ها در یک فایل___؟!

[sooroosh1315]

____ذخیره سازی اطلاعات روز های مختلف و پردازش اطلاعات تمام فایل ها در یک فایل___؟!
نمی دانم این سوال به کدام بخش مرتبط می باشد، لطفا راهنمایی کنید سوال را در بخش مناسب ارسال کنم


من هر روز یک فایل csv دریافت می کنم که می توانم به اکسل تبدیلش کنم!

این فایل دارای یک هدر در سطر اول می باشد

ستون اول نام اجناس است (سطر دوم:پفک سطر سوم: چیپس سطرچهارم ماست)

ستون دوم قیمت ها هستند (سطر دوم:1500 سطر سوم:2000 سطر چهارم:5000 )

ستون سوم وزن است (سطر دوم:150 سطر سوم :300 سطر چهارم:1000)

ستون چهارم در فایل csv دریافتی وجود ندارد و خودمان باید اضافه و محاسبه کنیم||||||||||||| ستون چهارم قیمت هر گرم ( سطر دوم:سطر دوم ستون سوم تقسیم بر سطر دوم ستون دوم ||||سطر سوم :به همبن روال و.....)

ستون پنجم را هم خودمان تولید می کنیم /////ستون پنجم :مجموع تمام وزن ها (سطر دو: 1450 سطر سوم:1450 سطر چهارم:1450)

ستون ششم: میانگین قیمت :14 فایل گذشته (در ادامه توضیح میدهم)

_________


فردا فایل جدبدی با همان نام قبلی دریافیت می کنم
اما اطلاعات تغییر کرده!

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

ستون اول نام اجناس است (سطر دوم:پفک سطر سوم: بادام زمینی سطرچهارم : پنیر. سطر پنجم :ماست)

ستون دوم قیمت ها هستند (سطر دوم:1500 سطر سوم:2000 سطر چهارم:10000 سطر پنجم :6500)

ستون سوم وزن است (سطر دوم:250 سطر سوم :300 سطر چهارم:1000 سطر پنجم :1300)

ستون چهارم در فایل csv دریافتی وجود ندارد و خودمان باید اضافه و محاسبه کنیم||||||||||||| ستون چهارم قیمت هر گرم ( سطر دوم:سطر دوم ستون سوم تقسیم بر سطر دوم ستون دوم ||||سطر سوم :به همبن روال و.....)

ستون پنجم را هم خودمان تولید می کنیم /////ستون پنجم :مجموع تمام وزن ها (سطر دو: sum of col 3 سطر سوم:sum of col 3 سطر چهارم:sum of col 3سطر پنجم:sum of col 3)

ستون ششم: میانگین قیمت :14 فایل گذشته (در ادامه توضیح میدهم)

-------
حالا مشکل کار:
ما 28 فایل جمع کرده آیم از 28 روز گذشته

اکسل بیاید تمام این 28 فایل را بخواند و برای هریک از موارد متمایز در ستون اول، یک سطر ایجاد کند

ستون اول سطر دوم:پفک سطر سوم: چیپس سطرچهارم ماست سطر پنجم :بادام زمینی سطر ششم:پنیر)

اطلاعات تمام 28 روز را هم وارد کند خودکار

ستون ششم: میانگین قیمت :14 فایل گذشته (تقریبا برای هر یک از اجناس 28 تا اطلاعات داریم ممکن است یک روز چیپس نداشته باشیم و مثلا 26 تا دیتا داشته باشیم، )

در ستون ششم بیاید آخرین 14 تا فایل موجود را میانگین بگیرد و ثبت کند

سپس فردا که روز 29 است، اطلاعات روز اول را پاک کند و تمام اطلاعات را یک روز به سمت چپ یا راست شیفت کند (روز 28 دیروز میشه روز 27 امروز) و اطلاعات امروز را بعنوان اطلاعات روز 28ثبت کند


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

[M_ExceL]

____ذخیره سازی اطلاعات روز های مختلف و پردازش اطلاعات تمام فایل ها در یک فایل___؟!

سلام،
من فکر میکنم جهت درک بهتر نیاز هست که نمونه ای از فایلهاتون رو پیوست کنید.

[sooroosh1315]

سلام،
من فکر میکنم جهت درک بهتر نیاز هست که نمونه ای از فایلهاتون رو پیوست کنید.

سلام و عرض ادب از توجه شما سپاسگزارم

فایل اصلی که مد نظر است ونتیجه کار

آخرین اطلاعات دریافت شده تا امروز

اطلاعات روز قبل


روز قبلترش


کالاهای 4



کالا5 (4 روز پیش)

test.xlsx - 22 KB



مشکل چیست؟
اطلاعات فایل اصلی از پنج فایل دیگر گرفته شده است

در فایل اصلی سطر تکراری نداریم ، مثلا در تمام فایل ها پفک وجود دارد و در فایل اصلی فقط یک سطر به پفک اختصاص داده شده

(فایل اصلی توسط برنامه به وجود می آید کاملا بدون دخالت کاربر)

در فایل اصلی تمام ستون ها وجود دارد(حتی اگر فقط یک روز در لیست ما وجود داشته باشد آن کالا)

میانگین 3 روز فایل اصلی هوشمند است (اگر ستون فاقد دیتا باشد به جای تقسیم بر 3 تقسیم بر 2 یا 1 می کند برای میانگین گیری)

فردا که برسد و اطلاعات جدید بیاید فایل اصلی خودش را هوشمندانه آپدیت می کند و قدیمی ترین اطلاعات را پاک می کند سپس اطلاعات را به سمت راست می برد یک سلول و اطلاعات جدید را در خانه b جایگذاری می کند.

[M_ExceL]

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

در فایل اصلی سطر تکراری نداریم ، مثلا در تمام فایل ها پفک وجود دارد و در فایل اصلی فقط یک سطر به پفک اختصاص داده شده

(فایل اصلی توسط برنامه به وجود می آید کاملا بدون دخالت کاربر)

در فایل اصلی تمام ستون ها وجود دارد(حتی اگر فقط یک روز در لیست ما وجود داشته باشد آن کالا)

میانگین 3 روز فایل اصلی هوشمند است (اگر ستون فاقد دیتا باشد به جای تقسیم بر 3 تقسیم بر 2 یا 1 می کند برای میانگین گیری)

فردا که برسد و اطلاعات جدید بیاید فایل اصلی خودش را هوشمندانه آپدیت می کند و قدیمی ترین اطلاعات را پاک می کند سپس اطلاعات را به سمت راست می برد یک سلول و اطلاعات جدید را در خانه b جایگذاری می کند.

فایل زیر رو بررسی کنید :

Sub test()
Range("f2:F" & Rows.Count).ClearContents
Range("B2:E12").Cut Destination:=Range("C2:F12")
For i = 2 To 11
If Range("a" & i) = Sheets("new").Range("a" & i) Then
Range("b" & i) = Sheets("new").Range("b" & i)
End If
Next i
End Sub 

بعد از اجرای فایل ماکرو رو فعال کرده سپس داخل شیت "new" اطلاعات جدیدی وارد کنید سپس در شیت "asli" روی باتن "وارد کردن اطلاعات جدید"
کلیک کنید.

[sooroosh1315]

دمت گرم آقا ستون ها را جابجا می کنه و میانگین هم بدرستی انجام میده

اما وقتی در فایل جدید سطر محصول جدیدی ارایه میشه به فایل اصلی منتقل نمیشه:


فایل اصلی لواشک و تخمک اضاف نشده


و یک مشکل اساسی اینکه ترکیب محصولات جا به جا میشن (پفک همیشه سطر دوم نیست می تونه سطر اخر باشه) ولی قیمتش در فایل اصلی باید جلوی خودش وارد بشه



در فایل اصلی قیمتپنیر وارد نشده است

[sooroosh1315]

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

مثلا در زبان جاوا آرایه a را تعریف می کنیم برای ذخیره سازی قیمت

بعد می نویسم

a[3] 

قیمت روز 3 را به ما می دهد

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

فکر می کنم به یک پایگاه داده در ابتدا نیاز دارم:
با توجه به جنس کارم بهترین نوع پایگاه داده چیست و چطور به صورت خودکار می توانم اطلاعاتم را در پایگاه داده ذخیره سازی کنم؟ و بعد فراخوانی کنم؟

(لطفا اگر تاپیک یا سایت خوبی می شناسید معرفی کنید)

[sooroosh1315]

فکر می کنم به یک پایگاه داده در ابتدا نیاز دارم:

با توجه به جنس کارم بهترین نوع پایگاه داده چیست و چطور به صورت خودکار می توانم اطلاعاتم را در پایگاه داده ذخیره سازی کنم؟ و بعد فراخوانی کنم؟

(لطفا اگر تاپیک یا سایت خوبی می شناسید معرفی کنید)

[sooroosh1315]

فایل زیر رو بررسی کنید :

Sub test()
Range("f2:F" & Rows.Count).ClearContents
Range("B2:E12").Cut Destination:=Range("C2:F12")
For i = 2 To 11
If Range("a" & i) = Sheets("new").Range("a" & i) Then
Range("b" & i) = Sheets("new").Range("b" & i)
End If
Next i
End Sub 

بعد از اجرای فایل ماکرو رو فعال کرده سپس داخل شیت "new" اطلاعات جدیدی وارد کنید سپس در شیت "asli" روی باتن "وارد کردن اطلاعات جدید"
کلیک کنید.

سلام M_ExceL

امکانش هست ادامهی کد را هم خودتان بنویسید

(تغییرات زیادی در حین کار باید شخصا انجام بدم گاها ممکنه 100 تا پوژه بشه و یکسال زمان ببره تا به یک حالت استیبل برسم فعلا اطلاعات دریافتی در حد آزمون و خطا هستن برای همین قصد پروژه ندارم)

اما بسیار لطف می کنید اگر کدتان را گسترش دهید تا اشکالات کار بر طرف شود.

[M_ExceL]

دمت گرم آقا ستون ها را جابجا می کنه و میانگین هم بدرستی انجام میده

اما وقتی در فایل جدید سطر محصول جدیدی ارایه میشه به فایل اصلی منتقل نمیشه:
[ATTACH=CONFIG]19093[/ATTACH]

فایل اصلی لواشک و تخمک اضاف نشده
[ATTACH=CONFIG]19094[/ATTACH]

و یک مشکل اساسی اینکه ترکیب محصولات جا به جا میشن (پفک همیشه سطر دوم نیست می تونه سطر اخر باشه) ولی قیمتش در فایل اصلی باید جلوی خودش وارد بشه

[ATTACH=CONFIG]19095[/ATTACH]

در فایل اصلی قیمتپنیر وارد نشده است
[ATTACH=CONFIG]19096[/ATTACH]

چک کنید :

Sub M_E()
With Application
    .ScreenUpdating = False
    .EnableEvents = False
lc1 = Sheets("new").Cells(Rows.Count, 1).End(3).Row
    For i = 1 To lc1
        Range("a100").End(3).Offset(1, 0) = Sheets("new").Cells(i + 1, 1)
    Next i

    lr = Sheets("asli").Cells(Rows.Count, 1).End(3).Row
    Range("$A$1:$A$" & lr).RemoveDuplicates Columns:=1, Header:=xlYes
    lc2 = Sheets("asli").Cells(Rows.Count, 1).End(3).Row
    Range("f2:F" & lc2).ClearContents
    Range("B2:E" & lc2).Cut Destination:=Range("C2:F" & lc2)
        For i = 2 To lc2
            If Range("a" & i) = Sheets("new").Range("a" & i) Then
                Range("b" & i) = Sheets("new").Range("b" & i)
            End If
            If WorksheetFunction.Count(Range("b" & i & ":d" & i)) >= 1 Then
                Range("g" & i) = WorksheetFunction.Average(Range("b" & i & ":d" & i))
            End If
        Next i
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

[M_ExceL]

آخرین تغییرات :

Sub M_E()
With Application
    .ScreenUpdating = False
    .EnableEvents = False
lc1 = Sheets("new").Cells(Rows.Count, 1).End(3).Row
    For i = 1 To lc1
        Range("a100").End(3).Offset(1, 0) = Sheets("new").Cells(i + 1, 1)
    Next i

    lr = Sheets("asli").Cells(Rows.Count, 1).End(3).Row
    Range("$A$1:$A$" & lr).RemoveDuplicates Columns:=1, Header:=xlYes
    lc2 = Sheets("asli").Cells(Rows.Count, 1).End(3).Row
    Range("f2:F" & lc2).ClearContents
    Range("B2:E" & lc2).Cut Destination:=Range("C2:F" & lc2)
        For i = 2 To lc2
                    For Z = 2 To lc1
                        If Range("a" & i) = Sheets("new").Range("a" & Z) Then
                             Range("b" & i) = Sheets("new").Range("b" & Z)
                         End If
                    Next Z
                If WorksheetFunction.Count(Range("b" & i & ":d" & i)) > 0 Then
                    Range("g" & i) = WorksheetFunction.Sum(Range("b" & i & ":d" & i)) / WorksheetFunction.Count(Range("b" & i & ":d" & i))
                End If
        Next i
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub