السلام عليكم
ارجو المساعدة
لدي تقرير في عرض لنتائج امتحانات المواد الدراسية للطلاب ويتم ادخال بيانات الطلاب بشكل افقي
لكن الحاجة استدعت عرض النتائج بشكل عمودي بحيث يكون كل عمود يحمل اسم احد المواد الدراسية وتحت كل اسم مادة درجتها
انا حاولت اضبطها بقدر ما اقدر وعلى قدر معلوماتي المتواضعة لكن لم استطع
لذلك اطرح المشكلة بين ايدكم لمساعدتي كونكم اصحاب خبرة وباع في هذا المجال
مرفق ما حاولت عمله وفيه توضيح لما اريد عمله
واعتذر لكثرة اسئلتي والمثل بيقول صاحب الحاجة اعمى وانا يالله حصلت واحد يجاوب على اسئلتي وجزاك الله خير
db1.rar
الأخ الكريمناصر سعيد
لشرح الكود
السطر الأول g2 تساوى أول رقم تريد طباعتة وهو فى الخلية E3
السطر الثانى حلقة تكرارية تبدأ من أو رقم تريد طباعتة وهو فى الخلية e3 وتنتهى بآخر رقم تريد طباعتة بالخلية f3 ثم مقدار الزيادة 2
السطر الثالث الخلية g2 قيمتها تساوى قيمة العداد لأن المعادلة التى فى نص الجواب تبحث عن الرقم الموجود بالخلية فى اسماء الملاحظين
السطر الثالث يطبع الصفحة الحالية
السطر الرابع غلق الحلقة التكرارية
ارجو ان يكون الشرح مفهوم
الأستاذ الفاضل الأستاذ / محمد الدسوقى
الأستاذ الفاضل محمد أبو البراء
لما لا نبسط الأمور بهذه المعادلة ضعها فى j5 واسحبها نزولا
=SUM(G5:I5)+COUNTIF(G5:I5;"واحد")
حياك الله استاذي جعفر واستاذي ابوخليل
وكما طلبت استاذ جعفر عدة خيارات للحذف وعدة خيارات للحفظ
تم عمل التصميم المطلوب .. ويتبقي لكم تنفيذ الاكواد المطلوبة حتي يكتمل المراد
وها هو المرفق بصيغة 2010 .. وسمحني يا استاذ ابو خليل لم استطيع حفظ نسخه منه علي 2003 ممكن استاذ جعفر يحفظه علي 2003 ويعيد رفعه مرة اخري
BackUp-delete-Control.rar
اخي ابراهيم
لا وجود للاكسل ابدا في مثال الاستاذ ابا خليل السابق
ولكن هذه فكرة ولاثراء المنتدى
Private Sub العبارة_Change()
Me.عدد_الأحرف = Len(Replace(العبارة.Text, " ", ""))
Me.عدد_الكلمات = UBound(Split(Trim(Replace(العبارة.Text, Chr(13) & Chr(10), " ")) & " ", " "))
End Sub
بالتوفيق
عدد الحروف والكلمات 1.rar
اخواني جميعا
السلام عليكم ورحمة الله
عند مراجعتي لبعض الاوامر في الاكسيل وجدت هذه الدالة والتي تغني عن دالة التفقيط باستخدام الماكرو وبها 13 لغة للتفقيط
ارجو ان تنول اعجابكم
انظروا للمرفق لمزيد من التوضيح
_____.rar