المساعده فى تحويل معادله صفيف الى كود

[ابو الآء]

بسم الله الرحمن الرحيم

احبائي الغاليين

واستاتذتى العظماء

بارك الله فيك

المعادله التاليه من ابداع اخ عظيم وكبير واستاذ من اساتذه هذا المنتدى العظيم

واستعملها بصوره متكرره فى ملف خاص بالعمل لدى 

وارغب فى تحويلها الى كود

الرجاء المساعده

 

=IF(ISERR(INDEX(data;SMALL(IF(((ةالفصل=$J$2));ROW(ةالفصل));ROW()-ROW(A$10)+1)-(ROW(data)-1);COLUMN()));"";INDEX(data;SMALL(IF(((ةالفصل=$J$2));ROW(ةالفصل));ROW()-ROW(A$10)+1)-(ROW(data)-1);COLUMN()))

بارك الله فيكم جميعا

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاخ والاستاذ الفاضل ابو الاء جزاك الله خيرا

حاولت ان احولها الى كود وهو من عمل الاستاذ والعلامة الكبير عبد الله باقشير دام عزه وزاده الله علما وشرفا

على هذا الرابط http://www.officena.net/ib/index.php?showtopic=42853

 لم يقوم الكود بتحويلها وغيرت المعادلة الى عادية على نفس المدى لاتاكد كون البيانات صحيحة عمل الكود بشكل ممتاز

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

وارفقت ملف فيه معادلات صفيف للاستاذ والاخ الحبيب ابو محمود جزاه الله خيرا وزاده علما وشرفا  في ورقة aa ومعادلات اعتيادية  ونفذت الكود فقام بتحويل المعادلات الاعتيادية ولم يقوم بتحويل معادلات الصفيف

لك مني فائق الاحترام والتقدير

 

تحويل معادلات .rar

 

 

 

 

[عبدالله باقشير]

السلام عليكم

 

اخي الحبيب عباس السماوي ...........حفظكم الله

 

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

 

 

 

غير هذا الكود وسيتعامل مع معادلات الصفيف

Sub kh_cFormula(MyRng As Range, iRow As Integer, Lastrow As Long)
Dim Col As Range
Dim R As Long
'========================
For Each Col In MyRng.Cells
    If Col.HasFormula Then
        For R = iRow To Lastrow
            With MyRng.Worksheet
                If Col.HasArray Then
                    .Cells(R, Col.Column).FormulaArray = Col.FormulaR1C1
                Else
                    .Cells(R, Col.Column).Formula = Col.FormulaR1C1
                End If
                .Cells(R, Col.Column).Value = .Cells(R, Col.Column)
            End With
        Next R
    End If
Next
'========================
Set Col = Nothing
End Sub

تحياتي

[أبو محمد عباس]

السلام عليكم ورحمة الله وبركاته

الاستاذ والعالم العلامة الاستاذ الفاضل عبد الله باقشير حفظكم الباري عز وجل ورعاكم

انا كنت متاكد عندما تتدخل حتما تاتي  بالحل لاخينا ابو الاء اعمالك شرف لنا وللوطن العربي اجمع

كود اكثر من رائع زادك الله علما وشرفا وانعم عليك بالصحة والعافية

اخي ابو الاء اليك الملف بعد اضافة كود العلامة الجليل عبد الله باقشير دام عزه

تقبلوا فائق الاحترام والتقدير

تحويل معادلات الصفيف1 .rar

 

 

[عبدالله باقشير]

السلام عليكم ورحمة الله وبركاته

 

اخي الحبيب عباس السماوي ...........حفظكم الله وادام عزكم

 

جزاكم الله خيرا

 

هذا كرم منكم اكرمكم الله في الدارين

 

تقبلوا تحياتي وشكري

[ابو الآء]

اساتذتى الكبار

اسف جداا على عدم الرد فى وقتها بسبب وجود مشاكل خاصه مع مشاكل الانترنت

لذلك اقدم لكم شديد اسفى

وتقديرى العظيم لمجهوداتكم الكبيرة

بارك الله فيكم