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

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

قام بنشر

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

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

اريد كود يحسب الناس اللي في العامود 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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information