جمع تجمعی

[Aragorn]

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


آیا راهی هست که اکسل در یک خانه جمع تجمعی بدهد
مثلا من در خانه A1 اعداد را وارد میکنم و میخواهم جمع تجمعی را در خانه B1 به من بدهد
بدین صورت که بار اول عدد 100 را بنویسیم نتیجه 100 است حالا 100 را پاک میکنیم 200 مینویسیم نتیجه 300 بدهد و به همین ترتیب
با تشکر از راهنماییتان

[mrexcel]

RE: جمع تجمعی

این گزینه در واقع کار یک حلقه میباشد که باید بوسیله ویژوال بیسیک نوشته شود . ولی در صورتی که این مقادیری که باید اضافه شود دارای نظم خاصی میباشد مثلا قرار است به جمع اول مقدار 5 اضافه گردد شما میتوانید در سلول a1 فرمول مقابل را بنوسید
=a1+5 در واقع این فرمول باعث خطا circular خواهد شد که از مسیر زیر این خطا نیز حذف میگردد .
exceloption>formula>enable interative calculation را تیک زده و maximum interation را هم یک قرار میدهید .
ممکن است این امکان پاسخگوی شما باشد

[Aragorn]

RE: جمع تجمعی

ممنون از پاسختون
مقادیری که اضافه می شوند هیچ نظم خاصی ندارند
بنابرایت احتمالا همان اولی می شود ولی متاسفانه ویژوال بیسیک بلد نیستم
ماکرویی در این مورد هست برای دانلود؟

[nimabahmani]

سلام
دقیقا سوال منم هست ممنون میشم کی کمک کنه

[iranweld]

با استفاده از کدهای ذیل در قسمت کد نویسی شیت مورد نظر قابل انجام است

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then

If Target.Count = 1 Then

TEMP = Target.Offset(, 1)

Target.Offset(, 1) = Target + TEMP

Else

MsgBox "Please select one Item"

End If
End If


End Sub