(تمت الاجابة) قسمة بالكود

[nash60]

لو سمحتم اخواني الكرام :

اريد قسمة بالكود يعني الخلايا في العمود A تقسيم الخلايا في العمود B تظهر النتيجة بمقابل كل خلية في العمود C

وشكرا لكم مقدما

[رجب جاويش]

السلام عليكم

تفضل أخى الفاضل

Book1.rar

[nash60]

اشكرك اخي الفاضل كثير الشكر وبارك الله فيك وجعله في ميزان حسناتك

[رجب جاويش]

السلام عليكم

تفضل أخى الفاضل

حل آخر يتجاهل الخلايا الفارغة ولا يتم عملية القسمة اذا كانت احدى الخليتين فارغة

قسمة.rar

تم تعديل مارس 3, 2012 بواسطه ragab100100

[عبدالله المجرب]

السلام عليكم

بعد اذن اخي رجب

هذا الكود يوضع في حدث الورقة ولن تحتاج لزر أمر

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 2 Then Exit Sub

If Not Intersect(Target, [A2:B100]) Is Nothing Then

Cells(Target.Row, 3) = Empty

If Target.Value = Empty Then Cells(Target.Row, 3) = "": Exit Sub

If Val(Cells(Target.Row, 2)) = 0 Then Cells(Target.Row, 3) = "لا يمكن القسمة على صفر": Exit Sub

Cells(Target.Row, 3) = Val(Cells(Target.Row, 1)) / Val(Cells(Target.Row, 2))

End If

End Sub

[رجب جاويش]

الأخ الفاضل / عبد الله المجرب

تسلم ايديك

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

[nash60]

الاخوان المحترمين جميعا :

بارك الله فيكم جميعا وزادكم من علمه اكثر واكثر وان شاء الله كله في ميزان حسناتكم