اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

لسلام عليكم

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

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

والله الفكرة جميلة لكن مش جديدة هنا ف المنتدي ده وانا شايف الجديد اننا نعمل كتاب ف الإكسل يكون 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