لائحة يالاسماء حسب الديون

[سليم حاصبيا]

السلام عليكم 

هل تريد انشاء لائحة باسماء الزبائن مرتبة حسب قيمة مجموع الديون على كل شخص(ترتتيب تنازلي) ؟

(اسماء الزيائن يمكن ان تكون مكررة اكثر من مرة و كذلك قيمة الديون)

اكسل يفعلها بواسطة المعادلات

Name_list by Sum.xlsx

[رعد داود]

احسنتم  استاذ سليم
ماذا  لو أن احد العملاء غير  مطلوب ويكون عليه 0
كيف  يتم  عدم  اظهاره  بالقائمة ,, في  حال  استعمال  دالة sumifs

[سليم حاصبيا]

اذا كانت مجموع ديونه يساوي ضفر فلا يدرج اسمه تلقائياً

[Ali Mohamed Ali]

وعليكم السلام استاذنا القدير سليم

زادك الله من علمه وجعله فى ميزان حسناتك وبارك الله فيك

[kh_yh]

لا استطيع فتح الملف 
استعمل اكسل 2010 +2016

[الشيباني1]

استاذنا القدير مع شكري وتقديري وطمعا في كرمك اود لو تم الاجراء بالاكواد 

[kh_yh]

استاذي الملف لا يعمل لدي جربته على اكسل 2016 + 2010+ 2007

[سليم حاصبيا]

5 ساعات مضت, kh_yh said:

استاذي الملف لا يعمل لدي جربته على اكسل 2016 + 2010+ 2007

تم اعادة رفع الملف

 

sort_by_sum.xlsx

[kh_yh]

شكرا لك استاذ سليم

استا سليم انا وجدة ان الملف يحتوي ثلاث معادلات اذا اردت تطبيق الملف من اي معادلة يبدا الحل لان جميع المعادلات تعتمد على بعضها البعض

[سليم حاصبيا]

أولاُ   Ctrl+Shift+Enter)        G2  )  

ثانياً  Ctrl+Shift+Enter)        D2  )           

ثالثا E2

[ابو اشرف سلوم]

في ٢‏/٤‏/٢٠١٨ at 08:23, سليم حاصبيا said:

السلام عليكم 

هل تريد انشاء لائحة باسماء الزبائن مرتبة حسب قيمة مجموع الديون على كل شخص(ترتتيب تنازلي) ؟

(اسماء الزيائن يمكن ان تكون مكررة اكثر من مرة و كذلك قيمة الديون)

اكسل يفعلها بواسطة المعادلات

Name_list by Sum.xlsx

الله يعطيك العافية . قمت بتحميل الملف لكن للاسف ما فتح 

شاهد الصورة المرفقة

[سليم حاصبيا]

3 دقائق مضت, ابو اشرف سلوم said:

الله يعطيك العافية . قمت بتحميل الملف لكن للاسف ما فتح 

شاهد الصورة المرفقة

تم اعادة التحميل

Salim.xlsx

[ابو اشرف سلوم]

الان, سليم حاصبيا said:

تم اعادة التحميل

Salim.xlsx

الله يجزيكم الخير

[على متولى]

السلام عليكم ورحمة الله وبركاته
جزاكم الله خيرا
وجعل كل ايامكم رضا
والسلام عليكم ورحمة الله وبركاته

[الشيباني1]

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

[سليم حاصبيا]

2 ساعات مضت, الشيباني1 said:

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

تفضل الملف يواسطة الاكواد (صفحة  Salim)

الكود

Option Explicit
Sub sum_by_Max()
Dim My_Sh As Worksheet: Set My_Sh = Sheets("salim")
Dim i%, m%: m = 1
Dim x#
If ActiveSheet.Name <> My_Sh.Name Then Exit Sub
Dim Arr1(), Arr2()
Dim LastRow%: LastRow = My_Sh.Range("a1").CurrentRegion.Rows.Count
 Range("d2").Resize(LastRow, 2).ClearContents
 Range("g2").ClearContents
 For i = 2 To LastRow
    If Application.CountIf(Range("a" & 2, "a" & i), Range("a" & i)) = 1 Then
     ReDim Preserve Arr1(1 To m): Arr1(m) = Range("a" & i)
     m = m + 1
    End If
 Next
 m = 1
 For i = LBound(Arr1) To UBound(Arr1)
    x = Application.SumIf(Range("a2:a" & LastRow), Arr1(i), Range("b2:b" & LastRow))
    ReDim Preserve Arr2(1 To m): Arr2(m) = x
    m = m + 1
 Next
  
  With Range("d2")
    .Resize(UBound(Arr1)) = _
     Application.Transpose(Arr1)
    .Offset(, 1).Resize(UBound(Arr2)) = _
     Application.Transpose(Arr2)
 End With
 
 Range("d1:e" & UBound(Arr2) + 1).Sort _
 key1:=Range("e2"), order1:=2, Header:=xlYes
Range("g2") = UBound(Arr1)
Erase Arr1: Erase Arr2
End Sub

الملف مرفق(صفحة Salim)

Salim.xlsm

[الشيباني1]

استاذنا القدير سلمت يداك وشكرا على هذا الابداع

[ولد جدة]

جعله فى ميزان حسناتك وبارك الله فيك

[على متولى]

السلام عليكم ورحمة الله وبركاتة
الله يزداكم علما- بارك الله فيك
موفق انشاء الله
 شكرا
والسلام عليكم ورحمة الله وبركاتة

[ella3na]

في ٢‏/٤‏/٢٠١٨ at 12:30, سليم حاصبيا said:

اذا كانت مجموع ديونه يساوي ضفر فلا يدرج اسمه تلقائياً

بعد اذنك عاوز طلب او حاجه مشابه عشان مش عارف اوصل للحاجه دي ازي  

انا عامل فورم ادخال بيانات بس عاوز اما اعمل ادخال تلقائي تنزل في ListBox و اقدر اعمل منهاا تعديل علي البيانات او حذف 

مرفق صوره توضيحيه  و الملف 

wika.xlsm

[رعد داود]

في ٢‏/٤‏/٢٠١٨ at 08:23, سليم حاصبيا said:

السلام عليكم 

هل تريد انشاء لائحة باسماء الزبائن مرتبة حسب قيمة مجموع الديون على كل شخص(ترتتيب تنازلي) ؟

(اسماء الزيائن يمكن ان تكون مكررة اكثر من مرة و كذلك قيمة الديون)

اكسل يفعلها بواسطة المعادلات

Name_list by Sum.xlsx

اسف  استاذي  لايفتح  عندي  اعمل  على  2007 اكسل

[سليم حاصبيا]

منذ ساعه, رعد داود said:

اسف  استاذي  لايفتح  عندي  اعمل  على  2007 اكسل

تم التعديل على الملف ليعمل عندك

الورقة مجمية (بدون كلمة سر لعدم العبث المعادلات عن طريق الخطأ)

 

 

Salim_Sum WITH PROTECTION.xlsx

[رعد داود]

في ٢‏/٤‏/٢٠١٨ at 08:23, سليم حاصبيا said:

 

 

السلام  عليكم  استاذ سليم 
عملت  حسبت  ملفك  لكن  بالكود  وطبقت  الكود  وغيرت  بالأعمدة
لكني  أريد  نقل  الأعمدة  المضللة  بالكود  الى  ورقة   كشف بالاقساط
ويبدأ  الترحيل  من   الى  6000

وفي  الحقل  a  يكون  ترقيم  تلقائي 

 

 

 

 

 

Salim.xlsm