دستور جستجو کرن مقادیر یا متن در اکسل

[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]

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