محمد زيدان2024

مطلوب أفضل برنامج لتحويل ملف الاكسل الى 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

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

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

فين الملف

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

منذ ساعه, محمد هشام. said:

طلبك غير واضح بالنسبة لي  ربما لم استطع استوعابه يمكنك شرح المطلوب بشكل اكثر وضوحا عند الاجابة على هده الاسئلة 

اخي @محمد زيدان2024  ادا قمنا بترتيب كل عمود على حدى هدا سياثر على صحة البيانات المجاورة من تاريخ الميلاد وحتى عمود السنة  

في حالة قمنا بفرز عمود الاسم ابجديا مع تحديد جميع البيانات هدا من شانه ان ياثر على ترتيب عمود المجموع  وعند محاولة ترتيبه هو الاخر سيأثر على بياناتك سوف يصبح مجموع محمد مثلا يقابل اسم جرجس  

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

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

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

فرز.xlsb

10 دقائق مضت, محمد هشام. said:

سعدنا اننا استطعنا مساعدتك 

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

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

شكرا اخى الكريم

تصحيح.xlsm

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

دي معادلة من شيت نتيجةت4 الى شيت نتيجة تقييم41   

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

اريد تحويل المعادلة  الى كود يعمل تلقائي   @محمد هشام.

تحويل الى كود.xlsx

شكرا أخى الكريم

التعديل على هذا الكود

=IF(B10<>"";"";IF(E10="";"";IF(E10="غ";"غ";IF(E10>50;50;IF(E10<>"";E10;D10)))))

بحيث  اذا لم يتم كتابة في خلية E10 يتم وضع قيمة خلية D10 كما هى فى خلية F10

New ورقة عمل Microsoft Excel.xlsx

خطأ في الكود

لو حبيت اضعهم في Private Sub Worksheet_Change(ByVal Target As Range)

يكون ازاي

كيفية اضافة كود الى كود واجعلهم في كود واحد

Sub Names_Adjust()
'ضبط الأسماء قبل عملية الأبجدة
'--------------------------
Dim ch
Application.ScreenUpdating = False
 With Range("E10:E1009")
    For Each ch In Array("إ", "أ", "آ")
        .Replace CStr(ch), "ا", , , True
    Next
    .Replace "ة", "ه", , , True
    .Replace "ي ", "ى ", , , True
End With

Kill_Spaces

Application.ScreenUpdating = True

End Sub

مع الكود ده

Sub Kill_Spaces()
  Dim sh As Worksheet, lr As Long, i As Long
   Set sh = ThisWorkbook.ActiveSheet
       lr = sh.Cells(Rows.Count, 5).End(xlUp).Row
'Application.ScreenUpdating = False
  For i = 10 To lr
     Do While InStr(sh.Cells(i, 5), "  ") > 0
        sh.Cells(i, 5).Value = Replace(sh.Cells(i, 5), "  ", " ")
     Loop
       sh.Cells(i, 5).Value = Trim(sh.Cells(i, 5).Value)
  Next i
'Application.ScreenUpdating = True
End Sub

شكرا بارك الله فيك

اضافة  textbox و  combobox  الى  TypeName

فورم ادخال بيانات .xlsm

مبدع كالعادة أخى الحبيب @محمد هشام.

عند امتداد معادلة DATEDIF في  الخلايا الفارغة تظهر ارقام

حساب السن أول 10.xlsx

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