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

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

السلام عليكم 

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

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

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

Name_list by Sum.xlsx

[رعد داود]

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

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

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

[Ali Mohamed Ali]

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

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

[kh_yh]

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

[الشيباني1]

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

[kh_yh]

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

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

  في 7‏/5‏/2018 at 11:03, kh_yh said:

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

Expand  

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

 

sort_by_sum.xlsx

[kh_yh]

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

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

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

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

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

ثالثا E2

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

  في 2‏/4‏/2018 at 05:23, سليم حاصبيا said:

السلام عليكم 

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

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

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

Name_list by Sum.xlsxFetching info...

Expand  

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

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

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

  في 9‏/5‏/2018 at 18:39, ابو اشرف سلوم said:

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

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

Expand  

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

Salim.xlsx

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

  في 9‏/5‏/2018 at 18:44, سليم حاصبيا said:

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

Salim.xlsxFetching info...

Expand  

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

[على متولى]

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

[الشيباني1]

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

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

  في 10‏/5‏/2018 at 09:16, الشيباني1 said:

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

Expand  

تفضل الملف يواسطة الاكواد (صفحة  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]

  في 2‏/4‏/2018 at 10:30, سليم حاصبيا said:

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

Expand  

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

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

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

wika.xlsm

[رعد داود]

  في 2‏/4‏/2018 at 05:23, سليم حاصبيا said:

السلام عليكم 

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

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

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

Name_list by Sum.xlsxFetching info...

Expand  

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

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

  في 30‏/9‏/2018 at 15:47, رعد داود said:

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

Expand  

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

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

 

 

Salim_Sum WITH PROTECTION.xlsx

[رعد داود]

  في 2‏/4‏/2018 at 05:23, سليم حاصبيا said:

 

Expand  

 

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

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

 

 

 

 

 

Salim.xlsm