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

جلب بيانات صف استناداً لشرطين


إذهب إلى أفضل إجابة Solved by lionheart,

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

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

الاخوة الافاضل اسرة منتديات اوفيسنا        المحترمين

اريد كود يحسب الناس اللي في العامود A  كم اشترو وكم باعو كلا على حدا  علما ان الاسماء قد تصل الى 100

وبعدها يقوم بفرز الاشخاص اللي مشترياتهم اكبر من مبيعاتهم وادراجها في الصفحة الثانية بالعامود A

 

مرفق ملف للتوضيح

 

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

Book1.xlsx

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

  • أفضل إجابة
Sub Test()
    Dim a, temp, dict As Object, buy As Double, sell As Double, i As Long, x As Long
    Set dict = CreateObject("Scripting.Dictionary")
    With Sheets("Sheet1").Cells(2).CurrentRegion
        a = .Value: ReDim temp(1 To UBound(a), 1 To 3)
        For i = 2 To UBound(a)
            If Not dict.Exists(a(i, 1)) Then
                dict.Add a(i, 1), ""
                buy = Application.WorksheetFunction.SumIfs(.Columns(7), .Columns(1), a(i, 1), .Columns(2), "BUY")
                sell = Application.WorksheetFunction.SumIfs(.Columns(7), .Columns(1), a(i, 1), .Columns(2), "SELL")
                If buy > sell Then x = x + 1: temp(x, 1) = a(i, 1): temp(x, 2) = buy: temp(x, 3) = sell
            End If
        Next i
    End With
    With Sheets("Sheet2")
    .Columns(1).ClearContents
    .Range("A2").Value = "Market"
    .Range("A3").Resize(x, 1) = temp
    End With
End Sub

 

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

الاخ الفاضل أبو عيد

بارك الله لك في علمك هذا هو المطلوب لم اتوقع انه ممكن يتعمل بالمعادلات ... جزاكم الله خير

الاخ الفاضل قلب الاسد (Lionheart)

ماشاء الله كود رائع وسريع التنفيذ بارك الله لك في علمك هذا هو المطلوب ... جزاكم الله خير

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

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

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



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

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

Important Information