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

[alikaraj66]

سلام
یه لیست ارزیابی مدیرانه که مدیر ارشد میخواد به یک سری از مدیران میانیش نمره به غیر از نمره عادی بدهد به عنوان تشویقی
مثلا نمونه ذیل میخواهم ستون ها با هم جمع شود ولی ردیف 2 و 4 تعداد 10 عدد بیشتر نشان بدهد .
به دلیل اینکه فرمول عادی در اکسل توسط دوستان هی به هم ریخته می شود میخواهم در محیطی باشه که به این راحتی دستکاری نشود مثل vb

مثال
سلول یک سلول دو جمع
1 1 3 و این یک هم ثابت است برای بعضی از سلول ها

[Amir Mohsenpour]

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

[alikaraj66]

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

[Amir Mohsenpour]

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

[alikaraj66]

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

[Amir Mohsenpour]

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

[Amir Mohsenpour]

اینجا15183