مجاهد2013

الف شكر أستاذ محمد صالح تحياتي أستاذ صالح هل يمكن تغيير تنسيق الخط في القواءم المتحصل عليها و كذا تغيير 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

الف شكر و ألف تحية للجميع حفظكم الله بحفظه و جعل ما تقدموه لنا من مساعدات في ميزان أعمالكم الصالحة كود جمع اليانات في خلية واحدة شغال و لكن العيب فيه أن الاسم يأتي بعد اللقب و ليس بعد تاريخ و مكان الازدياد و كذلك التاريخ غير كامل ينقصه اليوم لا يظهر (كما هو مبين في الصورة المرفقة) med.xlsm

أولا شكرا أستاذ سليم الكود شغال و لكن لا يحافظ على الترتيب حتى بالمعادلة حصل معي نفس الشيئ ( الملف المرفق) و لكن الذي أريده بالضبط هو إدراج رمز QR أسفل الشهادة كما هو مبين في الصورة المرفقة medjahed-11.xlsx

السلام عليكم عني في الملف المرفق لشهادة مدرسية أريد إدراج QR كود أسفل الشهادة و يحتوي على البيانات المدونة باللون الأحمر و هي مجمعة في الخلية M15.فهل ممكن المساعدة في هذا. medjahed.xlsx

الف شكر أستاذ سليم مع تحياتي.🖕

أستاذ سليم هاهو الملف الذي عملنا عليه سابقا std_salim.xlsm

أولا الف شكر ثانيا أستاذ سليم أنا أحتاج في الترحيل يكون لكل قسم 50صف القسم الثاني مثلا يبدأ من 51 و هكذا ..........لأن عند إضافة أي تلميذ من أي قسم عند الترحيل يترحل للقسم بتاعه لأني عندي في عمل ثاني أحتاج (selection) لكل قسم على حدى لعمل قائمة منسدلة .

ألف ألف شكر

السلام عليكم في الملف المرفق أريد ترحيل بيانات من data إلى data2 غيرت بعص الأعمدة في شيت داتا و غيرت كذلك في الكود( المنجز سابقا من طرف الأستاذ سليم حاصبيا) و لم أتحصل على النتيجة إذا كان ممكن أستاذ سليم أو غيره يصحح لي الخطأ. Option Explicit Sub give_data() If ActiveSheet.Name <> "data" Then Exit Sub Dim i%: i = 3 Dim Laste_Row%, k%, m% Dim arr, arr_num() Dim rg As Object arr_num = Array(3, 53, 103, 153, 203, 253, 303, 353, 403, 453, 503, 553, 603, 653, 703, 753, 803, 853, 903, 953, 1003, 1053, 1103, 1153, 1203, 1253, 1303, 1353, 1403, 1453, 1503, 1553, 1603, 1653, 1703, 1753, 1803, 1853, 1903, 1953, 2003) Laste_Row = Sheets("data").Cells(Rows.Count, 1).End(3).Row Sheets("data2").Range("a3").Resize(3000, 3).ClearContents Set rg = CreateObject("system.collections.arraylist") With rg Do Until i > Laste_Row If Not .contains(UCase(Range("h" & i).Value)) Then .Add UCase(Range("h" & i).Value) i = i + 1 Loop arr = .toarray End With For i = LBound(arr) To UBound(arr) m = arr_num(i) For k = 3 To Laste_Row% If Sheets("data").Cells(k, "H") = arr(i) Then With Sheets("data2").Cells(m, 1) .Value = Sheets("data").Cells(k, "A") .Offset(, 1) = Sheets("data").Cells(k, "Y") .Offset(, 2) = Sheets("data").Cells(k, "H") m = m + 1 End With End If Next Next Set rg = Nothing: Erase arr_num: Erase arr End Sub عذرا ان لم تكن هذه هي الطريقة الصحيحة لعرض الموضوع 1411.xlsm

السلام عليكم أتمنى أن يكون الجميع بصحة و عافية عندي في الجدول لما أثبت الغيابات (بما أن الجمعة و السبت عطلة نهاية الأسبوع ما فيش دراسة ) أريد كود لنسخ محتوى العمود (الخميس) في عمودي الجمعة و السبت على مدار السنة هو سهل بالعادلات لكن كما تعلمون الأيام تتغير كل سنة . لكم مني جزيل الشكر نسخ غياب.xlsx

تمام التمام ألف شكر مع تحياتي أستاذ سليم

أولا ألف شكرا أستاذ سليم فغالبا ما أجدك بجانبي ـ سأبعث لك صورتين لتوصيح المطلوب . و هكذا تكون الغيابات متتالية حسب الأيام