اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم 

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

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

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

Name_list by Sum.xlsx

  • Like 2
  • Thanks 2
رابط هذا التعليق
شارك

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

السلام عليكم 

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

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

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

Name_list by Sum.xlsx

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

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

1010.jpg

رابط هذا التعليق
شارك

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

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

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

1010.jpg

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

Salim.xlsx

  • Like 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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

aaaaaaaaaaaaaaaaa.jpg

wika.xlsm

رابط هذا التعليق
شارك

  • 1 month later...
في ٢‏/٤‏/٢٠١٨ 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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information