في كود AGGREGATE

[Hamdi Edlbi-khalf]

السلام عليكم

 لقد قمت بكتابة الكود الآتي بغرض إضافة الدالة

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

.شكراً لكم  و كلي أمل بمساعدتكم

 

[Hamdi Edlbi-khalf]

ليس بالضرورة إن تكون الدالة 

Aggregate

فالدالة

Subtotal 

تفي بالغرض .

مشكورون على عونكم سلفاً

[Hamdi Edlbi-khalf]

ما أبحث عنه أمر فيجوال يكتب معادلة 

Subtotal

او

Aggregate

في السطر بعد الأخير من الأسطر الممتلئة  بمجرد الضغط على زر أو عند الحدث 

بحيث أستطيع الحصول على المجاميع مع تغيير عامل التصفية 

و شكراً مجدداً 

[gamalin2]

اخي لست ضليعا في الاكواد ولكني مستعينا بابداعات الاخوة هنا استخدم هذا السطر لتحديد السطر الاخير

  Dim EndRow As Long
 EndRow = Sheets("accmove").Range("a1").CurrentRegion.Rows.Count

For l = 4 To EndRow

بدلا من القيمة الثابتة

وهذا لوضع خانة الاجمالي او المجموع في بعد انتهاء البيانات

  Sheets("invoice").Cells(EndRow + 2, 1).Value = "الاجمالي"
  Sheets("invoice").Cells(EndRow + 2, 6).FormulaR1C1 = "=sum(r8c6:r[-1]c)"
  Sheets("invoice").Cells(EndRow + 2, 8).FormulaR1C1 = "=sum(r8c8:r[-1]c)"
 

مع تغيير اسماء الشيتات و اماكن اول خانة يبدا الجمع من عندها

تحياتي

 

[Hamdi Edlbi-khalf]

شكراً لك 

لقد وجدت الحل المناسب .

فالدالة

Sum

لا تؤدي المطلوب و خاصة أثناء التصفية فالمطلوب تغير المجموع .

لذلك لجأت إلى

Aggregate 

أو

Subtotal 

و قد تمكنت من عمل الأمر المناسب لذلك

شكراً لك مرة أخرى و سأجرب الكود الذي قدمته متفضلاً

و كل عام و أنت بخير  

تم تعديل مايو 29, 2018 بواسطه Khalf