جمع دو سلول و قرار دادن مقدار در یکی از سلولها

[rezamaskani]

سلام ببخشید که شاید سوالم پیش پا افتاده باشه
سوالم رو با یه مثال میگم
من میخوام مقدار سلول g1 با سلول f1 جمع بشه و حاصل جمع، در سلول g1 قرار داده بشه
و به همین روال، سایر سلولهای ستون های g و f نظیر به نظیر با هم جمع بشن و مقادیر ستون g اپدیت بشه
همچنین در همان شیت، مقادیر ستون e هم با g تفریق بشه و دوباره g اپدیت بشه

من چیکار باید بکنم؟

ممنون از کسانی که لطف میکنن و پاسخ میدن

[M_ExceL]

سلام ببخشید که شاید سوالم پیش پا افتاده باشه
سوالم رو با یه مثال میگم
من میخوام مقدار سلول g1 با سلول f1 جمع بشه و حاصل جمع، در سلول g1 قرار داده بشه
و به همین روال، سایر سلولهای ستون های g و f نظیر به نظیر با هم جمع بشن و مقادیر ستون g اپدیت بشه
همچنین در همان شیت، مقادیر ستون e هم با g تفریق بشه و دوباره g اپدیت بشه

من چیکار باید بکنم؟

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


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("f1:g1000")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
rw = Target.Row
Cells(rw, 7) = Cells(rw, 7) + Cells(rw, 6)
Application.EnableEvents = True
End If
End Sub

موفق باشید.

[rezamaskani]

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


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

به طور مثال:
مقدار g1=10 و مقدارf1=20 پس مقدار h1=30، سپس فرض میکنیم که داده جدیدی وارد شده یعنی مجددا به f1، عدد 14 رو وارد میکنیم و انتظار داریم که مقدار h1 بشه 44 , ولی در واقع نتیجه میشه 24


پ.ن: شاید اگر هدفم رو بگم بتونید راحتتر راهنماییم کنید
هدف من از این فایل، در واقع انبارداری هست
یعنی یک مقدار موجودی فعلی داریم(ستون g)
یک مقدار ورودی به انبار که دائما میتونه مقادیر متنوعی به خودش بگیره (ستون f)
یک مقدار خروجی از انبار که اینم دائما میتونه مقادیر متنوعی به خودش بگیره (ستون e)
و نهایتا هم موجودی نهایی رو داریم که حاصل جمع و تفریق موجودی اولیه با ورودی و خروجی ها هست که اونم میشه ستون h

[Amir Ghasemiyan]

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

به طور مثال:
مقدار g1=10 و مقدارf1=20 پس مقدار h1=30، سپس فرض میکنیم که داده جدیدی وارد شده یعنی مجددا به f1، عدد 14 رو وارد میکنیم و انتظار داریم که مقدار h1 بشه 44 , ولی در واقع نتیجه میشه 24


پ.ن: شاید اگر هدفم رو بگم بتونید راحتتر راهنماییم کنید
هدف من از این فایل، در واقع انبارداری هست
یعنی یک مقدار موجودی فعلی داریم(ستون g)
یک مقدار ورودی به انبار که دائما میتونه مقادیر متنوعی به خودش بگیره (ستون f)
یک مقدار خروجی از انبار که اینم دائما میتونه مقادیر متنوعی به خودش بگیره (ستون e)
و نهایتا هم موجودی نهایی رو داریم که حاصل جمع و تفریق موجودی اولیه با ورودی و خروجی ها هست که اونم میشه ستون h

سلام دوست عزيز
فرمول دوستمون درسته. ولي با توضيحاتي كه داديد فكر كنم اين كد يكم كامل تر باشه


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("f1:g1000")) Is Nothing Then
On Error Resume Next
Application.EnableEvents = False
rw = Target.Row
If Target.Column = 6 Then
Cells(rw, "h") = Cells(rw, "f") + Cells(rw, "h")
Else
Cells(rw, "h") = Cells(rw, "g") + Cells(rw, "f")
End If
Application.EnableEvents = True
End If
End Sub