سليم حاصبيا

لدينا مجموعة من الأسماء المكررة في جدول امام كل اسم المبلغ المستحق عليه كيف نقوم بترتيب هذه الاسماء دون تكرار ابتداءً من الاسم الذي عليه اكبر مبلغ مع ادراج مجموع ما يستحق على كل اسم انظر الى المرفق Rank_By_Sum.rar

فقط سجل اعجاب

جرب الملف التالي القائمة المنسدلة في الخلية E2 مطاطة (تستجيب لاي تغيير في البيانات في لغاية 500 صف و لا تذكر المكرر الا مرة واحدة) المصنف2 SALIM.rar

تم التعديل حسب الطلب working with all sheets Corriger.rar

جرب هذا الملف working with all sheets.rar

قم بما يلي 1-حدد اي نطاق (خليتين او اكثر من مكان حيث لا يوجد هذه السطور ) 2-اضغط على اشارة الفرشاة من التبويب Home 3-امسح النطاق المراد تغييره

جرب هذا النموذج sum by day.rar

يكفي ان تنظر الى النعادلة وتدرسها جيداً الشرط بالنسبة لعامود المعدل ان لا تكون اي خلية من الخلايا الثلاث فارغة الى اليمين فارغة (هذه الخلايا لا تقبل الا ارقاماً بين الصفر وال 10 وتسمح بالفواصل) الشرط بالنسبة لعامود النتيجة ان لا تكون اي خلية من الخلايا الاربع اليمين فارغة

بعد اذن اخي عبد السلام ربما كان هذا ما تقصده Classeur1 salim.rar

جرب هذا الماكرو Sub fix_Them() lr = Sheets("ورقة1").Cells(Rows.Count, "A").End(3).Row Sheets("ورقة1").Range("f2").Formula = "=Average(d2:e2)" Range("f2").AutoFill Destination:=Range("f2:f" & lr), Type:=xlFillDefault Range("f2:f" & lr).Value = Range("f2:f" & lr).Value Sheets("ورقة1").Range("h2").Formula = "= (G2 * 3 + F2 * 2) / 5" Range("h2").AutoFill Destination:=Range("h2:h" & lr), Type:=xlFillDefault Range("h2:h" & lr).Value = Range("h2:h" & lr).Value End Sub

بمكن ان يكون الحل هتا talween.rar

لم افهم جيداً السؤال هل تريد ان تكون الخلية A1+B1+C1=E1 ام ان الخلية E1=مجموع الخلايا في العامود A +مجموع الخلايا في العامود B+مجموع الخلايا في العامود C وما العمل في هذه الجالة بالنسبة للضرب والقسمة

جرب هذا الملف My_Function.rar

Sub Print_Preview_Click() Application.ScreenUpdating = False UserForm1.Hide Sheets("تسجيل المتقدمين").Activate ActiveSheet.Cells.Rows.Hidden = False Lra = ActiveSheet.Cells(Rows.Count, "a").End(3).Row ActiveSheet.PageSetup.PrintArea = "" Set my_rg = ActiveSheet.Range("A1:S" & Lra) With ActiveSheet With .PageSetup .PrintArea = my_rg.SpecialCells(12).Address .PrintTitleRows = "$1:$1" End With .PrintPreview End With Application.ScreenUpdating = True End Sub استبدل الكود بهذا

جرب هذا الملف لادراج الفورم اضغط Ctl+Shift +R في اي صفحة معاينة قبل الطباعة عن طريق الفورم salim.rar

فقط اكتب هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) With [a15] .Borders.LineStyle = 1 .Font.Size = 14 .Font.Bold = True .VerticalAlignment = -4108 .HorizontalAlignment = -4108 End With End Sub

جرب الملف التالي tafkit_any_thing.rar

تم معالجة الامر ترتيب الطلاب حسب السن والمجموع.rar

لعيونك يا صلاح Auto_fixed-sum.rar

اخي ياسر ليس الموضوع هكذا المطلوب تحويل كل الصفوف الى عامود واحد بينما دالة Transpose تعكس الأعمدة والصفوف يمكن ان يكون هذا الملف يفي بالغرض All_On_One_Column.rar

يمكن ان يكون المطلوب fixed-sum.rar

اعتذر تم تحميل الملف الخطأ اليك الملف الصحيح (صفحة My_sheet) محاسب salim1.rar

جرب هذاا المرفق معادلة واحدة تكتب في الخلية A2 و تسحب يساراً و الى الاسفل المصنف2 salim.rar

في اي صفحة جديدة املأ الصف من A1 الى اي حلية تريد (Z1 مثلاً ) بأي بيانات و قم بتنفيذ هذا الكود اذا كنت تريدها معادلات سأعمل على ذلك تم عمل المطلوب امظر الى الصفحة 3 استبدل اسم الصفحة الى test لسهولة التعامل مع اللغة الاجنبية في الكزد Sub list_to_one_col() laste_col = Cells(1, Columns.Count).End(xlToLeft).Column Do Cells(m + 3, 1) = Cells(1, k + 1) m = m + 1: k = k + 1 Loop Until k = laste_col End Sub Salim_توزيع الأعمدة على الصفوف.rar

جرب هذه المعادلة في الخلية J11 واسحب نزولاً =IF(AND(I11>=25,$H11>=$H$9/4),"ناجحة","راسبة")