مطلوب شرح مصفوفة

[ahmed00]

Function GetFormula(Cel As Range)

GetFormula = Cel.Formula

If Cel.HasArray Then GetFormula = "{" & Cel.Formula & "}"

End Function

وهذه معادلة بطريقة المصفوفة ..............=INDEX($IM$2:$IP$325;MATCH(O2&"-"&P2;$IN$2:$IN$325&"-"&$IM$2:$IM$325;0);4)

واحتاج الي عمل طريقة بالكود بعد كتابة المعادلة في الخلية بتحويلها الي مصفوفة بدل الضغط علي كنترول وشيفت وانتر وهل الكود اعلاه هو المطلوب وما طريقة تشغيله

شكرا

[ahmed00]

كل عام وانتم بخير واعلم ان الصيام هذا العام اطول يوم

بس ارجو من خبراء الكواد كتابة معادلة في خليه من نوع الصفائف عن طريق الكود بحيث يظهر مثلا فورم ادخل فيه رقم الخلية واكتب به المعادلة فتظهر في الخلية بأقواس الصفائف (المصفوفة)

شكرا : اخوكم في الله من مصر

[ahmed00]

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

فين اساتذة الاكواد منتظر ردكم الكريم

شكرا

[ahmed00]

منتظر ردكم

[ahmed00]

انا اعلم ان اعضاء اوفسنا من الجيل القديم او الجديد متعاونون بس لو الموضوع صعب ارجو الرد بأنه لا حل لهذه المعادلة

شكرا اخوكم دائماً