تغییر مقدار سلول

[alisabet]

سلام علیکم

من احتیاج به کدی دارم که در یک سلول خاص بعداز درج مقدار در آن سلول بلافاصله دو برابر آن را در همان سلول درج نماید
مثلاً اگر در خانه a1 عدد 2 را وارد کنم پس از فشردن کلید اینتر عدد 4 در همان خانه یعنی خانه a1 درج شود خواهشمندم اساتید گرامی آموزش دهند

[abootorab]

سلام علیکم

من احتیاج به کدی دارم که در یک سلول خاص بعداز درج مقدار در آن سلول بلافاصله دو برابر آن را در همان سلول درج نماید
مثلاً اگر در خانه a1 عدد 2 را وارد کنم پس از فشردن کلید اینتر عدد 4 در همان خانه یعنی خانه a1 درج شود خواهشمندم اساتید گرامی آموزش دهند

با درود
کد زیر فقط واسه اعدادی که در سل A1 وارد میکنید عمل میکند ولی میتوانید با یه تغییر کوچک به سلهای دیگه نیز بسط دهید.

Public OldVal
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address = "$A$1" And OldVal <> Target.Value / 2 Then
        OldVal = Target.Value
        Target.Value = Target.Value * 2
    End If
End Sub 

البته نمونه این سوال در بخش دیگری مطرح شده بود که دوستان زحمت کشیدند و به روشهای مختلف پاسخ داده بودند.