سليم حاصبيا

المشكلة اعتقد غي عبارة ((Max((ComboBox2 لان محتويات اي ComboBox هي عبارة عن نص و ليس رقم لذلك اقترج استبدال العبارة بـــــ Me.TextBox10 = Application.Index(Sheets("1").Range("g5:h65536"), _ Application.Match(Application.WorksheetFunction.Max((ComboBox2.Value) * 1, Sheets("1").Range("g5:g65636"), 0), 2))

انا شخصباً لم الاحظ الفرق ممكن تشرحه لي

يمكن ان يكون الحل بحث Salim.rar

الصورة لا تنفع لادراج معادلة مطلوب الملف

يعد اذن اخي حسان هذا الملف Salimجمع شرطي مع الأشهر.rar

جرب هذا الكود (يمكنك اختيار عدد الصفوف من الكود/في المثال 10) الباسورد " Salim" يمكنك تغييره ايضاً من الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row <= 10 Then ActiveSheet.Protect Password:="Salim", _ AllowInsertingRows:=False, AllowDeletingRows:=False Else ActiveSheet.Unprotect Password:="Salim" End If End Sub

ارفع جزء من الملف(اذا كان كبيراً حوالي 20 صف)للمعالجة

في الخلية E7 المعادلة:واسحب نزولاُ =D7-C7+1 في الخلية J7 المعادلة:واسحب نزولاُ =H7+I7-1 تنسيق الخلايا: Date

جرب هذا الملف صفحة Salim مواد الرسوب Salim.rar

بردو يعملها الاكسل tartib for printing final 1.rar

تفضل يا سيدي tartib for printing final.rar

هذه المعادلة في AE2 =IF(X2="","",IF(COUNTIF($AD$2:AD2,AD2)=1,Order_Salim(AD2),Order_Salim(AD2)&" مكرر : "&COUNTIF($AD$2:AD2,AD2)-1))

تم حفظ الملف بصيغة Excel 97-2003 Workbook الذي لا يحتاج الى هذا الامتداد( xlsm )

شكراً اخي بن علية على هذه المعادلة الرائعة

بعد اذن اخي بن علية الكود Option Explicit Sub InsertRowsAtValueChange() Dim WorkRng As Range Dim i As Long On Error Resume Next Range("a1:a" & Cells(Rows.Count, 1).End(3).Row).SpecialCells(4).EntireRow.Delete Set WorkRng = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row) Application.ScreenUpdating = False For i = WorkRng.Rows.Count To 2 Step -1 If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then WorkRng.Cells(i, 1).EntireRow.Insert End If Next Application.ScreenUpdating = True End Sub Sub Reset() Range("a1:a" & Cells(Rows.Count, 1).End(3).Row).SpecialCells(4).EntireRow.Delete End Sub الملف اوفيسنا salim 1.rar أخي بن علية لعدم تكرار ادراج الصفوف الفارغة في كل مرة يضغط المستخدم على الزر يجب اولاً الغاء الصفوف الفارغة قبل المباشرة بادراج صفوف فارغة جديدة Range("a1:a" & Cells(Rows.Count, 1).End(3).Row).SpecialCells(4).EntireRow.Delete

تم معالجة الامر عسى ان يكون المطلوب (صفحة العمل Salim) مطلوب كود salim Vba.rar

عفواً تم تحميل الملف خطأً الملف المطلوب مطلوب كود salim.rar

هذه المعادلة (COUNTIF(C5:C14,">=13")*100/COUNT(C5:C14=

جرب هذا الملف Facture Salim.rar

الجدول الموجود عبارة عن نصوص يشكل أرقام و لا يمكن جمعها الا بعد تحويله الى ارقام(الفاصلة في اكسل هي النقطة وليس الفاصلة العادبة)

تم معالجة الامر من حيث نقل الاسماء مرتبة ابجدياً و كذلك الارقام الى صفحة مخصصة مع العلم انه بتعديل بسيط على الكود يمكن الاستغناء عن الصفحة Salim لكني اشتغلت الكود على عجلة من أمري ولا وقت لتعديله الكود Option Explicit Sub Salim() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Sheets("الترتيب الأبجدي").Range("a:c").ClearContents If Sheets("salim").Visible = False Then Sheets("salim").Visible = True Sheets("salim").Activate Sheets("الترتيب الأبجدي").Range("a:c").ClearContents If ActiveSheet.Name <> "Salim" Then GoTo 1 Range("H4:I1000").ClearContents Dim My_Rg As Range Dim lr%, i%, m%, Last_Row% m = 4 lr = Cells(Rows.Count, 2).End(3).Row For i = 4 To lr If Cells(i, 2) <> "" Then Cells(m, "y") = Cells(i, 2) Cells(m, "Z") = Cells(i, 3) m = m + 1 End If Next Range("y4:y" & Cells(Rows.Count, "Z").End(3).Row).Sort key1:=Range("y5"), Header:=1 Range("z4:z" & Cells(Rows.Count, "Z").End(3).Row).Sort key1:=Range("z5"), Header:=1 m = 4 For i = 4 To lr If Cells(i, 2) <> "" Then Cells(i, "H").Resize(, 2).Value = Cells(m, "y").Resize(, 2).Value m = m + 1 End If Next Last_Row = Sheets("salim").Cells(Rows.Count, "h").End(3).Row Set My_Rg = Sheets("salim").Range("h4:i" & Last_Row) My_Rg.Copy Sheets("الترتيب الأبجدي").Range("a1") Sheets("الترتيب الأبجدي").Range("a:c").Font.Size = 14 Sheets("salim").Visible = False 1: Range("y:z").ClearContents With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق Salim 1.rar

انت اردت الترتيب على اسم الطالب فقط (يمكن التعديل اذا اردت) أريد طريقة لترتيب الاسماء أبجديا

لادراج اللجان يجب ان تلغي الحلايا المدمجة في عامود اللجان

جرب هذا الملف تم العمل في الصفحة Salim و ذلك لعدم العبث بالصفحة الرئيسية اذا اعجبك الماكرو يمكنك التعديل عليه ليتناسب مع المعطيات عندك الماكرو فيما بعد (لبطء النت) Salim.rar

لا يمكن تحميل الملف لوجود خطأ ما يرجى اعادة الرفع مع الاختصار الى (حوالي 20 سطر)