عبد الفتاح كيرة

أفعل إن شاء الله وشكرا لسرعة ردك زر الأمر المسمى " البحث عن بيانات طالب " فى الورقة " data" برنامج شئون الطلاب للرفع 2003.zip

السلام عليكم عندنا فورم به مربع تحرير وسرد و قد عينت فى خصائصه أنه مرتبط بنطاق اسمه names النطاق عبارة عن 500 صف أول 150 خلية منها بها بيانات و الباقى خلايا فارغة لكنه قابل للزيادة أو النقص عند البحث بالكود التالى لو حددنا عنصرا فارغا فى مربع التحرير تظهر رسالة خطأ كيف نجعل مربع التحرير مرتبطا بالخلايا غير الفارغة فقط داخل النطاق names و هذا هو الكود Sub ComboBox1_Change() TextBox1.Value = ComboBox1.Value Dim Snum As Long Dim Lastr As Long Lastr = Sheets("All").Range("b" & Rows.Count).End(xlUp).Row Snum = WorksheetFunction.Match(ComboBox1.Text, Sheets("All").Range("b5:b" & Lastr), 0) TextBox2.Value = Sheets("All").Cells(Snum + 4, 3).Value TextBox3.Value = Sheets("All").Cells(Snum + 4, 16).Value TextBox4.Value = Sheets("All").Cells(Snum + 4, 21).Value TextBox5.Value = Sheets("All").Cells(Snum + 4, 22).Value TextBox6.Value = Sheets("All").Cells(Snum + 4, 26).Value End Sub

لو استعملنا أحد النوعين فى كتابة المعادلات هل تعمل على أجهزة تستخدم النوع الثانى يعنى هل يتم تحويلها؟

هذا شيت قمت بتصميمه يرحل الناجح و الراسب بدون معادلات بمساعدة الأخ يحيى هنا

السلام عليكم أخى هذه مساهمة بجوار مساهمات أساتذتى ضع المعادلة التالية فى b8 واضغط Ctrl+Shift+Enter =INDEX($A$3:$G$3;;SMALL(IF($A$3:$G$3<>0;COLUMN(A$3:G$3));ROW(A1)))

أخى الكريم ستجد بهذا الشيت أشياء مفيدة لك هنا

تمام أستاذ سالم

جهد مميز جزاك الله خيرا فى الحقيقة قد تبدو الأكواد صعبة لكن فى نظرى أن الأصعب و الذى نحتاج إليه أكثر هو طريقة التفكير فى البرامج أعلم أن البرامج الكبرى ينقسم المبرمجون فيها لفريقين الأول لوضع خطة البرنامج وخرائط التدفق و غير ذلك وفريق آخر يضع الأكواد بناء على ما يرسمه الفريق الأول فعمل الفريق الأول هو الأهم و لذلك نطلب من حضرتكم توضيح آلية التفكير فى وضع البرنامج لحل المشكلة متى نختار مثلا حلقات التكرار ومتى نختار الجمل الشرطية أرجو أن يكون طلبى واضحا

التعديل يكون بصفحة التمارين وصفحة الغياب يتبعه التغيير فى صفحة الاستدعاء هذا ما فهمته

=IF(AND(E7="غ";F7="غ");"غ";SUM(E7:F7)) عدل أيضا معادلة مجموع الفصلين على هذا المنوال

استفدت كثيرا أخى سالم من ملفك شكرا جزيلا

أخى استخدم طرق عرض مخصصة

أخى الصفحة رقم 1 تستدعى البيانات و لا تعدل فيها البيانات

هذا فديو ناطق لطريقة إدراج موضوع بالمنتدى لتحميل الفديو http://posterous.com/getfile/files.posterous.com/one-ayort/e4QhVTqDEUpGd1ESmkjAJdh8EjPMQelordjPGTSmAxNWj03x9cDjyX5Eaw3H/new_topic.mp4

شكرا لك أستاذنا على البرنامج

حل بلا كود المرفقات درجات المهاراتkemas.rar

طيب فحص الإكمال هذا يكون 3 مواد فقط ؟ وما هى المواد الثلاثة التى فيها إكمال

أبو البراء و أبو العقاب سبحان الله أخى أبا العقاب الطريقة تختلف قليلا عما أجريته أنت ستجعل خلايا بعدد المواد وتضع فى كل خلية معادلة لمعرفة هل الطالب راسب فى المادة أم لا مثلا فى الرياضيات =IF(S18<50;"رياضيات";"") ثم تأخذ الخلايا فى نتائج فحص الإكمال قيمها من نفس هذه الأعمدة هذا على عجالة

تفضل أولى أول يتيم ذكر 3 شروط و عددهم = 1 =SUMPRODUCT((السجل!P9:P1000="يتيم")*(السجل!C9:C1000="ذكر")*(السجل!E9:E1000="1/1")) ومثلها أولى أول يتيم انثى =SUMPRODUCT((السجل!P9:P1000="يتيم")*(السجل!C9:C1000="انثى")*(السجل!E9:E1000="1/1"))

لعد الناجحين أولى أول لغة عربية =SUMPRODUCT((B2:B8=1)*(E2:E8>=50)) على فرض درجة النجاح من 50 غيرها حسب طلبك و للناجحين أولى 2 =SUMPRODUCT((B2:B8=1)*(E2:E8>=50)) جرب وشوف

نعم فى c11 ضع المعادلة =SUMPRODUCT((ةالفصل='احصاء عام'!B11)*(ةنوع="ذكر")) وفى d11 =SUMPRODUCT((ةالفصل='احصاء عام'!B11)*(ةنوع= "انثى")) و على مثل هذا فقس بقية المعادلات

أعتقد أن المعادلة فى f1 تكون هكذا =COUNTIF($F$1:F1;F1)=1 كى تتغير فى f2 إلى =COUNTIF($F$1:F2;F2)=1 وفى f3 إلى =COUNTIF($F$1:F3;F3)=1 واضح أنها تعد قيمة الخلية من أول صف فى المدى وحتى الخلية التى يتم تعديلها

لاشىء بهذه الرسالة الملف به ماكرو اختر حفظه ك ملف يقبل الماكرو النوع الثانى

أظن نحتاج فقط تغيير المدى

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