سليم حاصبيا

لقد وضعت لك جدولاً للاسم الاول (و لم استطع المتابعة لضيق الوقت) يمكنك المتابعة بنفس المعادلات انظر الى الورقة Salim حضور Salimوانصراف.rar

هل تريد ذلك لكل موظف ام الاجمالي للجميع

انسخ هذه المعادلة الى الخلية C1 اضغط Ctrl+Shift+Enter و ليس Enter وحدها ثم اسحب نزولاً =A1-(MIN(IF(A1-($E$1:$E$24)<0,MAX($E$1:$E$24)+1,A1-($E$1:$E$24)))) اذا لم تعمل معك المعادلة استبدل الفاصلة "," بفاصلة منقوطة ";" (حسب اعدادات الجهاز عندك ) لتصبح هكذا =A1-(MIN(IF(A1-($E$1:$E$24)<0;MAX($E$1:$E$24)+1;A1-($E$1:$E$24))))

تأكد ينفسك HELP salim.rar اخي ياسر : لا أعلم اذا لاحظت ان عملية الحساب موضوعة قي ملف المرقوع هي Manual

جرب هذه المعادلة في الخلية A5 وذلك باستعمال (Ctrl+Shift+Enter) و ليس Enter وحدها لانها معادلة صفيف Array_Formula واسحب نزولاً =SUM(IF($E$4:$J$4=$B$2,$E5:$J5,0))

جرب هذه المعادلة(بدون Ctrl+Shift+Enter) =SUMPRODUCT(('الصف 1'!$D$2:$D$65536="مسلم")*('الصف 1'!$I$2:$I$65536=8)

و ما أوتيتم من عِلمٍ فهو قليل....

لا اعلم ما السبب في ذلك مع انه يعمل عندي بصورة حيدة تم رفعه مرة ثانية hor_to_vert1.rar

جرب هذه الكود (في الورقة الاولى ليست مدرجة كل المعلومات المطلوبة في الورقة الثانية)مثلاً :اسم والد التلميذ نستطيع التعديل على الكود بعد ادراج هذه المعلومات الافضل رفع الملف دون زركشات وألوان غير متناسقة تجعل الشخص غير قادر على رؤية البيانات الا بعد جهد جهيد و مما يثقل الملف الى حد كبير(تصور حجم الملف 1.3 ميغا) و المفروض الا يتجاوز ال 200 كيلو Option Explicit Sub filter_me() Application.EnableEvents = False Dim My_Sh As Worksheet, Source_Sh As Worksheet Dim last_row As Long Dim lr As Long Dim My_rg As Range Dim My_First As Long, i As Long My_First = 11 Set My_Sh = Sheets("سجل قيد الطلاب المستجدين"): Set Source_Sh = Sheets("بيانات الطلاب") last_row = My_Sh.Cells(Rows.Count, "c").End(3).Row If last_row < 11 Then last_row = 11 lr = Source_Sh.Cells(Rows.Count, "c").End(3).Row If lr < 17 Then lr = 17 My_Sh.Range("c11:p" & last_row).ClearContents For i = 17 To lr If Source_Sh.Range("F" & i) = "مستجد" _ Or Source_Sh.Range("F" & i) = "مستجدة" Then With My_Sh .Cells(My_First, "c") = Source_Sh.Range("c" & i) .Cells(My_First, "e") = Source_Sh.Range("h" & i) .Cells(My_First, "f") = Source_Sh.Range("i" & i) .Cells(My_First, "g") = Source_Sh.Range("j" & i) .Cells(My_First, "k") = Source_Sh.Range("n" & i) .Cells(My_First, "L") = Source_Sh.Range("e" & i) .Cells(My_First, "M") = Source_Sh.Range("f" & i) .Cells(My_First, "o") = Source_Sh.Range("L" & i) .Cells(My_First, "p") = Source_Sh.Range("m" & i) My_First = My_First + 1 End With End If Next Application.EnableEvents = True End Sub

جرب هذا الماكرو Private Sub UserForm_Activate() Dim i% For i = 17 To 42 If i <= 32 Then Me.Controls("Label" & i) = Range("c" & i - 14) If i = 33 Then i = 37 Me.Controls("Label" & i) = Range("d" & i - 34) next End Sub

كي نفعل ذلك يجب ان نحتال على اكسل اليك هذه الحيلة: 1-قبل عملية النسخ قم باستبدال علامة"=" قي كل الورقة بأي شي اخر مثلاً "##^^" و ذلك من خلال الضغط على Ctrl+H والقيام يعملية الاستبدال Replace All بذلك تتعطل كل المعادلات في الورقة ( حيث لا يوجد "=" لتنفيذ المعادلة) 2-قم بنسخ الورقة الى المكان المطلوب 3- قم باستبدال "##^^" يعلامة "=" في الورقتين المصدر و الهدف

ربما يكون الحل هنا الملف مرفق استعمل هذا الكود Option Explicit Sub Give_Data() Dim Target_sheet As Worksheet Dim sh1, sh2 As Worksheet Dim lr1%, lr2%, lr3%, x% Dim my_rg As Range Application.ScreenUpdating = False Set Target_sheet = Sheets("3") Set sh1 = Sheets("1"): Set sh2 = Sheets("2") lr1 = sh1.Cells(Rows.Count, 1).End(3).Row lr2 = sh2.Cells(Rows.Count, 1).End(3).Row Target_sheet.Range("a1").CurrentRegion.ClearContents With sh1 Set my_rg = .Range("C3:C" & lr1).SpecialCells(2, 23) my_rg.Offset(0, -2).Copy Target_sheet.Range("a1") my_rg.Offset(0, 0).Copy Target_sheet.Range("b1") my_rg.Offset(0, 2).Copy Target_sheet.Range("c1") End With lr3 = Target_sheet.Cells(Rows.Count, 1).End(3).Row With sh2 Set my_rg = .Range("C4:C" & lr2).SpecialCells(2, 23) my_rg.Offset(0, -2).Copy Target_sheet.Range("a" & lr3 + 1) my_rg.Offset(0, 0).Copy Target_sheet.Range("b" & lr3 + 1) my_rg.Offset(0, 2).Copy Target_sheet.Range("c" & lr3 + 1) End With lr3 = Target_sheet.Cells(Rows.Count, 1).End(3).Row For x = lr3 To 2 Step -1 If Target_sheet.Cells(x, 2) = 0 Then Target_sheet.Cells(x, 1).Resize(1, 3).Delete Shift:=xlUp Next Application.ScreenUpdating = True End Sub copy_Positives.rar

حاول الخروج من الملف دون Save

جرب هذا الملف بيانات موظفين salim.rar

جرب هذا الملف صفحة Salim Filtr.rar

وهذا ملف اخر بردو معادلات hor_to_vert.rar

جرب هذا الملف 10 salim1.rar

اذا كانت قيمة iF تساوي FALSE من الطبيعي ان يكون الجواب صفر (حسب شروط المعادلة)

لا أعلم اذا كان هذا المطلوب salim 10.rar

تم معالجة الامر قائمة مع VLOOKUP salim.rar

تم معالجة الامر قائمة مع VLOOKUP salim.rar

ﻻظهار المقترحات الخاصة بالكود يجب ان يبدأ كل كود بعبارة Option Explicit قبل كلمة sub و اعلان كل متغير و نوعه بواسطة Dim مثلاً dim My_Val as integer dim sh as worksheet و هكذا...... و في حال تم استعمال متغير غير مغرف يقوم الكود يتنبيهك الى ذلك

جرب هذه المعادلة(دون خيارات) =IF(OR(ISTEXT((C5)),C5=""),"",VLOOKUP(MONTH(C5),{1,"jan","يناير";2,"feb","فبراير";3,"mar","مارس";4,"apr","ابريل";5,"may","مايو";6,"jun","يونيو";7,"jul","يوليو";8,"aug","اغسطس";9,"sep","سبتمبر";10,"oct","نوفمبر";11,"nov","اوكتوبر";12,"dec","ديسمبر"},2,0))

و هذا ما تفعله المعادلان انظر الى المرفق (لا تعديل في اعدادات المنطقة و اذا كنت قد فمت بها ارجعها الى ما كانت عليه ) تاريح 1.rar

ريما يكون المطلوب تاريح.rar