استفسار كود ترقية الاعداد

[M.NHAKAMI]

السلام عليكم الكود التالي كود يقرب الاعداد باستخدام الدالة Math.Round انا اريد الدالة التي تقرب العدر للعدر الاعلى يعني لوعندي 2.1 يرقيه للعدد 3 كود باستخدام محرر فيجوال بالاكسل 

Me.TextBox3.Text = Math.Round(Val(TextBox1.Text) - Val(TextBox2.Text))

استخدمت RoundUP وما كان في نتيجه 

[الـعيدروس]

السلام عليكم

جرب هكذا

Me.TextBox3.Text = Math.RoundUp(Val(TextBox1.Text) - Val(TextBox2.Text), 0)

 

[M.NHAKAMI]

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

  

 

ترقية العدد.xlsm

[الـعيدروس]

السلام عليكم

اضن تنفيذك خطأ فقط 

جرب المرفق

ترقية العدد1.xlsm

[M.NHAKAMI]

شكرا لك ابدعت