حساب القيمة بناء علي نص

[محمد طاهر عرفه]

أحيانا تحتاج الي إظهار القيمة المناظرة لمعادلة مكتوبة بصورة نص لاستخدامها فى التوضيح ، مثلا (100-40)/2

و اذا أدرت إظهار المعادلات المكتوبة فهذا يظهر للشيت كله و ليس لبعض الخلايا فقط

أما اذا أردت فقط اظهار بعض المعادلات علي هيئة نص مكتوب ، فلابد من أن تكون بتنسيق نص

و لكن هذا لا يعني عدم استخدامها فى الحسابات :d

المعادلة المكتوبة علي صورة نص فى الخلايا الصفراء مثل (100-40)/2

إختار الخلايا الخضراء ثم نفذ الماكرو ليسألك عن القيمة التي تود ضربها فيه او اضافتها اليها ا ثم يجري العملية

و الكودان ، الاول للضرب و الثاني للجمع ( علي القيم المكتوبة كمعادلات نصية )

فاذا أردتها كما هي فاضرب فى 1 أو اجمع صفر ، و الخلية التي ستنتج يمكن استخدامها فى اي حسابات بعد ذلك

Sub MakeValmultiply()

Dim x As Double

x = InputBox("select the Value to multiply", "Value to be multiplied to Text Formulas", 1)

Dim myrow As Integer

myrow = Selection.Rows.Count


For i = 1 To myrow

ActiveCell.Formula = "+" & ActiveCell.Offset(0, -1).Value & "*" & x

ActiveCell.Offset(1, 0).Activate

Next


For i = 1 To myrow

SendKeys "{f2}{Enter}"

ActiveCell.Offset(-1, 0).Activate

Next


End Sub


Sub MakeValadd()

Dim x As Double

x = InputBox("select the Value to add", "Value to be Added to Text Formulas", 1)

Dim myrow As Integer

myrow = Selection.Rows.Count


For i = 1 To myrow

ActiveCell.Formula = "+" & ActiveCell.Offset(0, -1).Value & "+" & x

ActiveCell.Offset(1, 0).Activate

Next


For i = 1 To myrow

SendKeys "{f2}{Enter}"

ActiveCell.Offset(-1, 0).Activate

Next


End Sub

ShowtxtFormulaValue.zip