علي المصري

المرفق بعد الغاء الحماية 1111.xlsb

جرب المعادلة التالية =SUM(IF(F6<$F$6:$F$22,1/COUNTIF($F$6:$F$22,$F$6:$F$22)))+1 بعد كتابتها اضغط على shift +ctrl +Enter Students Rank.xlsx

السلام عليكم ورحمة الله وبركاته الكود التالي يقوم بجلب الاسماء من StudentsNames إلى Analysis يبحث فقط عن اسماء الشعب المكتوبة بهذه الطريقة مثلا 12A أو 12-1 اريد التعديل بحيث يبحث ايضا عن الشعبة اذا تم كتابتها بهذه الطريقة 12/1 حاولت التعديل ولم استطع ( هذا الكود لاحد الاعضاء منذ فترة ولكني لا اتذكر الاسم ) Set rng1 = Worksheets("StudNames"): Set rng2 = Worksheets("Analysis") S = Mid(rng2.[AB1], 1, Len(rng2.[AB1]) - 1) & "-" & Right(rng2.[AB1], 1): t = rng2.[AB1] X = Application.CountIf(rng1.Range("B:B"), S) + Application.CountIf(rng1.Range("B:B"), t) Y = IIf(Range("LangCod") = 2, 5, 4) rng2.Range("B8:C42") = Empty For i = 1 To X rng2.Cells(7 + i, "B").Value = i For Each cel In rng1.Range("B2:B5000") If (cel = S Or cel = t) And cel.Offset(0, -1) = i Then _ rng2.Cells(7 + i, "C").Value = rng1.Cells(cel.Row, Y).Value Next Next 1111.xlsb

السلام عليكم ورحمة الله وبركاته الكود التالي استخدمه لحفظ الشيت في صورة بي دي اف ولكن لا يعمل مع بعض الاجهزة ولا اعرف السبب Function CrePDF(WS As Object, MyPath As String, OverFile As Boolean, OpenPDF As Boolean) As String Dim FilExt As String Dim Fname As Variant If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then If MyPath = "" Then FilExt = "PDF Files (*.pdf), *.pdf" Fname = Application.GetSaveAsFilename("", filefilter:=FilExt, Title:="Create PDF") If Fname = False Then Exit Function Else Fname = MyPath End If If OverFile = False Then If Dir(Fname) <> "" Then Exit Function End If On Error Resume Next WS.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=OpenPDF On Error GoTo 0 If Dir(Fname) <> "" Then CrePDF = Fname End If End Function فهل اجد الحل لديكم هل من الممكن ان تكون السبب من نسخة 32 بت نسخة 64 بت

شكرا جزيلا جزاكم الله خيرا

معذرة نسيت ارفق الملف Masry_Extra3333333.xlsm

السلام عليكم ورحمة الله وبركاته عند نسخ بيانات واضافتها إلى الصحفة Salim او نسخ الكود ووضعه في ملف جديد بنفس مسميات الاواراق يعطي الرسالة الموضحة بالصورة المرفق

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

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

شكرا جزيلا جزاكم الله خيرا اعطاني خطا هنا انا بدلت الحين Aux-sh الى Col هل هذا صحيح

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

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

هذا الوقت مع عدد الصفوف 1800

يتم حسابها في السيستم لكل شعبة فهي نسبة جاهزة اضفت هذا قبل نهاية الكود واعطت النتيجة صحيحة With Sheets("Sheet3") With .Range("O2").Resize(New_row - 1, 13) .Cells(1, 13).Resize(New_row - 1, 1).Formula = _ "=SUMPRODUCT(--($P2&$Q2&$R2=$A$2:$A$10000&$B$2:$B$10000&$C$2:$C$10000),(L$2:L$10000)/$O2)" .Value = .Value End With End With

شكرا جزيلا اخي الكريم بالنسبة الى حساب المتوسط مرتبط ايضا بنفس الشروط الثلاثة وياخذ النتيجة من العمود L حيث تم جمع القيم بحسب الشروط الثلاثة كما في باقي الخلايا مع قسمتها على عدد مرات ا لتكرار الموج في الخلية O اذا امكن تعديل هذه الجزئية لاني لم استطع تعديلها شاكرا لك اهتمامك وسرعة ردك

السلام عليكم استاذ سليم اعني ان الاعمدة التي بها الروز A,B.B+,C,C+,D,E,F,average انا كاتب بها معادلة لحساب القيم فيها فلا اريد ادراجها من االكود هذا ما اقصده وانما المشكلة في عملية بطء الحسابات الان شكرا جزيلا انا قمت بكتابة الكود التالي يعتمد على3 ازرار زر لحساب المدراس وفلترتها زر لتشغيل الحساب التلقائي للخلايا زر لايقف التشغيل التلقائي للحسابات هو يعمل جيد واختصر جزء بسيط من وقت الحسابات ايضا ولكنه مع البيانات الكبيرة يتاخر ايضا في الحسابات Sub AliElbasry2021() ' ' Macro2 Macro ' ' Application.ScreenUpdating = False If Sheet3.Range("P2").Value <> "" Then Sheet3.Range("P2:R10001").ClearContents End If Application.Calculation = xlManual Dim i As Integer For i = 2 To 10001 If Sheet3.Range("A" & i).Value <> "" Then Sheet3.Range("P" & i).Value = Sheet3.Range("A" & i).Value Sheet3.Range("Q" & i).Value = Sheet3.Range("B" & i).Value Sheet3.Range("R" & i).Value = Sheet3.Range("C" & i).Value Else GoTo 1 End If Next i 1 Range("P2:P10001").Select Range("P2:R10001").Select Application.CutCopyMode = False ActiveSheet.Range("$P$2:$R$10001").RemoveDuplicates Columns:=Array(1, 2, 3), _ Header:=xlNo Columns("P:R").EntireColumn.AutoFit Application.Calculation = xlAutomatic Range("A2").Select Application.ScreenUpdating = True End Sub Sub calcMe() Application.Calculation = xlAutomatic End Sub Sub Nocalc() Application.Calculation = xlManual End Sub

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

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

الفكرة التي اريد تنفيذها الجدول الملون بالاصفر يحتوي على درجات المدارس ( مدارس مختلفة ) حسب الصفوف والمادة يوجد لكل صف اكثر من شعبة لها نفس الاسم اريد كتابة صف واحد لكل مادة لكل مدرسة ويتم تجميع الاعداد حسب الصف والمدرسة ( وعملية الجمع تم تنفيذها ) ولكني اريد كتابة الصفوف والمدرسة دون تكرار كما بالجدول الملون بالاخضر Book1.xlsx

شكرا جزيلا جزاك الله خيرا

السلام عليكم ورحمة الله وبركاته ممكن تستخدم الدالة التالية =IF(OR(B2="المجموع",B2="المدور",B2=""),"",MAX($A$1:A1)+1)

السلام عليكم ورحمة الله وبركاته استخدم الدالة الدالة التالي {=IFERROR(INDEX(BandA,MATCH(1,(MyGrades=$R$8)*(MySubjects=$R$7)*(MySchools=C8),0)),"")} لجلب البيانات في الصفحة المسماة G5-8 ولكن عند التنقل بين المواد باستخدام زر التبديل ياخذ وقت طويل لكي يعطى الناتج فهل يوجد بديل لها بحيث يعطيني نفس البيانات مع سرعة انجاز مع الشكر الجزيل مرفق الملف All Subjects2 .xlsb

هذا هو طلبك ان شاء الله المطلوب.xls

حمل المرفق البحث بالرقم القومى.xlsx

جرب هذا التعديل fc = Application.WorksheetFunction.CountIfs(Sheet13.Range("C2:C5000"), invs, Sheet13.Range("B2:B5000"), invn)