محمد زيدان2024

@محمد هشام. حضرتك استاذنا ولا يهمك يا غالى لسا عندى شيتات تانى مستنى ابداعك فيها اخى الكريم

شكرا اخى الكريم @خالد المصـــــــــــرى هذا المطلوب وشكرا للجميع شكرا أخى @محمد هشام. تحياتى لك

@محمد هشام. اخى الكريم مشكور ولكن اتصنفوا راسبين والمطلوب فصل الذكور الناحجين عن الاناث الناحجات من ورقة اجمالي 4

@محمد هشام. ارجو الحل

@عبدالله بشير عبدالله ممكن حل

المطلوب كود ترحيل بنون ناجحون في ورقة وترحيل بنات ناحجات في ورقة اخرى من ورقة اجمالي 4 ترحيل بنون ناجحون وترحيل بنات ناجحات.rar

حياك الله أخي بارك الله فيك وزادك من فضله وعلمه

ممكن فصل كل كود لوحده يعنى كود لترحيل الناحجين وكود لترحيل الراسبلين

المطلوب تحويل المعادلة الى كود في ورقة دور ثان وناجح عمل المعادلات بكود.rar

ممكن جواب

مطلوب أفضل برنامج لتحويل ملف الاكسل الى exe

شكرا بارك الله فيك فعلا انتا موسوعة اكسل @محمد هشام.

تمام شكرا اخي بارك الله فيك بس لو امكن نغير ده تتنازلي لو امكن Sub Tri_Total_column() 'ترتيب تنازلي Dim clé() As String, index() As Long, Rng As Range a = [C11:J38].Value: Set Rng = [c11] Dim b() ReDim b(LBound(a) To UBound(a), LBound(a, 2) To UBound(a, 2)) Set rCrit = CreateObject("System.Collections.Sortedlist") For i = LBound(a) To UBound(a) rCrit.Add a(i, 7) & i, i Next i For tmp = LBound(a) To UBound(a) For arr = LBound(a, 2) To UBound(a, 2) b(tmp, arr) = a(rCrit.GetByIndex(tmp - 1), arr) Next arr Next tmp Rng.Resize(UBound(b), UBound(b, 2)).Value2 = b End Sub

عند الضغط على الورقة اخري والرجوع لنفس الورقة الرتيب الابجدي لايعمل ولا التصاعدي ويعمل التنازلي

جهد مشكور بس الاكود لازم ادوس عليها مرتين علشان تشتغل

فين الملف

تمام اخى بس المجموع حضرتك عملته تصاعدى والمطلوب تنازلى من الاكبر للاصغر

فعلا المطلوب كود ترتيب ابجدي للعمود c ( الاسماء) مع تحديد جميع البيانات وكود اخر بترتيب تنازلى للمجموع للعمود i مع مع تحديد جميع البيانات كل كود منفصل عن الاخر واكيد لو رتبنا ابجدي البيانات هتختلف بما فيه المجموع ولو رتبنا تنازلى للمجموع البيانات هتختلف بما فيها الاسم

ارجو الحل @محمد هشام.

المطلوب عمل كود ترتيب ابجدي للاسماء وعمل كود ترتيب تنازلي للمجموع @محمد هشام. فرز.xlsb

الشرف لينا اخى الكريم الكلام مش هيوفي حقك والله

شكرا اخى الكريم مبدع بدرجة فنان بارك الله فيك وزادكم

شكرا اخى الكريم تصحيح.xlsm

شكرا خالص اخي @محمد هشام. بس تعديل على الكود عايز انسخ كمان بيانات من مسلسل الى تاريخ الميلاد من نتيجةت4 الى نتيجة تقييم41

دي معادلة من شيت نتيجةت4 الى شيت نتيجة تقييم41 =IF(نتيجةت4!F13="";"";IF(نتيجةت4!F13="غ";"لم يتقن المعارف";IF(نتيجةت4!F13="ازرق";"يفوق التوقعات";IF(نتيجةت4!F13="اخضر";"امتلك المعارف والمهارات";IF(نتيجةت4!F13="اصفر";"يحتاج لبعض الدعم";IF(نتيجةت4!F13="احمر";"لم يتقن المعارف")))))) اريد تحويل المعادلة الى كود يعمل تلقائي @محمد هشام. تحويل الى كود.xlsx