تحويل معادلات الى قيم

[الشيباني1]

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

تحويل معادلات الى قيم فقط1.rar

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

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

يرجى تغيير الرقم 1 في اسم الظهور ليعبر عن لقبك وعن شخصكم الكريم

جرب الكود التالي لتحويل الخلايا التي تحتوي على معادلات إلى قيم ... رغم أنك أربكتني حيث أن عنوان الموضوع "تحويل المعادلات إلى قيم" واسم الملف المرفق "تحويل معادلات إلى قيم" والشرح داخل الملف المرفق "تحويل المعادلات إلى قيم" ، أما في شرح المطلوب في الموضوع ذكرت العكس أنك تريد إعادة تحويل القيم إلى معادلات ..

عموماً جرب السطر التالي من الكود

Sub ConvertFormulasToValues()
    Range("A6").CurrentRegion.SpecialCells(xlCellTypeFormulas).Value = Range("A6").CurrentRegion.SpecialCells(xlCellTypeFormulas).Value
End Sub

تقبل تحياتي

 

[قلم-الاكسل(عبدالعزيز)]

الاخ الشيباني

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

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

عموما انا جربت قبل اضافة كود المهندس ياسر فاختفت المعادلات وللعلم عندي اكسل 16

 

شكرا للمهندس ياسر وللشيباني طارح الموضوع حيث انني تعلمت شيئا جديدا من مشاركتيكما

جزاكما الله عنا خير الجزاء ونفع بكم وباركم لكم في جميع حيواتكم

 

تم تعديل فبراير 1, 2016 بواسطه قلم-الاكسل(عبدالعزيز)