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

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

قام بنشر

لسلام عليكم

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

قام بنشر (معدل)

والله الفكرة جميلة لكن مش جديدة هنا ف المنتدي ده وانا شايف الجديد اننا نعمل كتاب ف الإكسل يكون pdf

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

وع العموم انا هشرح كود برنامج رفع الدرجات للطلاب

فكرة الكود : البحث عن الخلايا الموجود فيها ارقام معينة ورفعها لتصبح رقم معين اخر

الكود:

For Each c In Worksheets("كشف درجات").Range("c2:f50000").Cells
If c.Value = 22 Or c.Value = 23 Or c.Value = 24 Then
 c.Value = 25
End If
Next

الشرح:

ابحث عن اي خلية في الصفحة (كشف الدرجات) والموجودة ف النطاق من c2 إلي f50000 اتكون قيمتها 22 او23 او 24

واجعلها تساوي 25 ثم ابحث عن التي بعدها ونفذ الشرط السابق

تم تعديل بواسطه beso2009
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information