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

[زياد عبد الجليل]

لقد صادفتني مشكلة اثناء اعداد احد البرامج وهي مشكلة تقريب القيمة مثلا :2.027777 عوضا ان يضع القيمة 2.02 يقربها الى 2.03 

ولكن باستعمال المعادلة (ARRONDI.INF(2.02777;2=

تعمل جيدا بدون تقريب و لكن المشكلة هي انه عندي فورم يقوم بالحساب في تاكس بوكس 35 

TextBox34.Value = Val(TextBox20) + Val(TextBox21) + Val(TextBox22)
MM = Val(Me.TextBox34)
Me.TextBox35 = MM / Val(T1)

ولكن القيمة بعد وضع فورمة في تاكس بوكس 35 "00.00"...تقربها 2.03 و ترخلها الى الخانة بهذا الشكل اي مع التقريب بالرغم من تنسيق الخالايا باستعمال الدالة ARRONDI.INF 

وعند استعمال برنامج محول المعادلات اعطاني المعادلة RoundDown وقمت بتحويلها الى الاتي 

TextBox35 = Format(TextBox35, "00.00")
TextBox35 = RoundDown(TextBox35, 2)

ولكن للاسف لم تعمل اصلا و بقي المشكل ...الان كيف يمكن و ضع هذا الكود بطريقة صحيحة:(TextBox35 = RoundDown(TextBox35, 2

ولكم مني فائق عبارات الشكر و التقدير

[زياد عبد الجليل]

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

Private Sub TextBox35_Change()
TextBox35 = Application.RoundDown(TextBox35, 2)
TextBox35 = Format(TextBox35, "00.00")
End Sub

هكذا يتم التخلص نهائيا من تقريب القيم