احمد بدره

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

بعد إذن الأستاذ الفاضل علي ممكن تجرب كود التنقل بين الشيتات عن طريق فورم ليس به هايبر لينك إنما يتنقل إلى آخر خلية تم الوقوف بها نموذج.xlsm

أسأل الله العظيم أن ينفع بنا جميعًا ويبارك في معلمنا الأستاذ / سليم فمنه نتعلم الكثير

بعد إذن الأستاذ سليم الملف يجب حفظه بصيغة Excel Marco Enabled Workbook حتى يظل الماكرو في الملف وقم بتجربة هذا الماكرو ربما يفي بالغرض Sub a() Range("I6:L27").Select Selection.ClearContents Range("B6:E26").Select Selection.Copy Range("I6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("K6:K26") _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range("I6:I26") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet2").Sort .SetRange Range("I6:L26") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("H5").Select End Sub

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

بعد إذن أساتذنا الأفاضل تم التعديل ثانية.rar

الملف فارغ يمكنه الاستعانة بهذا الكود Sub Macro1() Range("E3").Select Selection.Copy Range("E7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E3").Select Application.CutCopyMode = False Selection.Copy Range("E7").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End Sub

هل يمكن في الترتيب بعد الأول مكرر يأتي الثاني حتى لو تكرر الأول عدة مرات والثاني إذا تكرر مرة أو عدة مرات بعد التكرار يأتي الثالث وهكذا لنهاية الترتيب

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

أولا تم تعديل الترتيب وتفضل الملف ويجب أن يكون هناك رقم جلوس لكي تتم طباعة الشهادات أما إلغاء دون المستوى كيف يتم إلغاؤها وهناك طلبة حاصلين على تقدير أقل من المطلوب وضعه أما بالنسبة للطباعة بالعرض فإنها لا تفرق إن كانت طول أم عرض وكل واحد من أعضاء المنتدى يقوم بعمل تبعًا لظروفه الخاصة والمنتدى تعليمي وليس لبرامج جاهزة ملحوظة عند رفع ملف للعمل عليه وتريد التعديل يرجى رفع الملف نفسه وتوضيح المطلوب عمله ترتيب الطلاب _salim (3)1111.xlsm

أولاً تعديل السنبة المئوية لا يسبب أي قلل لأن النسبة مؤخوذة من الدرجات والتقدير مؤخوذ من الدرجات ثانيًا لا داعي لعمل دمج مراسلات فالإكسيل يقوم ذلك ثالثًا إليك الملف بعد التعديل ترتيب الطلاب _salim (3)1111.xlsm

أولاً الكود كان يجب استبدال الفاصلة بفاصلة منقوطة لكي يعمل ثانيًا تم وضع دالة لاستخراج بيانات من الرقم القومي وهي تاريخ الميلاد والنوع ومحافظة الميلاد أما الديانة ليس لها علاقة بالرقم القومي ثالثًا كان هناك خلايا لا تستجيب للمعادلات حذفها كل ما عليك هو السحب نزولاً لأسفل في كل معادلة العاملين5.xlsm

لعل يكون هذا هو المطلوب 1.rar

جرب هذا يمكنك تشغيل الكود عن الضغط على الشعار الموجود في الخلايا من E2 : F5 طباعه اذون.xlsm

تفضل المطلوب ترتيب الطلاب _salim (3)1111.rar

تم التعديل تفضل الملف التحاليل.xlsm

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

أخي الفاضل الموديول My Printer1 يعمل عندى بلا مشاكل قمت بتغيير اسم الماكرو الموجود شكل الطابعة إلى ماكرو My Printer1 وتم عمل تعديل ليتماشي الأمر مع ورقة العمل التحاليل.xlsm

رائع أستاذ سليم بارك الله فيك أستاذنا الفاضل وجعله في ميزان حساناتك وياريت تجعل تفقيط الترتيب يأخذ المئات حتى يعرف كل طالب ترتيبه

تفضل المطلوب Aziz.rar

شاهد التعديل وأخبرني بالنتيجة التحاليل.xlsm

تم عمل المطلوب بشرط أن تكون الخلية خانة العمود c فارغة ووللتغلب على مشكلة أن هناك تم عمل معادلة في العمود F بحث إذا كانت الخلية c فارغة تعطى فراغ وإذا لم تكن فارغة تعطي 1 طبعًا هناك هناك خلايا فارغة في العمود c ويقابلها عنوان رئيسي اكتب مكان المعادلة في العمود F رقم 1 حتى لا يختفي هذا الصف أتمنى أن أكون وفقت في الشرح والآن تفضل الملف التحاليل.xlsm

المعادلة تعمل بشكل صحيح 100% على سبيل المثال عند عد الأعداد من 5 : 9 يكون 5 أعداد لأن بدأ العد من 5 إلى 9 وأكبر دليل على أن الدالة تعمل بشكل صحيح اكتب نفس تاريخ اليوم وتاريخ الشهر تعطي اليوم 0 والشهر 0 ولو قمت بزيادة تاريخ اليوم 1 وتاريخ الشهر كما هو تعطي اليوم 1 والشهر 0 أرجو أن أكون وفقت في توصيل المعلومة

عليكم السلام ورحمة الله وبركاته تم عمل المطلوب باستخدام دالة countifs تفضل الملف Book1.xlsx