محمد زيدان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

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

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