اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

تم تعديل بواسطه ابو اسامة العينبوسي

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information