أبوعيد

ممكن وبكل سهولة
هذا البرنامج يسهل عليك أدخال الدرجات والتاريخ كذلك

الشرح يطول ولكن ثق تماما أنك بمجرد أن تفتحه وتثبت الماكرو وتستخدمه ستفهم البرنامج
ثم بعد التجربة أذا أردت أي توضيح نحن في الخدمة
محرر الأكواد مفتوح ويمكنك التعديل عليه كما تريد

الطريقة : افتح ملفك الذي تريد الأدخال فيه ثم افتح هذا الملف
ثم اضغط على إحدى الأيقونتين (الدرجات أو التاريخ)
وعندما يفتح الفورم انتقل مباشرة إلى ملفك الذي تريد الأدخال فيه
ستجد أن الفورم ينتقل إلى الملف الجديد
تفضل
إدخال الدرجات والتاريخ.xls

تفضل
Horaire 2.xlsb

وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي 
أسمح لي أن أقول لك وبكل احترام وتواضع السبب هو :
أنت كتبت في الكود
وقة5  بدون راء والصحيح ورقة5  بحرف الراء
 
 
 
 
 
 
 

وعليكم السلام ورحمة الله وبركاته
الطريقة
حدّد كل الجدول (أو النطاق الكبير اللي تشتغل فيه).
من القائمة: اختر
(تنسيق شرطي) ثم (قاعدة جديدة) ثم (استخدام صيغة لتحديد الخلايا المراد تنسيقها)
اكتب الصيغة التالية: 
=ROW()=CELL("row")
اختر اللون اللي تحبّه.
اضغط (موافق) 
الأن كلما تكتب في أي خلية في السطر اضغط السهم لليمين أو اليسار وواصل الكتابة ـ يعني لاتنزل سطر جديد ولكن تابع الكتابة في نفس السطر

تقبل تحياتي

الموقع : https://www.araby.ai/
شرح الموقع https://youtu.be/U4l2mnnh0ZY

الموقع : https://gemini.google.com/app?hl=ar
الموقع : https://chatgpt.com/
الموقع : https://chat.deepseek.com/
وعيرها كثيرررررررر
 
 

لا أعلم المشكلة
الملف يعمل عندي بشكل ممتاز
عند ظهور هذه الرسالة اضغط زر DEBUG
سيتم تلوين السطر المشكل بلون اصفر
ما هو السطر المشكل ؟

تفضل اختر ما يناسبك
دمج مبلغ1.xlsx

تفضل جرب
مثال1.xlsx

إذا تطابق اللون والوصف والمقاس سيتم ألغاء الإضافة
Private Sub CommandButton1_Click() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Dim WS As Worksheet, rng As Range Dim lastRow As Long Set WS = Sheet1 If Me.TextBox4 = "" Then: Exit Sub '======= lastRow = WS.Cells(WS.Rows.Count, "A").End(xlUp).Row For i = 2 To lastRow ' äÈÏà ãä ÇáÕÝ 2 assuming ÇáÕÝ ÇáÃæá ÚäÇæíä If WS.Cells(i, 2).Value = Me.TextBox1.Value _ And WS.Cells(i, 3).Value = Me.TextBox7.Value _ And WS.Cells(i, 4).Value = Me.TextBox2.Value _ Then MsgBox "ÇáÈíÇäÇÊ ÇáÊí ÊÍÇæá ÃÖÇÝÊåÇ ãæÌæÏÉ ãä ÞÈá", vbOKOnly, "ÈíÇäÇÊ ãßÑÑÉ" Exit Sub End If Next i '======= Set rng = WS.Range("a2100").End(xlUp).Offset(1, 0) rng.Offset(0, 0).Value = Me.TextBox4.Value rng.Offset(0, 1).Value = Me.TextBox1.Value rng.Offset(0, 3).Value = Me.TextBox2.Value rng.Offset(0, 5).Value = Me.TextBox3.Value rng.Offset(0, 6).Value = Me.TextBox5.Value rng.Offset(0, 7).Value = Me.TextBox6.Value rng.Offset(0, 2).Value = Me.TextBox7.Value For i = 1 To 7 Controls("textbox" & i).Text = Empty Next i Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub  

المطلوب الأول هو من جنس المطلوب الثاني ولا داعي لتكرار الجداول
المعادلات المستخدمة هي من نوع الصفيف وليست معادلات عادية
تفضل
example1.xlsx

السلام عليكم
هذه محاولة بحسب ما فهمت
حل1 : اختر أول سطر للبيانات من القائمة المنسدلة الزرقاء
حل2 : مباشرة بدون اختبار سيتم اختيار آخر سطر
تفضل
جديد1.xlsm

جرب هذا الملف
maachat3.xlsm

تفضل اضغط على زر استدعاء في البحث ولاحظ النتيجة
الغياب1.xls

السلام عليكم
تم عمل بعض التغييرات في الملف حتى تمشي الأمور تمام التمام

 تم فك الدمج في خلايا الاحتياط لأن معادلة الصفيف لا تقبل الخلايا المدموجة
فقط قم تبغيير الرقم في P1  ولاحظ النتيجة
ملاحظة : كل المعادلات من نوع الصفيف التي تبدأ بقوس وتنتهي بقوس
تفضل جرب الملف
 
_اكمال ملاحظة5.xlsx

تفضل جرب الملف
مصادقة 1.xlsx

وعليكم السلام 
تم تعديل المعادلة في العمود F
تعديل معادلة1.xlsm

استفسار1.xlsx

وعليكم السلام
كل حاجة تمام التمام المعادلة شغالة في K2 , K3
الخلل موجود في الصفحة main في الخلية E2 لا يوجد تاريخ
ادخل على الصفحة والخلية واكتب اي تاريخ ستجد كل شيء تمام التمام
تحياتي

وعليكم السلام
جرب هذا الحل
قوائم التلاميذ معدل.xlsm

ساعرض عليك فيدوهات تشرح الطريقة ولكن يجب أن تشاهدها كلها حتى تختار أسهل طريقة تناسبك
أولا : 
https://youtu.be/pA9ySmQ01iY?si=p9nXmux1nT8qBGgp
ثانيا :
https://youtu.be/sBBKTP1io_M?si=VmXjQmgihaoJqBBy
ثالثا :
https://youtu.be/lgbHqyDsfwg?si=oQzRCmGxXMVsNscA
 

دليل الترحيل في الصفحة 1 بالعمود A  موجود 1 , 2
بينما دليل الترحيل في الصفحة2 بالعمودِA  موجود 1 قثط وبعده 3 ولا يوجد الرقم 2
جرب امسح الرقم 3 في الصفحة 2 في دليل الترحيل واكتب الرقم 2 ولاحظ النتيجة

السلام عليكم
تفضل اكتب فقط رقم الجلوس للطالب في الخلية البنفسجية
ستلاحظ أن المعادلة المستخدمة هي معادلة واحدة المختلف فقط هو رقم العمود في كل معادلة 
قم بتغيير الرقم إذا وجد أي خطا لتصحيحه
 
نتيجة للتجربة1.xlsx

تفضل جرب المرفق
__المرتجع - نسخة1.xlsm

السلام عليكم
تفضل
الشبكة الاستدلالية ـ معدل.xlsx

لازال الأمر يثير اهتمامي و هذه محاولة أخيييييرة تم فيها الاستغناء عن العمود T
يوجد نوعان من الرسائل اضغط L7 , L8  ولاحظ الفرق
ملاحظة : الأعمدة من T إلى DK يستخدمهم البرنامج لإعداد رسائل الواتساب
أرجو أن تنجح التجربة
Send Via Whatsapp (4).xlsm