الســـــــاهر قام بنشر فبراير 1, 2022 قام بنشر فبراير 1, 2022 السلام عليكم ورحمة الله وبركاته الاخوة الافاضل اسرة منتديات اوفيسنا المحترمين اريد كود يحسب الناس اللي في العامود A كم اشترو وكم باعو كلا على حدا علما ان الاسماء قد تصل الى 100 وبعدها يقوم بفرز الاشخاص اللي مشترياتهم اكبر من مبيعاتهم وادراجها في الصفحة الثانية بالعامود A مرفق ملف للتوضيح وجزاكم الله خير Book1.xlsx
أبوعيد قام بنشر فبراير 1, 2022 قام بنشر فبراير 1, 2022 وعليكم السلام ورحمة الله وبركاته تفضل جرب هذا book1 معدل.xlsx 5 1
أفضل إجابة 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
الســـــــاهر قام بنشر فبراير 3, 2022 الكاتب قام بنشر فبراير 3, 2022 الاخ الفاضل أبو عيد بارك الله لك في علمك هذا هو المطلوب لم اتوقع انه ممكن يتعمل بالمعادلات ... جزاكم الله خير الاخ الفاضل قلب الاسد (Lionheart) ماشاء الله كود رائع وسريع التنفيذ بارك الله لك في علمك هذا هو المطلوب ... جزاكم الله خير 2
سمير نجار قام بنشر فبراير 3, 2022 قام بنشر فبراير 3, 2022 السلام عليكم أليس هذا الكود يجلب الاسماء مع المبيع والشراء ؟ لانه يجلب الاسماء فقط
lionheart قام بنشر فبراير 3, 2022 قام بنشر فبراير 3, 2022 You can change number 1 in this line with 3 .Range("A3").Resize(x, 1) = temp 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.