أبوعيد

تفضل
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

السلام عليكم ورحمة الله وبركاته
بعد البحث والتقصي والتجربة الناجحة أحمل لكم في طيات هذه المشاركة ما قمت به من التجارب حول الموضوع أعلاه
طبعا الفكرة الموجودة في رابط الفيديو أعلاه فكرة ممتازة وتفي بالغرض
ولكن شغفي بالبرمجة حملني إلى أن توصلت لفكرة جميلة وهي خاتمة أعمال البحث والتقصي التي قمت بها 
خطوات البحث :
1 قمت بالاطلاع على عدة مشاريع لنشر نتيجة الطلاب على النت ولكن بعضها يحتاج لخبرة في بعض البرامج ( مثل برنامج الفلاش ) وخبرتي في الفلاش تكاد تكون معدومة
2 قرأت عن موقع كاسبيو وهو موقع يخدم التعليم ويقول بنشر النتائج ولكن لم تعجبني الفكرة كون الموقع يحتاج لتسجيل حساب لديهم لوضع بيانات مدرستي على موقعهم
3 قمت بعمل مشروع على قوقل شيت للتجربة ولكن عند نشره على النت فإن كل ولي أمر يريد الدخول على قوقل شيت فإنه لابد أن يحمل أولا تطبيق قوقل شيت من المتجر , وفكرة تحميل التطبيق لكل شخص يريد الدخول فكرة جعلتني أعدل عن قراري , أريد طريقة أسهل من ذلك
4 قمت بعمل مشروع على قوقل داتا استوديو وهو برنامج مجاني لتوفره شركة قوقل لمستخدميها وحازت الفكرة نجاحا منقطع النظير , حيث يتم الدخول على البرنامج عن دريق حسابي 
يعني بعد ما انتهيت من عمل المشروع قمت بنشر الرابط على السوشيال ميديا , فكل ولي أمر يضغط على الرابط يتم دخوله إلى المشروع , وأحيانا أكون فاتح صفحة المشروع وألاحظ عدد الأشخاص الذين يستخدمون المشروع (يكتبون كلمة المرور ويحصلون على نتائج أبنائهم )
5 الخطوة الأخيرة وهي الفكرة الجميلة في طريقة نشر النتائج
كل الطرق أعلاه ( 1 - 4 ) تقوم على فكرة أن ولي امر الطالب هو الذي يأتي ليأخذ نتيجة ابنه من النت
طيب نفرض أن ولي الأمر مشغول , أو لا يعرف كيفية الدخول أو واجه مشكلة
هنا خطرت لي فكرة جميلة وهو إرسال نتائج الطلاب إلى أولياء الأمور
طيب إرسلها بأي برنامج ؟
أرسلها من الجوال إلى أولياء الأمور عن طريق برنامج الواتساب
يعني لابد أن ولي الأمر يكون عنده رقم واتساب وإلا ستفشل التجربة
طيب تخيل معي : مدرسة بها 800 طالب مثلا , فهذه الطريقة ستجعلني أرسل 800 رسالة واتساب
لنفرض أني قمت بإرسال كل هذه الرسائل من جوالي إلى أولياء الأمور , وكل ولي أمر قام بالرد على رسالتي 
هذا يعني أني سأفتح جوالي في اليوم التالي وأنصدم بوجود 800 رسالة من 800 إيقونة !!!!!!!!!
بالطبع لا أستطيع فتح كل هذا الكم من الرسائل , طيب ما الحل ؟
الحل هو أن نجعل كل معلم مرشد صف ( أو مشرف ) يرسل من جواله نتائج طلابه لأولياء الأمور
( المعلم المشرف ) هو المسؤول عن الصف من الناحية الإدارية
يعني أن كل مشرف سيرسل من جواله عدد لا يتجاوز 35 رسالة , وهو عدد طلاب صفه
لاحظ الخط الذي تحت كلمة ( سيرسل ) يعني أن المشرف سيرسل الرسالة فقط ولن يكتبها !!!!!!
فليس من المعقول أن يكتب المشرف كل هذا الكم من الرسائل يدويا لأن كل رسالة فيها بيانات طالب تختلف عن الرسالة الأخرى , وهنا يأتي دور  الأكسل Excel
وبهذا الشكل نكون قد تغلبنا على مشكلة 800 رسالة يتوزيعها على المعلمين
نقبلوا تحياتي