درخصوص حسابداری

[mortezaw810]

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

نام مشتری	فروردین	اردیبهشت	خرداد	تیر	مرداد	شهریور	مهر	آبان	آذر	دی	بهمن	اسفند	مبلغ چک اول
علی	1	3	2	4	5	2	1	5	2	1	2	2	13

مبلغ چک رو بیاد از ماه فروردین تا ماهی که مبلغ چک صفر میشه به ترتیب کم کنه و باقیمانده رو در همون ماه نشون بده مثل حالت زیر

نام مشتری	فروردین	اردیبهشت	خرداد	تیر	مرداد	شهریور	مهر	آبان	آذر	دی	بهمن	اسفند	مبلغ چک اول	مبلغ چک دوم
علی	0	0	0	0	2	2	1	5	2	1	2	2	13	-

و بعد دوباره برای چک دوم هم به همین صورت تا با آخرین چک مبلغ بدهی هم به ترتیب ماه صرف بشه.
امیدوارم که راهی وجود داشته باشه و منم تونسته باشم منظورو خوب برسونم.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

ساختار جدول خود را مانند فایل پیوست تغییر دهید براحتی با فیلتر کردن و تابع subtotal میتوانید جمع خرید و جمع پرداختی و باقیمانده را بدست بیاورید

[mortezaw810]

ساختار جدول خود را مانند فایل پیوست تغییر دهید براحتی با فیلتر کردن و تابع subtotal میتوانید جمع خرید و جمع پرداختی و باقیمانده را بدست بیاورید

ممنون ازپاسختون
ولی منظور من به این شکل نبود
الان جدول دومی که من مجددا کشیدم نشون میده که مبلغ چک اول مشتری خرید های فروردین تا تیر رو صفر کرده و بخشی از مرداد رو هم پوشش داده.
اگه چک دوم رو هم وارد کنیم به همین صورت باید جستجو کنه بین ماه ها و از اولین ماهی که مبلغ خرید صفر نشده شروع به کم کردن کنه تا مبلغ چک صفر بشه و به همین صورت تا آخر

[iranweld]

در این صورت بایستی از ماکرونویسی استفاده کنید

در فایل پیوست ، برای یک مورد کدنویسی شد

Sub test()

Range("B4:T4").ClearContents

xx = Range("T3")

For j = 2 To 13

If Cells(3, j) <= xx Then

Cells(4, j) = 0

xx = xx - Cells(3, j)

Range("T4") = xx

End If

Next

End Sub 

[mortezaw810]

در این صورت بایستی از ماکرونویسی استفاده کنید

در فایل پیوست ، برای یک مورد کدنویسی شد

Sub test()

Range("B4:T4").ClearContents

xx = Range("T3")

For j = 2 To 13

If Cells(3, j) <= xx Then

Cells(4, j) = 0

xx = xx - Cells(3, j)

Range("T4") = xx

End If

Next

End Sub 

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

[rjfri]

با درود
دوست عزیز
فایل پیوست را ملاحظه بفرمایید شاید جوابگوی خواسته شما باشه

[mortezaw810]

با درود
دوست عزیز
فایل پیوست را ملاحظه بفرمایید شاید جوابگوی خواسته شما باشه

ممنون دوست عزیز
عالی بود