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

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

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

فين الملف

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

فعلا المطلوب كود ترتيب ابجدي للعمود 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

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

التعديل على هذا الكود =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

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