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

**man** · 2015/09/28, 07:53

up

**ACE** · 2015/09/28, 10:33

جمع کردن محتویات دو سلول در صورتی که

**man** · 2015/09/28, 16:34

تشکر از شما و
آقا مصطفی
با تابع اینکا را نمی شه انجام داد؟
اگه مقصد یک شیت دیگه باشه ////// Range("sheet2!B2:B34").Select////////چی میشه
چرا خطا میده ؟

**ACE** · 2015/09/28, 17:22

نوشته اصلی توسط man

تشکر از شما و
آقا مصطفی
با تابع اینکا را نمی شه انجام داد؟
اگه مثصد یک شیت دیگه باشه ////// Range("sheet2!B2:B34").Select////////چی میشه
چرا خطا میده ؟

سلام...
ببین اینجوری میشه:

کد:

sheet2.Range("B2:B34").Select

**man** · 2015/09/28, 18:03

نه داداش نشد

**man** · 2015/10/08, 07:36

کسی از اساتید می تونه کمک کنه .
اگه مقصد یک شیت دیگه باشه چه کدی باید جایگزین بشه ؟
رنجش چی باید باشه ؟

**iranweld** · 2015/10/08, 09:24

با سلام

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

**majid_mx4** · 2015/10/08, 17:22

با سلام

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

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

فایل های پیوست شده

sum value in a cell Mir.rar (11.4 کیلو بایت, مشاهدات 91)

**man** · 2015/10/10, 20:53

تشکز از اساتید بابت راهنمایی
جناب میر خیلی جالب بود تشکر
iranweld از شما هم تشکر مشکل حل شد.

**morteza_b68** · 2018/03/23, 17:12

نوشته اصلی توسط majid_mx4

با سلام

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

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

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

**majid_mx4** · 2018/03/24, 10:18

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

دوست عزیز

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

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

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

**hossein69** · 2018/11/14, 21:46

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

**hossein69** · 2018/11/14, 21:51

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

**حسام بحرانی** · 2018/11/14, 22:19

نوشته اصلی توسط hossein69

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

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

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

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

کد PHP:

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

موفق باشید.