اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ترتيب حقول اكسل المتكررة


AMMARooo
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

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

السلام عليكم جمعياً ...

عندي مشكلة يا ريت تساعدوني بحلها

بدي معادلة تحط ترتيب للاسماء المكررة ( الاسم الاكثر تكرارا ) 

عندي اسماء محلات يسحبوا بضاعة مني بشكل يومي 

فبدي اعمل ترتيب لاعرف اكثر المحلات اللي تشتري ومن المحلات اللي لا تتكرر

الحقل F + الحقل G حسب الملف الذي تم ارفاقه 

وشكرا

رابط ملف الاكسل

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

من فضلك عليك بعمل ضغط للملف ورفعه داخل المنتدى فلا يمكن تحميله من هذا الرابط

فلا تستعجب لعدم الرد عليك الى الأن فانت الذى قمت بهذا لأنك قمت برفع الملف على رابط خارجى فلا يمكن تحميله

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

السلام عليكم جمعياً ...

عندي مشكلة يا ريت تساعدوني بحلها

بدي معادلة تحط ترتيب للاسماء المكررة ( الاسم الاكثر تكرارا ) 

عندي اسماء محلات يسحبوا بضاعة مني بشكل يومي 

فبدي اعمل ترتيب لاعرف اكثر المحلات اللي تشتري ومن المحلات اللي لا تتكرر

الحقل F + الحقل G حسب الملف الذي تم ارفاقه 

تم ارفاق ملف جديد لعدم عمل الملف السابق

وشكراا

مبيعات.rar

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

‍نفس الملف لكن بواسطة vba

Option Explicit

Sub Get_Exrta_values()
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
Dim S As Worksheet: Set S = Sheets("Sheet1")
Dim T As Worksheet: Set T = Sheets("SALIM")

Dim lrS%: lrS = S.Cells(Rows.Count, "b").End(3).Row
 Dim My_Rg As Range: Set My_Rg = S.Range("B2:b" & lrS)
 Dim My_max%: My_max = T.Range("h2")
 Dim k, m%: m = 2
 T.Range("A" & m).CurrentRegion.Offset(1).ClearContents
 Dim i%
 Dim my_st, mY_val

 With Dic
  For i = 1 To My_Rg.Cells.Count
  mY_val = _
  Application.CountIf(My_Rg, My_Rg.Cells(i))
  If mY_val >= My_max Then
      my_st = My_Rg.Cells(i)
        If Not .Exists(my_st) Then
          Dic.Add my_st, 1
        Else
          Dic(my_st) = _
          Dic(my_st) + 1
        End If
   End If
   Next
   With T.Cells(m, 1).Resize(.Count)
    .Value = _
    Application.Transpose(Dic.keys)
    .Offset(, 1).Value = _
    Application.Transpose(Dic.Items)
    .Offset(, 2).Resize(Dic.Count).Formula = _
    "=SUMPRODUCT((Sheet1!$B$2:$B$100=$A2)*Sheet1!$D$2:$D$100)"
    End With
   
   With T.Range("A" & m).CurrentRegion
   .Value = .Value
   End With
    .RemoveAll
   End With
End Sub

الملف مرفق

 

Mabi3at_With_vba.xlsm

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

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

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



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information