اخى الفاضل
سوف تجد ما تريد فى هذه الروابط
لاول مره على الانترنت- كتاب تعلم لغه ال VBA باللغه العربيه (إكسيل)
طلب كتب برمجة أكسل VBA
أخى الفاضل : لك منى دعوة طيبة لتغيير اسم الظهور الى اللغة العربية ليسهل التواصل بيننا
أخى الحبيب / جمال عبد السميع
تسلم ايديك
وائراء للموضوع
هذه معادلة كنت جهزتها
=IF(B6="";"";IF(E6="غ";"غائب";IF(OR(E6<$E$5*0.5;D6<$D$5*0.25;D6="غ");"دون المستوى";IF(E6<=$E$5*64.9%;"مقبول";IF(E6<=$E$5*74.9%;"جيد";IF(E6<=$E$5*84.9%;"جيد جدا";IF(E6>=$E$5*85%;"ممتاز";"")))))))
حساب التقدير بناء على النسبة.rar
الأخ الفاضل الأستاذ / مصطفى كامل
:fff:
بارك الله فيك وجزاك الله كل خير
علي هذه التهنئة الرقيقة
دمتم فى أمان الله وحفظه
وتقبلوا منى وافر الإحترام والتقدير
أخى الفاضل / ريان
أحيانا يتم اخفاء الفورم حتى يتم اجراء بعض العمليات ثم اظهاره بعدها
وفى هذه الحالة يستخدم me.Hide
ولكن فى هذه الحالة ملاحظه مهمة ( لن يستطيع المستخدم عمل أى شئ فى الملف ولا أى تفاعل ) الا بعد انتهاء الكود الذى يتم تنفيذ من الفورم
ولتوضيح ذلك جرب المرفق
Book1.rar
أخى الفاضل / أحمد فؤاد
أحبك الله الذى أحببتنى فيه
هل تقصد
أنه عند وجود أرقام فى العمود K يظهر الرقم التالى لأكبر رقم فى العمود k ( رقم الفاتورة الجديدة )
وفى حالة عدم وجود أرقام فى العمو K يرجع لبداية التسلسل فيكون فى الخلية B3
أرجو التوضيح
أخى الفاضل / أحمد فؤاد
نورت المنتدى بعد غياب
جرب هذا الكود
Private Sub CheckBox1_Click()
LR = Cells(Rows.Count, "K").End(xlUp).Row
TextBox1 = Application.WorksheetFunction.Max(Range("K7:K" & LR)) + 1
End Sub
تسلسل الفاتورة.rar
الأخ الفاضل الأستاذ / عبد الرحمن الحمصي
:fff:
بارك الله فيك وجزاك الله كل خير
علي هذه التهنئة الرقيقة
دمتم فى أمان الله وحفظه
وتقبلوا منى وافر الإحترام والتقدير
أخى الفاضل
أولا : لك منى دعوة طيبة بتغيير اسم الظهور الى اللغة العربية ليسهل التواصل بيننا ( طبقا لسياسة المنتدى )
ثانيا : تفضل ما تريد
استبعاد القيم الصفرية.rar