الرجاء تحويل هذه الدالة إلى كود

[ريان أحمد]

=SOMMEPROD((raball!AQ$6:AQ$60000=B17)*(raball!AS$6:AS$60000=C$2)*(raball!J$6:J$60000)*(date>=F$2)*(date<=G$2))

 

حيث raball هي رقة البيانات

 

 

هذه الدالة نظرا لكثرة البيانات فهي بطيءة نوعا ما بلإظافة انه في بعص الحيان عندما أفتح الملف يقوم بالحسابات مما يسبب في ثقل الملف

تم تعديل مارس 9, 2013 بواسطه ريان أحمد

[الـعيدروس]

السلام عليكم

 

ارفق ملف وبه الداله

وإن شاء الله خير

[ريان أحمد]

السلام عليكم

 

إليكم الملف والشرح في الصقخة الأولى

 

 

http://www.mediafire.com/?z1bcjdyj9m4753z

[ريان أحمد]

للرفع

[ريان أحمد]

للرفع

[ريان أحمد]

للرفع

[ريان أحمد]

للرفع

[الـعيدروس]

في اي ورقة المعادلة ؟

بحثت عليها في الملف ولم اجدها

ارجو التوضيح 

[ريان أحمد]

السلام عليكم

 

 

الدالة في الورقة contabilann   في الخلايا من k17 إلى p18

 

 

=SOMMEPROD((raball!AQ$6:AQ$60000=B17)*(raball!AS$6:AS$60000=C$2)*(raball!J$6:J$60000)*(date>=F$2)*(date<=G$2))

 

مع تغيير في هذه الجزئية باللون الأحمرحسب الخلايا المراد جمعها

 

ويا حبذا لو كان بزر يعني مجرد بالصغط على زر يقوم بالجمع    كذلك   الدالة

 

 

=SI(ESTERREUR(SI(A6="";"";(RECHERCHEV(A6;bd;35;FAUX))));"";SI(A6="";"";(RECHERCHEV(A6;bd;35;FAUX)))) الموجود في الورقة raball

 

 

 

والشرح موجود في الورقة 01

تم تعديل مارس 15, 2013 بواسطه ريان أحمد

[الـعيدروس]

لايوجد معادلات في المدى الذي ذكرته ؟ ( K17:P18 )

[ريان أحمد]

المعذرة

 

الرجاء تحويل كذلك الدالة الموجودة في raball

 

 

http://www.mediafire.com/?0rukl33s4m4n43o

[ريان أحمد]

إذا كان لا يوجد حل فالرجاء إعلامي لأكمل البرنامج بما هو عليه

[ريان أحمد]

up

[ريان أحمد]

up

[ريان أحمد]

للرفع

[ريان أحمد]

للرفع

[الـعيدروس]

السلام عليكم

 

جرب هذا الكود

 

Public Sub Ali_nr()
Dim c As Long
Dim x As Long
c = 11
For Each Rn In Array("j", "k", "l", "m", "n", "o")
x = Evaluate("=SUMPRODUCT((raball!AQ$6:AQ$60000=B17)*(raball!AS$6:AS$60000=C2)*(raball!" & Rn & "$6:" & Rn & "$60000)*(date>=F$2)*(date<=G$2))")
Cells(17, c) = x
c = c + 1
Next
End Sub

[ريان أحمد]

السلام عليكم

 

أستاذي العزيز بارك الله فيك وجزاك الله كل خير  هذا ما أريد بالظبط

 

 

لكن لوتكرمت تحويل المعادلة التي في الورقة raball

 

=SI(ESTERREUR(SI(A6="";"";(RECHERCHEV(A6;bd;35;FAUX))));"";SI(A6="";"";(RECHERCHEV(A6;bd;35;FAUX))))

[ريان أحمد]

للرفع

[ريان أحمد]

up

[ريان أحمد]

للرفع

[ريان أحمد]

للرفع

[الـعيدروس]

السلام عليكم

 

حل بطريقة اخرى

جرب الكود 

 

 

Public Sub Ali_Er()
Dim Sh As Worksheet
Dim Rm As Range, Rn As Range
Set Sh = Worksheets("raball")
With Sh
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set Rm = Lr(Sh, 1, 0)
Rx Sh, Rm, 42, 35: Rx Sh, Rm, 43, 8: Rx Sh, Rm, 45, 38
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End With
End Sub
Sub Rx(Sh As Worksheet, Rn As Range, Co As Variant, V)
With Sh
For Each R In Rn
 xl = Py_m(R, Range("bd"), V)
  If IsError(xl) Then .Cells(R.Row, Co) = "" Else .Cells(R.Row, Co) = xl
 If R.Value = "" Then .Cells(R.Row, Co) = ""
Next
End With
End Sub
Private Function Lr(ByVal Sh As Worksheet, ByVal Col As Variant, Optional ByVal Fst As Long) As Range
    With Sh
        Set Lr = .Range(.Cells(6, Col), .Cells(.Rows.Count, Col).End(xlUp).Offset(Fst))
    End With
End Function
Private Function Py_m(Em, Hn_a As Range, Vl)
Dim R
With Hn_a
For R = 1 To .Rows.Count
 If .Cells(R, 1) = Em Then
 Py_m = .Cells(R, Vl)
 End If
Next
End With
End Function

[ريان أحمد]

up

 

السلام عليكم

 

أستاذي العزيز بارك الله فيك وجزاك الله كل خير  هذا ما أريد بالظبط

 

 

لكن لوتكرمت تحويل المعادلة التي في الورقة raball

 

=SI(ESTERREUR(SI(A6="";"";(RECHERCHEV(A6;bd;35;FAUX))));"";SI(A6="";"";(RECHERCHEV(A6;bd;35;FAUX))))

[الـعيدروس]

راجع الكود مشاركة 23

 

=SI(ESTERREUR(SI(A6="";"";(RECHERCHEV(A6;bd;35;FAUX))));"";SI(A6="";"";(RECHERCHEV(A6;bd;35;FAUX))))