الســـــــاهر قام بنشر فبراير 1, 2022 مشاركة قام بنشر فبراير 1, 2022 السلام عليكم ورحمة الله وبركاته الاخوة الافاضل اسرة منتديات اوفيسنا المحترمين اريد كود يحسب الناس اللي في العامود A كم اشترو وكم باعو كلا على حدا علما ان الاسماء قد تصل الى 100 وبعدها يقوم بفرز الاشخاص اللي مشترياتهم اكبر من مبيعاتهم وادراجها في الصفحة الثانية بالعامود A مرفق ملف للتوضيح وجزاكم الله خير Book1.xlsx رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر فبراير 1, 2022 مشاركة قام بنشر فبراير 1, 2022 وعليكم السلام ورحمة الله وبركاته تفضل جرب هذا book1 معدل.xlsx 5 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر فبراير 1, 2022 أفضل إجابة مشاركة قام بنشر فبراير 1, 2022 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 4 1 رابط هذا التعليق شارك More sharing options...
الســـــــاهر قام بنشر فبراير 3, 2022 الكاتب مشاركة قام بنشر فبراير 3, 2022 الاخ الفاضل أبو عيد بارك الله لك في علمك هذا هو المطلوب لم اتوقع انه ممكن يتعمل بالمعادلات ... جزاكم الله خير الاخ الفاضل قلب الاسد (Lionheart) ماشاء الله كود رائع وسريع التنفيذ بارك الله لك في علمك هذا هو المطلوب ... جزاكم الله خير 2 رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر فبراير 3, 2022 مشاركة قام بنشر فبراير 3, 2022 السلام عليكم أليس هذا الكود يجلب الاسماء مع المبيع والشراء ؟ لانه يجلب الاسماء فقط رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر فبراير 3, 2022 مشاركة قام بنشر فبراير 3, 2022 You can change number 1 in this line with 3 .Range("A3").Resize(x, 1) = temp 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان