عمليات حسابيه على الاعمده

[ابو اسامة العينبوسي]

الملف مرفق فيه التوضيح لما اريد

Book1.rar

[علي السحيب]

الكود التالي يفي بالغرض:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For R = 2 To [A65536].End(xlUp).Row
Cells(R, 3) = Cells(R, 1) * Cells(R, 2)
Next

End Sub

شاهد المرفق،

_____________________________________________________.rar

[ابو اسامة العينبوسي]

شكرا لك اخ على

هذا المطلوب تماما

انا اعمل برنامج صرافه

لدي ملف لو تكرمت اطلع على اكواده لعلك تضيف شيئا لها

omar2007.rar

[ابو اسامة العينبوسي]

اخواني مشرفي المنتدي

ممكن مساعده في هذا البرنامج

هذا مشروع لبرنامج صرافه

قد يكون هناك اكواد بحاجه الى تعديل

او طرق افضل لكتابتها

مشكوريين

omar2007.rar

تم تعديل نوفمبر 28, 2006 بواسطه ابو اسامة العينبوسي