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

اكواد فيجوال بيسك فى الاكسيل


Ali Tawfeek

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

لسلام عليكم

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

رابط هذا التعليق
شارك

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