جمع با مقدار قبلی

[morteza_b68]

با سلام

لطفا فایل ضمیمه را بررسی نمایید.

خلاصه : جمع عدد وارد شده در یک خانه با عدد جدید وارد شده در همان خانه
با تشکر میر

با سلام
کاش یه توضیحی هم میدادید چطوری این کارو کردید

[majid_mx4]

با سلام و تبریک سال نو

دوست عزیز

کلید های Ctrl+F11 را زده و روی شیت 1 کلیک کنید .

دستورات را خواهید دید.

موفق باشید میر

[hossein69]

سلام استاد . میشه دستور کد این فایلی که براش فرمول تعریف کردین رو بذارین . کد دستوریشو میخوام ممنون

[hossein69]

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

[حسام بحرانی]

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

سلام دوست عزیز
فایل جناب میر عزیز دارای کد در محیط ویژیوال هست.

همانطور که توضیح داده شده در فایل مذکور با فشردن کلیدهای ترکیبی Alt+F11 می تونید کد را مشاهده کنید اما

ضمن تشکر مجدد از جناب میر، مجدداً این کد در اختیار شما و دیگر عزیزان قرار میگیرد:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If IsNumeric(Target.Value) = False Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox "You entered a non-numeric value.", 48, "Numbers only!"
Exit Sub
End If
Dim OldVal#, NewVal#
NewVal = Target.Value
Application.EnableEvents = False
Application.Undo
OldVal = Target.Value
Target.Value = OldVal + NewVal
Application.EnableEvents = True
End Sub 

موفق باشید.