ضياء 2 قام بنشر سبتمبر 14, 2022 مشاركة قام بنشر سبتمبر 14, 2022 السلام عليكم الاساتذة الكرام فضلا من كرمكم في تعديل " كود اجمالي الاصناف يعمل على عمود ( E ) فقط المطلوب يعمل على أعمدة ( J - I - H - G - F ) " تجربة.xlsb رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر سبتمبر 14, 2022 أفضل إجابة مشاركة قام بنشر سبتمبر 14, 2022 السلام عليكم و رحمة الله اجعل الكود هكذا Sub y() Dim sumRange As Range, criteriaRange As Range Dim result As Double Dim i As Integer Dim lastrow As Long Dim R As Range Dim criteria As Variant Set criteriaRange = Range("D4:D20") criteria = Array("اجمالي صنف1", "اجمالي صنف2") j = 1 Do While j <= 6 Set sumRange = Range("E4:E20").Offset(0, j - 1) For i = 0 To UBound(criteria) result = WorksheetFunction.Sum(result, WorksheetFunction.SumIfs(sumRange, criteriaRange, criteria(i))) Set R = ActiveSheet.Cells.Find("اجمالي الأصناف", , xlValues, xlWhole) If Not R Is Nothing Then R.Select ActiveCell.Offset(0, j).Select ActiveCell.Value = result Next i result = 0 j = j + 1 Loop Range("D3").Activate End Sub 2 1 رابط هذا التعليق شارك More sharing options...
ضياء 2 قام بنشر سبتمبر 14, 2022 الكاتب مشاركة قام بنشر سبتمبر 14, 2022 مبدع استاذنا ابراهيم الحداد الشكر موصول لشخصكم الكريم بارك الله في علمك وصحتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها