عبدالله باقشير

السلام عليكم استخدم الصيغة: =SUMPRODUCT(--(INDEX(MyRang;0;1)=$K3);--(INDEX(MyRang;0;2)=I$2)) تفضل المرفق abusarah73_18.rar

قد تكون الاعمدة او الصفوف مجمدة ScrollArea او الغي تجميد الالواح من اطار والله اعلم

السلام عليكم اخي الفاضل / يوسف----------حفظه الله الحمد لله كما ينبغي لجلال وجهه وعظيم سلطانه تقبل تحياتي وشكري

السلام عليكم الله يبارك فيك اخي ابوتامر وتشكر ايضا على برنامج تسجيل الشاشة سهل للغاية سهل الله امورك في الدنيا والآخرة

السلام عليكم تفضل المرفق Attendance.rar

السلام عليكم ده حل آخر بالتصفية المتقدمة ____________.rar

السلام عليكم عند الضغط على التسجيل عندك اختيار : اين يخزن الماكرو ؟ اختار هذا المصنف

السلام عليكم الاخ الحبيب / محمدي --------------حفظه الله تم تنفيذ المطلوب الاخ الفاضل قصي --------------حفظه الله ده كود ماخوذ من احد الملفات التعليمية في المنتدى واستخدمته فقط لملىء اعمدة التقديرات الفارغة لتظهر على النتيجة وقد قمت بتعديل الكود حسب طلبك لياخذ المستويات المطلوبة في الحالات التي طلبتها Function Kh_Mustowa(MyVal As Variant, Optional خلية_ربع_الدرجة, Optional ربع_الدرجة) As String If IsError(خلية_ربع_الدرجة) Or IsError(ربع_الدرجة) Then GoTo 1 If (IsNumeric(خلية_ربع_الدرجة) And IsNumeric(ربع_الدرجة) And خلية_ربع_الدرجة < ربع_الدرجة) Or _ خلية_ربع_الدرجة = "غ" Or خلية_ربع_الدرجة = "غـ" Then Kh_Mustowa = "دون المستوى": Exit Function End If 1: If MyVal < 0 Then Kh_Mustowa = "أقل من 0 مرفوض" If MyVal >= 0 Then Kh_Mustowa = "دون المستوى" If MyVal >= 50 Then Kh_Mustowa = "مقبول" If MyVal >= 65 Then Kh_Mustowa = "جيد" If MyVal >= 75 Then Kh_Mustowa = "جيد جدا" If MyVal >= 85 Then Kh_Mustowa = "متاز" If MyVal > 100 Then Kh_Mustowa = "اكبر من 100 مرفوض" End Function هذه الحالة من طلبات الاخ محمدي جزاه الله خيراً هو الذي اخبرني بها لاطبقها على الملف سؤال هذه الحالة هل تضاف في كشوفات دور ثاني؟؟؟ اذا كان كذلك فقد قمت باضافتها والا فالجواب منكم وقد تم تعديل بعض الاخطاء في الاكواد تفضلوا المرفق ________________________________5.rar

السلام عليكم حسب ما فهمته من سؤالك والله اعلم استخدم المعادلة: =IF(D10="";0;SUM(A10:D10))

السلام عليكم كود ممتاز اخي ابوتامر حفظك الله ارجوا انت تكون في حالة طيبة فحضرتك من الاشخاص الذي لايمكن الاستغناء عنهم ولك وحشة ولا ننسى افضالك علينا وعل غيرنا فمن علمني حرفا كنت له عبدا تقبل تحياتي وشكري تقبل مروري ودمتم في حفظ الله اخوكم عبالله خبور

السلام عليكم كود منقول اعجبني وتم التعديل عليه ليتناسب مع طلبك ===================================================== والذي اعجبني في هذا الكود انه لايمكنك الاطلاع على محتويات الورقة المغلقة اثناء الانتقال اليها لفتحها وذلك لاختفاء جميع اعمدة الورقة فيها وعند وضعك كلمة المرور الصحيحة يتم اظهار اعمدتها المخفية والا ستنتقل بعد محاولة ثلاث محاولات الى حيث كنت ====================================================== وايضا اذا اغلقت الملف والورقة مفتوحة اذا فتحه مرة اخرى سينقلك الى ورقة اخرى ========================= كلمة المرور للورقة "شيت مغلق" هي : kh ======================================== الكود موضوع في الوحدة النمطية ThisWoorkbook ======================================== Private Sub Workbook_SheetActivate(ByVal Sh As Object) On Error Resume Next Dim XX As String, S As String Dim K As Integer, N As Integer If Sh.CodeName <> "ورقة1" Then Sh_Name = Sh.Name Else ورقة1.Columns.Hidden = True For K = 1 To 3 XX = InputBox(Prompt:="فضلا ادخل كلمة المرور", Title:="المحاولة رقم:" & K) If XX = "" Then Sheets(Sh_Name).Select Exit Sub ElseIf XX <> "kh" Then N = 3 - K If N = 0 Then S = "" Else S = "متبقي عدد " & N & " محاولة" MsgBox "كلمة المرور ليست صحيحة" & Chr(13) & Chr(13) & S, vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight, "عفواً" Else Exit For End If Next K If K = 4 Then Sheets(Sh_Name).Select Exit Sub Else ورقة1.Columns.Hidden = False End If End If On Error GoTo 0 End Sub تفضل المرفق kh.rar

السلام عليكم ورحمة الله وبركاته الاخ الحبيب/ محمدي-----------حفظه الله الاخ الفاضل/ صفوت-----------حفظه الله الاخ الفاضل/ math-----------حفظه الله الاخ الفاضل/ قصي-----------حفظه الله مشكورين على المرور وحسن التشجيع الاخ الفاضل/ أيسم إبراهيم -----------حفظه الله عملناها في اعلى الصفحة =COUNTIF(OFFSET(E7;1;;$E$2;1);"مسلم*") وفي التذييل =COUNTIF(OFFSET(W4;$E$2*-1;;$E$2;1);"مسلم*") اختار ما تشاء ______2.rar

السلام عليكم الاخ قصي اعطينا معيار المستوى بالتفصيل

السلام عليكم الاخ الفاضل / Engineer. Saleh-----------حفظه الله الاخ الفاضل / mfawaz-----------حفظه الله الاخ الفاضل / عادل-----------حفظه الله الاخ الفاضل / m_127-----------حفظه الله الاخ الفاضل / يحي-----------حفظه الله الاخ الفاضل / bu3mmar-----------حفظه الله الاخ الفاضل / الجزيرة-----------حفظه الله الاخ الفاضل / بليش روغ-----------حفظه الله مشكور حسن مروركم وتشجيعكم اكرمكم الله تقبلوا تحياتي وشكري ====================== الاخ الفاضل / عادل-----------حفظه الله اذهب الى القائمة ادراج / الاسم / تعريف سترى اسم الجدول وهو نطاق الخلايا وايضا الكود [code]=INDEX(الجدول;MATCH($E$10;INDEX(الجدول;0;D$4;$B14);0);1;$A14) وهذه الصيغة الموجودة في جدول الحصص التي تعطيك اسم المادة واسم المدرس ودمتم

السلام عليكم الاخ الفاضل / أيسم إبراهيم -----------حفظه الله طلبك في الرابط التالي: توزيع على ثلاث لجان في ورقة طباعة واحدة الاخ الفاضل / خالد القدس-----------حفظه الله الاخ الفاضل / كات-----------حفظه الله الاخ الفاضل / سالم-----------حفظه الله الاخ الفاضل / قصي-----------حفظه الله مشكورين على مروركم وحسن تشجيعكم تقبلوا تحياتي وشكري

السلام عليكم ورحمة الله وبركاته نموذج توزيع على ثلاث لجان في ورقة واحدة للطباعة ورقة طباعة بالعرض بادخال عدد صفوف اللجان طلب للاخ / أيسم إبراهيم جعلته هنا لتعم الفائدة كود التوزيع: Sub KH_START() On Error Resume Next Dim MyRang_1 As Range, MyRang_2 As Range, MyRang_Formats As Range Dim S As Integer, E As Integer, W As Integer, V As Integer, T As Integer, TT As Integer _ , H As Integer, M As Integer, Y As Integer, Z As Integer, N As Integer, U As Integer _ , R As Integer, C As Integer, CC As Integer, O As Integer, EE As Integer, SS As Integer '======================================= If [B2] = False Then MsgBox "تاكد من الشرط في الخلية B2", vbMsgBoxRtlReading, "تنبيه": GoTo 1 '======================================= S = Application.CountA(ورقة1.Range("B6:B1005")) ' عددالطلبة E = [E2] ' عدد طلاب اللجنة T = Application.RoundUp(S / (E * 3), 0) ' عدد الكشوفات TT = Application.RoundUp(S / E, 0) W = 7 ' عدد الصفوف الخارجة عن التوزيع في ورقة الكشوفات V = 5 ' عدد الصفوف الخارجة عن التوزيع في ورقة البيانات H = E + 4 + 3 ' عدد طلاب اللجان زايدا رؤؤس الاعمدة والتذييل Set MyRang_1 = Range("راس_اللجان") Set MyRang_2 = Range("تذييل_اللجان") Set MyRang_Formats = Range("فورمات") KH_Clear '================================ Application.ScreenUpdating = False ActiveWindow.View = xlPageBreakPreview '================================ For M = 1 To T If M <> 1 Then MyRang_1.Copy Range("B" & W - 3) Set ActiveSheet.HPageBreaks(M - 1).Location = Range("B" & W - 3) End If Y = 2 For Z = 1 To 3 EE = Application.RoundUp((S - (V - 5)) / (TT - SS), 0) SS = SS + 1 MyRang_Formats.Copy Cells(W + 1, Y).Resize(E, 5).PasteSpecial xlPasteFormats Application.CutCopyMode = False MyRang_2.Copy Cells(W + E + 1, Y) For N = 1 To EE U = N + W: R = N + V For C = 1 To 4 CC = Choose(C, 11, 2, 8, 10) Cells(U, Y + C) = ورقة1.Cells(R, CC) Next C If Cells(U, Y + 1) <> "" Then Cells(U, Y) = N Next N V = V + EE: Y = Y + 6 Next Z W = W + H Next M '================================ ActiveWindow.View = xlNormalView With ActiveSheet O = .UsedRange.Rows.Count .PageSetup.PrintArea = .Range("B4:R" & O).Address End With '================================ Application.ScreenUpdating = True Range("A4").Activate معاينة On Error GoTo 0 1 End Sub ودمتم في حفظ الله ______2.rar

السلام عليكم في المرفق كودين يقوما بالتصفية الاول : يشير الى الورقة المنقول اليها البيانات بالكود نيم(Codename) ورقة1 Sub GetRecords() Range("Database").AdvancedFilter Action:=xlFilterCopy _ , CriteriaRange:=ورقة1.Range("G1:G2") _ , CopyToRange:=ورقة1.Range("A4:E4"), Unique:=False End Sub الثاني: يشير الى الورقة المنقول اليها البيانات باسم الورقة(name) Sheets("ورقة2") Sub GetRecords_1() Range("Database").AdvancedFilter Action:=xlFilterCopy _ , CriteriaRange:=Sheets("ورقة2").Range("G1:G2") _ , CopyToRange:=Sheets("ورقة2").Range("A4:E4"), Unique:=False End Sub وايضا اسم عمود المعيار لازم يؤخذ من اسماء اعمدة البيانات تاريخ الميلاد _______________________.rar

السلام عليكم تم اضافة الدوائر الى الشهادات وتم اضافة تذييل في كشوفات الناجحين ودور ثاني الاخ كات المستوى ده عملته لملىء فراغ عمود التقديرات حتى تظهر على الشهادة يعني تحصيل حاصل اما حالة الطالب والمواد ووضع الدوائر فهي تعمل بشكل صحيح حسب معايير الكود لم يرد الاخ قصي على الاضافات الجديدة لعل المانع خيراً ودمتم KH_4.rar

السلام عليكم الاخ الفاضل /عادل ------------حفظه الله الحل بطريقة اخرى مع الشرح انظر الى الرابط http://www.officena.net/ib/index.php?showtopic=28780 ====================================== الاخ الفاضل /خالد القدس------------حفظه الله تقبل تحياتي وشكري الاخ الحبيب/طارق------------حفظه الله الشكر واصل لمرورك وتشجيعك تقبل تحياتي وشكري

السلام عليكم في المرفق شرح لاستخدام دالة INDEX كنموذج مرجع وهو طلب للاخ / عادل 123 في الموضوع اخراج جدول الصفوف بالرابط: http://www.officena.net/ib/index.php?showt...mp;#entry140242 =INDEX(reference,row_num,column_num,area_num) النطاق المسمى ( الجدول) المستخدم كمرجع =جدول!$C$3:$C$26;جدول!$D$3:$D$26;جدول!$E$3:$K$26;جدول!$L$3:$R$26;جدول!$S$3:$Y$26;جدول!$Z$3:$AF$26;جدول!$AG$3:$AM$26 المعادلة: =INDEX(الجدول;MATCH($E$10;INDEX(الجدول;0;D$4;$B14);0);1;$A14) شرح من تعليمات الدالة INDEX INDEX إرجاع مرجع الخلية عند تقاطع صف مع عمود محدد. إذا كان المرجع يتكون من تحديدات غير متجاورة، يمكنك اختيار التحديد لمراجعته. يوجد للدالة INDEX نموذجان لبناء الجملة: صفيف ومرجع. يقوم نموذج الصفيف دائماً بإرجاع قيمة أو صفيف من القيم؛ بينما يقوم نموذج المرجع دائماً بإرجاع مرجعاً. بناء الجملة 2 نموذج مرجع INDEX(reference,row_num,column_num,area_num) Reference (مرجع) هو مرجع لنطاق واحد من الخلايا أو أكثر. إذا أدخلت نطاقاً غير متجاور للمرجع، يجب وضع المرجع في قوسين. إذا احتوت كل ناحية في مرجع على صف أو عمود واحد، تكون الوسيطة row_num أو column_num، على الترتيب، اختيارية. على سبيل المثال، استخدم لمرجع صف منفرد INDEX(reference,,column_num). Row_num (عدد الصفوف) هو عدد الصفوف في المرجع الذي سيتم إرجاع مرجع منه. Column_num (عدد الأعمدة) هو عدد الأعمدة في مرجع الذي سيتم إرجاع مرجع منه. تقوم Area_num (رقم الناحية) بتحديد نطاق في مرجع حيث سيتم إرجاع تقاطع row_num وcolumn_num منه. تأخذ الناحية الأولى المحددة او المدخلة الرقم 1، والثانية 2، وهكذا. في حالة حذف area_num، تستخدم INDEX الناحية 1. مثلاً، إذا وصف المرجع الخلايا (A1:B4,D1:E4,G1:H4)، تكون area_num 1 هي النطاق A1:B4 و area_num 2 هي النطاق D1:E4 و area_num 3 هي النطاق G1:H4. ملاحظات بعد تحديد مرجع وarea_num لنطاق معين، تقوم row_num وcolumn_num بتحديد خلية معينة: row_num1 هي الصف الأول في النطاق و column_num1 هي العمود الأول، وهكذا. ويكون المرجع الذي يتم إرجاعه بواسطة INDEX هو تقاطع row_num و column_num. إذا قمت بتعيين row_num أو column_num إلى 0 (صفر)، تقوم INDEX بإرجاع المرجع للعمود أو الصف بأكمله على الترتيب. يجب أن يشير row_num و column_num و area_num إلى خلية داخل مرجع؛ وخلاف ذلك، تقوم INDEX بإرجاع قيمة الخطأ !REF#. وفي حالة تجاهل row_num و column_num، تقوم INDEX بإرجاع الناحية في المرجع المحدد بواسطة area_num. يكون ناتج دالة INDEX مرجعاً ويتم تفسيره هكذا بواسطة الصيغ الأخرى. واعتماداً على الصيغة، قد يتم استخدام قيمة الإرجاع لـ INDEX كمرجع أو كقيمة. مثلاً، تكون الصيغة ((CELL("width",INDEX(A1:B2,1,2 متكافئة مع (CELL("width",B1. وتستخدم دالة CELL قيمة الإرجاع لـ INDEX كمرجع خلية. ومن ناحية أخرى، تترجم صيغة مثل 2*(INDEX(A1:B2,1,2 قيمة الإرجاع لـ INDEX إلى الرقم الموجود في خلية B1. table_2.rar

السلام عليكم تم تعديل الكود ليتلائم مع ملفك Sub Trheell() 'منقول من احد مشاركات الأستاذ خبور خير On Error Resume Next Dim MySheets As String Dim X As Integer, R As Integer, N As Integer, C As Integer Application.ScreenUpdating = False Sheets("ناجح").Range("A7:CV9999").ClearContents Sheets("راسب").Range("A7:CV9999").ClearContents X = Range("A" & Rows.Count).End(xlUp).Row For R = 7 To X If Cells(R, "CV") <> "" And Cells(R, "C").Value <> 0 Then MySheets = Cells(R, "CV") With Sheets(MySheets) N = .Range("A" & .Rows.Count).End(xlUp).Row + 1 If N < 7 Then N = 7 .Cells(N, 1) = N - 6 For C = 2 To 100 .Cells(N, C) = Cells(R, C) Next C End With End If Next R Application.ScreenUpdating = True MsgBox "!تم الترحيل بنجاح", vbInformation + vbMsgBoxRight, "تم الترحيل" 'Range("C5").Select On Error GoTo 0 End Sub

السلام عليكم لم اعرف اجابة لهذا السؤال اوانني لم افهم السؤال؟؟؟

السلام عليكم اخي الفاضل / 2007----------حفظه الله اخي الفاضل / wwn----------حفظه الله تقبلا تحياتي وشكري