ناصر سعيد

جزاك الله كل خير وبارك فيك استاذ احمد == الكود يكرر اللجنه مرتان مثال طبع اول ورقه لجنه 1 ولجنه 2 في صفحه ثم يطبع لجنه 2 كمان مره ولجنه 3 وهكذا نرجو تعديله ===================== Sub طباعة_الكشوف() Range("F1").Select ActiveCell.FormulaR1C1 = "1" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 1 Legan_Test ActiveWindow.SelectedSheets.PrintOut Loop While ActiveCell.Value <= Range("E1").Value Range("b1").Select End Sub

جزاك الله كل خير استاذ منير نرجو وضع شيت للابتدائي به اسماء المواد ودرجاتها واخر للاعدادي مطابق للقرار 377 مره اخرى جزاك الله خيرا

بسم الله الرحمن الرحيم هذا كود خاص بعمل اللجان المدرسيه ومضبوط لكننا نحتاج لكود لطباعه اللجان كلها مره واحده جزاكم الله خيرا لجان كنترول مدرسي.rar

Sub Legan_Test() Dim Main As Worksheet Dim sh As Worksheet Dim arr As Variant Dim arrC As Variant Dim temp1 As Variant Dim temp2 As Variant Dim lr As Long Dim i As Long Dim j As Long Dim k As Long Dim p1 As Long Dim p2 As Long Set Main = Sheets("بيانات الطلبة") Set sh = Sheets("كشوف المناداة ") lr = Main.Cells(Rows.Count, 5).End(xlUp).Row Application.ScreenUpdating = False sh.Range("C10:F39").ClearContents sh.Range("K10:N39").ClearContents sh.Rows("10:39").Hidden = False arr = Main.Range("A7:V" & lr).Value 'ارقام الاعمده المطلوب ترحيلها arrC = Array(2, 5, 15, 16) ReDim temp1(1 To UBound(arr, 1) + 1, 0 To UBound(arrC) + 1) ReDim temp2(1 To UBound(arr, 1) + 1, 0 To UBound(arrC) + 1) For i = 1 To UBound(arr) 'رقم عمود رقم اللجنه في صفحه المصدر If arr(i, 18) = sh.Range("E3").Value Then p1 = p1 + 1 For j = 0 To UBound(arrC) temp1(p1, j) = arr(i, arrC(j)) Next j End If 'رقم عمود رقم اللجنه في صفحه المصدر If arr(i, 18) = sh.Range("M3").Value Then p2 = p2 + 1 For j = 0 To UBound(arrC) temp2(p2, j) = arr(i, arrC(j)) Next j End If Next i If p1 > 0 Then sh.Range("C10").Resize(p1, UBound(temp1, 2)).Value = temp1 If p2 > 0 Then sh.Range("K10").Resize(p2, UBound(temp2, 2)).Value = temp2 If p1 > 0 Then k = p1 If p2 > 0 And p2 > k Then k = p2 k = k + 10 If k < 39 Then sh.Rows(k & ":39").Hidden = True '=============================== 'بعض التنسيقات في اللجنه With ActiveSheet.Range("C10:N39") .EntireColumn.NumberFormat = "@" .Font.Bold = True .ReadingOrder = xlRTL: .HorizontalAlignment = xlCenter: .VerticalAlignment = xlCenter End With '=============================== Application.Visible = True Application.ScreenUpdating = True End Sub

=================== ولاانسى ذكر ان الكود للمحترم خالد الرشيدي وتعديل المحترم ياسر خليل والتعديل بسبب تغيير في متطلبات العمل فقط جزاهما الله كل خير ===== رابط اخر http://gulfup.co/3cshpowij0st

بسم الله الرحمن الرحيم احبابنا في الله ادعو الله ان تكونوا بخير يارب هذا ملف به كود خاص باخراج كشوف لجان الطلاب المدرسيه بالمصفوفات وما أسهله وما أسرعه طريقه الاستفاده من هذا الملف افتح هذا الملف اضغط على زر ALT وانت ماتزال ضاغط اضغط على F11 سيتم فتح محرر الاكواد .. ستجد امامك موديولات بها الاكواد دبل كليك على الموديول المعنون Legan_Test ثم اضغط من لوحة المفاتيح على ALT +SHEFT لتكون اللغه هي العربيه منعا لظهور اللغه العربيه بشكل طلاسم اجعل مؤشر الماوس في الكود ثم اضغط CTRL +A لتحديد الكود كله ثم CTRL+C ليتم النسخ ===== ** افتح ملفك وافتح محرر الاكواد كما اشرنا سابقا ** ومن قائمه محرر الاكواد التي فتحت امامك ** اختر Insert واختر منها Module ** ثم ضع المؤشر في Module ** والصق الكود ========== اكتب عدد اللجان التي تبغاها في الخليه G4 في صفحة بيانات الطلبه وستجد ان امام كل اسم رقم لجنته لوجود معادلات خاصه بالعالم العلامه عبد الله باقشير تضبط هذه العمليه وقد جعلتها واضحه في الصفحه حتى اضعها تحت الاضواء ماعليك الا ان تنسخها وتضعها في ملفك في نفس الخلايا اما اذا اردت تغيير مكانها فلك مطلق الحريه *** اضغط على زر الزياده والنقصان *** ثم زر استدعاء كشوف ========= احمد الله وادعو لكل من له بصمه في اخراج هذا العمل بالخير يكفي جملة جزاكم الله خيرا لجان كنترول مدرسي.rar

لجان كنترول مدرسي باضافه كتابه عدد اللجان المطلوبه فقط يتم كتابه ارقام اللجان على جميع الطلبه واضافه خاصيه ان تكون القائمه متساويه مع عدد اللجنه ( اخفاء الصفوف الفارغه في اللجنه ) لجان كنترول مدرسي.rar =========== بالمصفوفات

جزاكم الله كل خير وبارك الله في النافع

موضوع خاص باستخراج 4 شهادات في صفحه واحده بمعايير مختلفه

بسم الله الرحمن الرحيم احبابنا في الله ادعو الله ان تكونوا بخير يارب هذا ملف به كود خاص باخراج شهادات الطلاب كل 3 شهادات في صفحه وما أسهله الكود للنابغه ساجده العزاوي طريقه الاستفاده من هذا الملف افتح هذا الملف اضغط على زر ALT وانت ماتزال ضاغط اضغط على F11 سيتم فتح محرر الاكواد .. ستجد امامك موديولات بها الاكواد دبل كليك على اول موديول ثم اضغط من لوحة المفاتيح على ALT +SHEFT لتكون اللغه هي العربيه منعا لظهور اللغه العربيه بشكل طلاسم اجعل مؤشر الماوس في الكود ثم اضغط CTRL +A لتحديد الكود كله ثم CTRL+C ليتم النسخ ===== ** افتح ملفك وافتح محرر الاكواد كما اشرنا سابقا ** ومن قائمه محرر الاكواد التي فتحت امامك ** اختر Insert واختر منها Module ** ثم ضع المؤشر في Module ** والصق الكود ========== ماهي التغييرات التي تحدثها في الكود حتى يكون صالحا للاستعمال ؟ ** غير اسم صفحه مصدر البيانات ** غير اسم صفحة الشهادات ** غير رقم عمود المعيار ========= احمد الله وادعو لكل من له بصمه في اخراج هذا العمل بالخير يكفي جملة جزاكم الله خيرا **** في صفحه الشهادات يوجد خليه R7 و S7 و T7 في حاله شهادات المعيار الواحد نستطيع ان ننستدعي شهادات الناجحين كلهم او اللي عندهم دور تان كلهم بمجرد كتابه ( نا ) اختصار كلمه ناجح او (دور ) اختصار كلمه دور تان ************** اما الشهادات ذات المعيارين ففي الخليه R7 نكتب كلمه (نا ) اختصار كلمه ناجح او ( دور ) اختصار كلمه دور تان وفي الخليه S7 نكتب ( ول) اختصار كلمه ولد او نكتب (بن) اختصار كلمه بنت وهكذا نكون استطعنا ان نستدعي شهادات الاولاد الناجحين او الاولاد اللي عندهم دور تان او البنات الناجحين او البنات اللي عندهم دور تان ************** اما الشهادات ذات الثلاثه معايير ففي الخليه R7 نكتب كلمه (نا ) او ( دور ) وفي الخليه S7 نكتب ( ول ) اختصار كلمه ولد او نكتب ( بن ) اختصار كلمه بنت وفي الخليه T7 نكتب الفصل (3/1 ) مثلا وهكذا نكون استطعنا ان نستدعي شهادات الاولاد الناجحين في فصل معين او الاولاد اللي عندهم دور تان في فصل معين او البنات الناجحين في فصل معين او البنات اللي عندهم دور تان في فصل معين ************** يكفي جملة جزاكم الله خيرا https://up.top4top.net/downloadf-661r3nat1-rar.html === رابط اخر http://gulfup.co/gpl28i1u5gzs للعلم هذا الموضوع خاص باستخراج 4 شهادات في صفحه واحده بمعايير مختلفه وليس 3 شهادات مثل الموضوع السابق موضوع خاص باستخراج 3 شهادات في صفحه واحده بمعايير مختلفه

في صفحه الشهادات يوجد خليه R7 و S7 و T7 في حاله شهادات المعيار الواحد نستطيع ان ننستدعي شهادات الناجحين كلهم او اللي عندهم دور تان كلهم بمجرد كتابه ( نا ) اختصار كلمه ناجح او (دور ) اختصار كلمه دور تان ************** اما الشهادات ذات المعيارين ففي الخليه R7 نكتب كلمه (نا ) اختصار كلمه ناجح او ( دور ) اختصار كلمه دور تان وفي الخليه S7 نكتب ( ول) اختصار كلمه ولد او نكتب (بن) اختصار كلمه بنت وهكذا نكون استطعنا ان نستدعي شهادات الاولاد الناجحين او الاولاد اللي عندهم دور تان او البنات الناجحين او البنات اللي عندهم دور تان ************** اما الشهادات ذات الثلاثه معايير ففي الخليه R7 نكتب كلمه (نا ) او ( دور ) وفي الخليه S7 نكتب ( ول ) اختصار كلمه ولد او نكتب ( بن ) اختصار كلمه بنت وفي الخليه T7 نكتب الفصل (3/1 ) مثلا وهكذا نكون استطعنا ان نستدعي شهادات الاولاد الناجحين في فصل معين او الاولاد اللي عندهم دور تان في فصل معين او البنات الناجحين في فصل معين او البنات اللي عندهم دور تان في فصل معين ************** يكفي جملة جزاكم الله خيرا ================ نفس الملف على رابط هديه من المحترم ياسر خليل جزاه الله خيرا http://www.mediafire.com/file/gijv96lp85d5661/شهادات+الطلاب+1.rar

رابط اخر لنفس الملف https://www.gulf-up.com/downloadf-1508711740761-rar.html

***************** Sub ثلاثة_معايير() ' هذا الكود للنابغه ساجده العزاوي ' وهي من أهلنا بالعراق أعز الله العراق وأذل أعداءه 'تم في اكتوبر 2017 'كمعطيات المحترم ابو أحمد محمدي 'الهدف من الكود هو استخراج الشهادات 'كل 3 شهادات في صفحه واحدة 'بثلاث معايير '=*=*=*=*=* Dim SHEHADA As Worksheet, DATA As Worksheet Dim myArray, targt, targt2, targt3 As String 'اسم صفحة المصدر Set DATA = Worksheets("رصد الترم الثانى") 'اسم صفحة الهدف Set SHEHADA = Worksheets("3 شهادات ب3 معايير") '=================== 'targt = "ناج*" ' targt2 = "ول*" ' targt3 = "5/1" targt = SHEHADA.Range("R7").Value & "*" targt2 = SHEHADA.Range("S7").Value & "*" targt3 = SHEHADA.Range("T7").Value & "*" '=================== c = 0 Application.ScreenUpdating = False lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row 'اخر صف به بيانات ' عدد الصفوف الخارجة 'عن التوزيع في ورقة مصدر البيانات 'هذا السطر في حال شهادات الكل For i = 7 To lr 'هذا السطر في حال طلب شهادات محدده ' For i = sh4.Cells(7, 18).Value To sh4.Cells(7, 19).Value '======= If DATA.Cells(i, 101) Like targt & "*" And DATA.Cells(i, 104) Like targt2 & "*" And DATA.Cells(i, 103) Like targt3 & "*" And c = 0 Then Range("M3") = DATA.Cells(i, 2) c = c + 1 '=== ElseIf DATA.Cells(i, 101) Like targt & "*" And DATA.Cells(i, 104) Like targt2 & "*" And DATA.Cells(i, 103) Like targt3 & "*" And c = 1 Then Range("M19") = DATA.Cells(i, 2) c = c + 1 '=== ElseIf DATA.Cells(i, 101) Like targt & "*" And DATA.Cells(i, 104) Like targt2 & "*" And DATA.Cells(i, 103) Like targt3 & "*" And c = 2 Then Range("M35") = DATA.Cells(i, 2) c = c + 1 '=== ' ElseIf DATA.Cells(i, 101) Like targt & "*" And DATA.Cells(i, 104) Like targt2 & "*" And DATA.Cells(i, 103) Like targt3 & "*" And c = 3 Then ' SHEHADA.Range("M51") = DATA.Cells(i, 2) ' c = c + 1 '=== End If ' If i = lr And c = 4 Then SHEHADA.Range("a1:p63").PrintOut: Exit For If i = lr And c = 3 Then SHEHADA.Range("a1:p47").PrintOut: Exit For If i = lr And c = 2 Then SHEHADA.Range("a1:p31").PrintOut: Exit For If i = lr And c = 1 Then SHEHADA.Range("a1:p15").PrintOut: Exit For If i < lr And (Range("M19") = "" Or Range("M35") = "" Or SHEHADA.Range("M51") = "") Then GoTo 1 If i < lr And c = 3 Then SHEHADA.Range("a1:p47").PrintOut c = 0 Range("M3") = "" Range("M19") = "" Range("M35") = "" ' Range("M51") = "" 1: Next i Range("M3") = "" Range("M19") = "" Range("M35") = "" ' Range("M51") = "" Application.ScreenUpdating = True End Sub هذا احد الاكواد الموجوده .. سهوله ودقه ويسر .. يسرها الله على الجميع **************** نرجو من احد المشرفين المحترمين ان يضع الملف على المنتدى حتى لايضيع

بسم الله الرحمن الرحيم احبابنا في الله ادعو الله ان تكونوا بخير يارب هذا ملف به كود خاص باخراج شهادات الطلاب كل 3 شهادات في صفحه وما أسهله الكود للنابغه ساجده العزاوي طريقه الاستفاده من هذا الملف افتح هذا الملف اضغط على زر ALT وانت ماتزال ضاغط اضغط على F11 سيتم فتح محرر الاكواد .. ستجد امامك موديولات بها الاكواد دبل كليك على اول موديول ثم اضغط من لوحة المفاتيح على ALT +SHEFT لتكون اللغه هي العربيه منعا لظهور اللغه العربيه بشكل طلاسم اجعل مؤشر الماوس في الكود ثم اضغط CTRL +A لتحديد الكود كله ثم CTRL+C ليتم النسخ ===== ** افتح ملفك وافتح محرر الاكواد كما اشرنا سابقا ** ومن قائمه محرر الاكواد التي فتحت امامك ** اختر Insert واختر منها Module ** ثم ضع المؤشر في Module ** والصق الكود ========== ماهي التغييرات التي تحدثها في الكود حتى يكون صالحا للاستعمال ؟ ** غير اسم صفحه مصدر البيانات ** غير اسم صفحة الشهادات ** غير رقم عمود المعيار ========= احمد الله وادعو لكل من له بصمه في اخراج هذا العمل بالخير يكفي جملة جزاكم الله خيرا https://up.top4top.net/downloadf-660wkhd91-rar.html

السلام عليكم ورحمة الله هذا ملف لعمل الفصول المدرسيه بالمصفوفات وبه تحفه الطباعه للمحترم احمد كامل جزى الله كل من كانت له بصمه في هذا الملف فصول محمود الشريف2.rar ================= Sub طباعة_القوائم() Range("L1").Select ActiveCell.FormulaR1C1 = "1" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do ActiveCell = ActiveCell + 1 Listts ActiveWindow.SelectedSheets.PrintOut Loop While ActiveCell.Value <= Range("U2").Value Range("b1").Select End Sub *************** طريقه العمل اضغط على زر القيم الفريده ثم اختر رقم الفصل المراد استخراج قائمته ثم اضغط طباعه ستجد ان الكود يطبع جميع قوائم الفصول .. وهي ميزه

جزاك الله كل خير وبارك لك استاذ ahmedkamelelsayed0 يوجد في صفحه الفصول في عمود ال T3 ارقام من 1 الى 10 لماذا تمت كتابتها ؟ واذا اردنا ان نجعل مكان الارقام فصول .. ماذا نفعل ؟