بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'aggregate'.
تم العثور علي 1 نتيجه
-
السلام عليكم لقد قمت بكتابة الكود الآتي بغرض إضافة الدالة aggregate في أول حقل خالٍ من البيانات بغرض تغير المجموع مع عامل التصفية و مع إضافة البيانات إلا أنه لم يعمل بالصورة المناسبة فلم يتعرف العامل المنطقي <> كما أنني لم أتمكن من جعل الصفيف في الدالة ينتهي عند الحقل الممتلئ الأخير : Sub aggre() Application.ScreenUpdating = False On Error Resume Next For i = 3 To 100 If Range("b" & i).Value = "" Then If Range("b" & i - 1).Value <> "" Or Range("b" & i - 1).Value <> "= aggregate(9,7,b1:b & i)" Then ' لم يستجب الرنامج لـ <> Range("b" & i + 1) = "= aggregate(9,7,b1:b&i)"' لم أستطع كتابة الكود بالصورة المناسبة التي يقف فيها الصفيف عند الخلية الممتلئة الأخيرة End If End If Next i Application.ScreenUpdating = True End Sub بالنسبة للجزئية الأولى لم يتعرف البرنامج لعامل المنطقي <> حتى مع عدم كتابة الدالة aggregate .شكراً لكم و كلي أمل بمساعدتكم
