ارجو المساعده فى الجمع والضرب والطرح عن طريق الكود

[إبراهيم ابوليله]

الاخوه الكرام

اريد كود يقوم بالجمع والطرح والضرب فى نطاق معين

جمع+قسمه+ضرب.rar

[عبدالله باقشير]

السلام عليكم

اجعل الكود التالي في حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)

Dim R As Integer

If Not Intersect(Target.Cells, Range("B4:C13,E4:E13")) Is Nothing Then

    R = Target.Row

    Cells(R, "D").Value = Val(Cells(R, "B")) + Val(Cells(R, "C"))

    Cells(R, "F").Value = Val(Cells(R, "D")) + Val(Cells(R, "E"))

    Cells(R, "G").Value = Val(Cells(R, "F")) * 1 / 10

    Cells(R, "H").Value = Val(Cells(R, "F")) + Val(Cells(R, "G"))

End If

End Sub

ودمتم

[رجب جاويش]

بسم الله ما شاء الله

حتى فى الكود الخاص بحاجة بسيطة مثل الجمع والضرب توجد لمسات سحرية للأستاذ / عبد الله باقشير

صحيح الأستاذ أستاذ

تسلم أناملك السحرية

[إبراهيم ابوليله]

الاخ عبدالله

والاستاذ الكبير

بارك الله فيك

كود رائع وسهل جدا

ندعو الله لك بكل ماهو خير لك

وان يجعل علمك نافعا لغيرك

وان يرزقنا ويهبنا من العلم مارزققك