عملية حسابية داخل الفورم

[زهرة122]

لو سمحتوا شىء بسيط فى المرفق جزاكم الله خيرا

عنوان مخالف جداً .. تــم تعديل عنوان المشاركة ليعبر عن طلبك ,, فانتبه ان لم يكن عنوان المشاركة معبر عن طلبك فعذراً ستحذف المشاركة , تجنباً لإهدار الوقت

التكست بوكس (1).xlsm

[lionheart]

Private Sub CommandButton1_Click()
    ActiveCell.FormulaR1C1 = "10"
    ActiveCell.Offset(1, 0).Select
End Sub

Private Sub CommandButton2_Click()
    ActiveCell.Value = Val(ActiveCell.Offset(-1, 0).Value) + 50
    ActiveCell.Offset(1, 0).Select
End Sub

 

[محمد يوسف ابو يوسف]

تفضلالتكست بوكس (1).xlsm

 

 

[زهرة122]

جزاكم الله خيرا انا قصدى عند الضغط على 50 يقوم بتغيير الخلية اللى اتكتب فيها 10 ويرجع يخليها 60 باضافة ال50 عليها وتغيير قيمة الخلية التى كانت 10 لتصبح 60

[زهرة122]

جزاكم الله خيرا انا قصدى عند الضغط على 50 يقوم بتغيير الخلية اللى اتكتب فيها 10 ويرجع يخليها 60 باضافة ال50 عليها وتغيير قيمة الخلية التى كانت 10 لتصبح 60

[عبدالفتاح في بي اكسيل]

ما دمت  تريدين  جمع  القيمتين  لا  تحتاجي  الضغط  على زر  اي  منهم  مجرد  تشغيل  اليوزرفورم  تظهر  اجمالي  القيمتين  في  الخلية  المذكورة 😎