مجاهد2013

السلام عليكم إخوتي في المنتدى عندي في شيت DATA VALID في العمود D أنا مقسم الأقسام الى 3 مستويات و محدد كالتالي : لي مكتوب أمامها 3 mostawa3 و لي مكتوب أماما 2 mostawa2 و لي مكتوبة ج م أ/ج م ع تك mostawa1 La selection التحديد قمت به يدويا هل هناك طريقة ( معادلات أو أكواد ) للقيام بذلك أتوماتيكيا في حالة تغير عدد اقسام مستوى معين مثلا : عندي mostawa3 يتكون من 08 أقسام التحديد (D2:D9) و لغيرت عدد الأقسام ليصبح05 التحديد يتغير ليصبح (D2::D6) و شكرا مسبقا medmed.xlsm

الف شكر و تحياتي أستاذنا

أ محمد صالح السلام عليكم و الله أنا قمت بمحاولة ممكن تعدل على الكود لكي يتماشى مع الprogress و تصحح لو فيه خلل و شكرا مسبقا Classeur1111.xlsm

السلام عليكم أحبتي أرجو مساعدتكم في هذا المرفق : عملت شاشة افتتاحية على ان يظهر فورم الشاشة دون ظهور ملف الاكسل و بعد لحظات يفتح الملف على شست MAIN أريد عمل كود لشريط انتظار : جاري تهيئة البرنامج ........كما في الصورة المرفقة و شكرا Classeur1111.xlsm

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

السلا عليكم انا عملت كود لجلب قائمة التلاميذ حسب الطلب و لكن الكود لا يتنفذ إلا من داخل محرر الأكواد فين الخلل عنوان مخالف ... تـــم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك

الف ألف شكر تمام أستاذنا محمد صالح بارك الله فيك تحياتي

أستاذ صالح عند تنفيذ زر تعديل البيانات طلعلي هكذا :

السلام عليكم أستاذ محمد صالح ، أتمنى أن تكون بخير زر البحث و الاستعلام اما زر التعديل و الحذف فلم أجربهما لانهما مرتبطان بزر البحث و الاستعلام

السلام عليكم اود من أساتذة المنتدى تصحيح بعض الأكواد في الملف المرفق عملت نموذخ ادخال البيانات من الشيت SAISIE إلى شيت DATA ELV و عملت الاكواد لاضافة البيانات- البحث و الاستعلام - تعديل و حذف (منقولة عن بعض الاساتذة جزاهم الله كل خير) و لكن لا اعرف اين الخلل فيها ارجو المساعدة و شكرا Classeur1111.xlsm

جزاك الله كل خير أستاذ

الف شكر أستاذ محمد صالح تحياتي أستاذ صالح هل يمكن تغيير تنسيق الخط في القواءم المتحصل عليها و كذا تغيير FaceId لكل قائمة مثال مرفق

السلام عليكم إخوتي في الشاشة الرئيسية عندي أزرار و أريد عند الضغط على أي زر التنقل بين مجموعة من الشيتات و ذلك بادراج كود vba داخل موديل كما هو مرفق لكن في هذه الحالة عند الضغط على زر قبل الامتحان تظهر كل الشيتات علما أني أريد يكون ظهورها كالأتي : Classeur1.xlsm

السلام عليكم عندي في شيت data2 أريد إعفاء أساتذة مادة معينة يوم إمتحان تلك المادة و الكود المستعمل للأستاذ سليم تحياتي الخالصة له يقوم بهذا العمل و لكن لا يعمل في حالة تكرار نفس المادة مرتين أو ثلاثة في الاسبوع (يعفي الاستاذ الامتحان الاول فقط ) اريد التعديل إن أمكن ... ,وهذا هو الكود المستخدم للأستاذ سليم Option Explicit Sub colorize_table() Application.ScreenUpdating = False Dim Find_Rg As Range, r%, i% Dim serch_range As Range Set serch_range = Sheets("ÇáãÚØíÇÊ").Range("R3:U12") Dim start_rg As Range Dim last_ro%: last_ro = Sheets("data2").Cells(Rows.Count, 2).End(3).Row Dim k% For k = 9 To 18 Step 2 Cells(6, k).Resize(last_ro - 4).Interior.ColorIndex = 35 Cells(6, k + 1).Resize(last_ro - 4).Interior.ColorIndex = 24 Next i = 7 Do Until Sheets("data2").Range("c" & i) = vbNullString Set start_rg = Sheets("data2").Range("H" & i) Set Find_Rg = serch_range.Find(Sheets("data2").Range("c" & i)) If Not Find_Rg Is Nothing Then r = Find_Rg.Row - 2 Else: GoTo Next_i End If start_rg.Offset(, r).Interior.ColorIndex = 25 Next_i: i = i + 1 Loop Application.ScreenUpdating = True End Sub My_File.xlsm

السلام عليكم أحبتي في المنتدى من خلال الملف المرفق أريد استنتاج حركة التلاميذ من شيت data و نقلها إلى شيت حركة التلاميذ من خلال شهر معين ( القائمة المنسدلة في الخلية G6 شيت حركة التلاميذ) نقل التلاميذ المعنيين للحركة الموجودة في العمودين لT و U وفقا للشهر الموجود في العمودين R و S توضع ملاحظات في شيت حركة التلاميذ كالتالي : خانة الدخول معبأة : دخول جديد خانة الخروج معبأة : شطب خانة الدخول و الخروجد معبأة : تغيير الصفة مع تحياتي لكم تقرير.xlsm

هذه هي النتائج المتوقعة الحجم الساعي بضرب العدد الحصص في 0.75

السلام عليكم في الملف المرفق من جدول التوقيت الزمني أريد معرفة الأقسام المسندة للأستاذ دون تكرار و كذا حساب الحجم الساعي له علما أن الحصة مقدارها 45 دقيقية و شكرا 123.xlsx

تمام ألف ألف شكر أستاذ بن علية

السلام عليكم في شيت نموذج إدخال البيانات أريد بعد إضافة أو حذف تلميذ ترحيل التلاميذ من شيت data ( ترحيل العمود b -الاسم و اللقب- و العمود I -القسم المختصر )إلى شيت data2بحيث يخصص لكل قسم 50 صفا مثلا : القسم 3ت ر/هم من 03إلى 53 القسم 3ت ر/هك من 53 إلى 103 و هكذا.......علما كنت أستعمل الكود المرفق في شيت data (للاستاذ سليم ) و كان شغال مية مية لا أدري ماذا حدث ؟ صورة مرفقة للنتائج المتوقعة و صورة أخرى لما يحدث معي أثناء تنفيذ الكود و شكرا لكم . mon travail - Copie.xlsm

السلام عليكم عندي في نموذج ادخال البيانات لما أقوم بالبحث عن تلميذ في رقم التعريف المدرسي يطلع لي هكذا 10003132701221E+15 مع أنها في الشيت غير ذلك مكتوبة صح

ألف شكر للقائمين على المنتدى و تحية خاصة للاستاذ سليم 🖕

السلام علكيم أريد ترحيل بينات من شيت data إلى شيت Liste لجلب القائمة الاسمية للتلاميذ حسب القسم الموجود في الالقائمة المنسدلة بالخلية G7 مع حساب عدد التلاميذ منهم الذكور و الاناث my book.xlsm

السلام عليكم في الملف المرفق عند الصغط على زر ترحيل لا يعمل و يعطيني ميساج : memoires insufisantes مع أني عامل بالكود مسبقا (كود الأستاذ سليم) Rap Jour - Copie.xlsm

معذرة أستاذ و ألف ألف شكر

السلام عليكم في الملف المرفق من التعداد العام اريد ترحيل كل مستوى إلى الجدول الخاص به مثلا : 3ت ر/هم و 3ع ت03 و 3أ ف01 إلى جدول السنة الثالثة 2ع ت01 و 2أ ف01 و 2ت ر/هك إلى جدول السنة الثانية ج م ع تك 01و ج م ع تك05 و جم أ 02 و ج م أ03 إلى جدول السنة الأولى (السنة الاولى ترتب ج م ع تك ثم ج م أ ) و شكرا مسبقا التعداد.xlsx