[حل شده] افزودن یک عدد به عدد قبلی در همان سلول

[saboori007a]

با سلام خدمت اساتید محترم

بنده در مورد یک فایل که به پیوست می باشد چند سوال دارم.

در این فایل ما در تاریخ های مشخص شده مقدار محصول موردنظر را مینویسیم مثلاً در تاریخ 1400/10/01 از محصول 1 تعداد 25 عدد داریم و از محصول 3 تعداد 51 عدد و ...

حالا میخوایم وقتی در تاریخ مشخص شده و محصول مورد نظر یک مقدار جدیدی وارد کردیم ، این مقدارجدید با مقدار قبلی همان محصول که قبلا نوشته شده جمع بشه و در همان سلول نمایش داده بشه (مثلاً مقدار قبلی محصول 1 در تاریخ 1400/10/01تعداد 41 عدد بوده و ما در همان تاریخ و همان محصول تعداد 24 را تایپ میکنیم، پس باید عدد65 در سلول مورد نظر نوشته شود و هرگاه دوباره عددی در همان سلول نوشته شود با نتیجه ی قبلی جمع شده و عدد جدید جایگزین عدد قبلی شود .

ممنون میشم در این مورد ما را راهنمایی بفرمایید .

[kazamie]

سلام، این راهنمای انگلیسی را امتحان کن شاید بکار بیاید

https://www.extendoffice.com/documents/excel/3087-excel-sum-adding-numbers-in-a-single-cell.html

[iranweld]

با سلام

تصویر پیوست را بررسی کنید. با ورود هر عدد جدید با مقدار قبل جمع میگردد

در صورتیکه بخواهید سلولی که اشتباه شد را اصلاح کنید باید در سلول a1 عدد 1 را قرار دهید تا اتوماتیک عمل جمع انجام نشود

کدها رو بنویسید و نتیجه رو بررسی کنید

[kazamie]

من یک فایل با روش inputbox درست کردم اما احتیاج به کار کردن روی آن هست

[saboori007a]

سلام جناب استاد کاظمی

با تشکر از وقتی که در اختیار ما قرار دادید .

فایل حضرتعالی بسیار عالی می باشد ولی وقتی که دکمه ی کنسل را میزنم خطای Type Mismatch می آورد .
لطفاً در این مورد نظرتان را بفرمایید .

[kazamie]

سلام جناب استاد کاظمی

با تشکر از وقتی که در اختیار ما قرار دادید .

فایل حضرتعالی بسیار عالی می باشد ولی وقتی که دکمه ی کنسل را میزنم خطای Type Mismatch می آورد .
لطفاً در این مورد نظرتان را بفرمایید .

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

این کد را جایگذین کنید

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
i = InputBox("adding", "Add number")
If i <> "" And IsNumeric(i) = True Then
Target = Target + i
End If
End Sub

[saboori007a]

ممنون مهندس جان

چطور میشه فقط در محدوده خاص (موردنظر خودمان ) این Inputbox اجرا بشه ؟

با تشکر

[kazamie]

ممنون مهندس جان

چطور میشه فقط در محدوده خاص (موردنظر خودمان ) این Inputbox اجرا بشه ؟

با تشکر

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i as variant
If not intersect (target, range ("A2:T1000")) is nothing then
i = InputBox("adding", "Add number")
If i <> "" And IsNumeric(i) = True Then
Target = Target + i
End If
End If
End Sub 

از intersect برای مشخص کردن محدوده استفاده کنید مانند کد بالا

[saboori007a]

تشکر بسیار زیاد ما از جناب استاد کاظمی عزیز

انشاالله همیشه موفق باشید.