[حل شده] دستور جستجو کرن مقادیر یا متن در اکسل

[mohammad59]

سلام خدمت دوستان

دستور تو vb نیاز دارم که مقادیر مربوط به آیتم مورد نظر رو در شیت یک پیدا کنه و در شیت دوم در ماه مربوطش قرار بده به صورت جمع


مثال:ما اگه آیتم هزینه ها رو تو شیت یک داشته باشیم مثل هزینه اب و برق و هزینه اجاره و هزینه ....

و این آیتم ها تو سطر های متفاوت تکرار شده و یا به صورت یک سط باشن آنگاه مقادیر مربوط به این آیتم هارو پیدا کنه و جمع بزنه و تو شیت 2 قرار بده

هزینه آب و برق	220
هزینه اجاره	120
هزینه آب و برق	150
هزینه اجاره	200

هزینه آب و برق	370
هزینه اجاره	320

فایل پیوست رو گذاشتم با سپاس

[iranweld]

با سلام

با استفاده از پیوت تیبل راحتتر میتوانید گزارشگیری نمایید.
دیتای مورد نظر را مارک و با ctr+t تبدیل به جدول نمایید

در صورت تغییر در دیتای ورودی برای گزارشگیری مجدد در شیت پیوت تیبل با Alt+F5 رفرش نمایید

[mohammad59]

ممنون و سپاسگزارم از پاسخ شما

خیلی زحمت کشیده بودید.

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

[iranweld]

با سلام

از کدهای ذیل استفاده نمایید.

Sub test()

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

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

k = Application.WorksheetFunction.CountA(Sheet1.Range("1:1"))

Sheet2.Range(Cells(2, 2), Cells(z2, k)).ClearContents

For x = 2 To k

For i2 = 2 To z2

Sum = 0

For i1 = 2 To z1

If Sheet1.Cells(i1, 1) = Sheet2.Cells(i2, 1) Then

Sum = Sum + Sheet1.Cells(i1, x)

End If

Next i1

Sheet2.Cells(i2, x) = Sum

Next i2


Next x

End Sub 

[mohammad59]

بی نهایت سپاسگزارم.. مشکلم حل شد