جمع دو عدد در محیط vb و اضافه کردن یک عدد ثابت در بعضی از فیلد های ثابت

**Amir Mohsenpour** · 2017/07/08, 09:12

دوست عزیز هر چی نگاه کردم متوجه سوالتون نشدم ..ولی بنظر نمیرسه کار سختی در پیش باشه ...سوالتون رو دوباره و واضحتر مطرح کنید

**alikaraj66** · 2017/07/10, 16:27

دوست عزیز این جوری میگم بهتره
تو سلول a عدد 20 می باشد
یه کد تو vb میخوام که که بگم به عدد 20 که تو سلول a پنج تا اضافه کن که خودش بشه 25 که این عدد 5 ثابت است و برای مثال سلول a , c , d است

**Amir Mohsenpour** · 2017/07/11, 17:09

Range("A1").Value = Range("A1") + 5

**alikaraj66** · 2017/07/12, 12:32

با سلام ممنون از جواب
من این کد رو ( بر روی شیت راست کلیک کردم و در قسمت ویو کد آن را پیست کردم اما نشد)
کد دیگری نیز باید قبل یا بعدش بنویسیم؟
چون منظور من جمع دو عدد از طریق vb
مثال : وقتی تو خود اکسل این فرمول ساده می نویسیم A1+5=
همین کار از طریق vb می خوام !!!

**Amir Mohsenpour** · 2017/07/13, 17:53

به روشهای مختلفی میشه این عمل رو انجام داد
بعنوان مثال کد زیر رو از همون طریقی که گفتی توی صفحه کدها (و البته توی Workbook)کپی کن و بعدش با هر بار اینتر کردن روی صفحه اکسلت 5 تا به سلول A1 اضافه می شه ...و هزاران روش دیگه مثل استفاده از کلید فرمان یا استفاده از راست کلیک یا ....
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Range("A1").Value = Range("A1").Value + 5
End Sub