التعويض في خلية واستخراج القيمة مع الابقاء على الرموز والاقواس الرياضية

[ابوسلماان]

السلام عليكم

 احتاج يا اعزائي الى معرفة بنود المعادلة بالاسم ،،  بمعنى اخر ..  النتيجة التي ظهرت من معادلة ما ،،  احتاج الى معرفة البنود الخاصة بها و التي استخدمتها المعادلة لاظهار النتيجة ،، مع الابقاء الى الرموز الرياضية مثل "+" او  "-" أو "×" أو "÷" ...   او   الاقواس ( )  ..

 

ربما قد يكون شرح هذا الموضوع كتابة صعب ،،  لكن افضل الاطلاع على الملف المرفق ،، وان شاء الله يتضح المطلوب.

 

مع خالص الشكر،،

التعويض في قيمة خلية.rar

[ابوسلماان]

نحن هنا منتظرين     

[أبوعيد]

وعليكم السلام

هكذا تظهر عندي ورقة الأكسل

جرب المرفق

 

التعويض في قيمة خلية1.rar

[ابوسلماان]

مشكور اخي ابو عيد على  جهدك وتفاعلك ...

لكن المطلوب هو كود يقوم بتحديث الخانة واظهار النتيجة بشكل تلقائي ،، بمعنى ان يقوم المستخدم  بتنفيذ الكود فقط لمرة واحدة وهو يعطي النتيجة ،،  وعلى اعتبار ان الاقواس والعلامات الرياضية قد تتغير في الخلايا من B12  وحتى B15 .

 

فيبدو لي انك فهمتني خطأ.   وعموما ،،  فشكرا  جزيلا لك ،، وانا ممنون جدا لتواجدك هنا.

خالص محبتي ،،

[ياسر خليل أبو البراء]

أخي العزيز أبو عيد الدالة FormulaText من الدوال الحديثة في الإكسيل ولذا يظهر لك الخطأ NAME لأن الإصدار عندك غير متوفر فيه هذه الدالة ..
ويوجد دوال معرفة تؤدي نفس الغرض ..إذا أحببت أدرجت لك دالة معرفة تقوم بنفس الغرض

 

[أبوعيد]

شكرا أخي ياسر

نعم لو سمحت ارجو منك تعديل الملف الذي أرففه أبوسلمان بما يتوافق مع الأوفيس عندي حيث أنني استخدم اصدار 2007

[ياسر خليل أبو البراء]

جرب الدالة المعرفة التالية لتفي بالغرض تماماً مثل الدالة FormulaText الغير مدرجة في أوفيس 2007

Function GetFormula(MyRange As Range) As String
    If Left(MyRange.Formula, 1) = "=" Then
        GetFormula = MyRange.Formula
    Else
        GetFormula = ""
    End If
End Function

 

أخي الكريم أبا سلمان

إليك الملف المرفق الذي يلبي طلبك إن شاء الله

رابط الملف المرفق من هنا