مجاهد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

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

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

و هكذا تكون الغيابات متتالية حسب الأيام