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

[rosealshamasad]

مرحبا اصدقائي

انشئت فورم اكسل لعملية حسابية  و  فيها   Textbox1 ,Textbox2,Textbox3  و زر حساب 

Textbox3.value=Textbox1 × 5\100 

و فرضنا ان الناتج 120.88 أو 2.6 أو 84.3

كيف يمكن تقريب الناتج ليصبح 121 أو 3 أو 85

ارجو مساعدتي 

شكرا لكم و لجهودكم و لأدارة المنتدى و الاعضاء 

 

[Hisham85]

عن طريق دالة من دوال التقريب

ما رأيك بهذا التعديل؟
 

TextBox3.Value = Application.WorksheetFunction.Ceiling(TextBox1.Value * 0.05, 1)

 

[rosealshamasad]

هل يمكن ان تشرح لي التعديل 

شكرا لاجابتك 

[Hisham85]

طبعا

التعديل هو وضع معادلة حضرتك (ضمن) دالة التقريب المطلوبة وهى دالة Ceiling 

وهى دالة تقوم بتقريب الأرقام العشرية لأقرب (أكبر) عدد صحيح، بصرف النظر عن قيمة الرقم العشرى كانت أصغر أو أكبر من 0.5

والدالة التى تقوم بعكس دور هذه الدالة هى الدالة Floor حيث تقرب لأقرب (أقل) عدد صحيح .. يعنى فى مثال حضرتك للرقم 84.3

دالة سيلينج تجعله 85 ودالة فلور تجعله 84 

وتكوين الدالة فى الاكسل يكون اسم الدالة ثم خانتين

الأولى نضع فيها العدد المطلوب تقريبه، أو الحسابات التى تصل بنا للعدد المطلوب تقريبه

والثانية نضع بها طول التقريب، إن كان لأقرب عدد واحد نضع (1) إن كان التقريب مطلوب لأكثر من ذلك نضع العدد المطلوب

= Ceiling(84.3;1)

 

هذه صيغة الدالة فى شيت الاكسل

لكن عند التعامل مع محرر اكواد الاكسل يجب استدعاء دوال الاكسل أولا عن طريق أمر 

Application

والمقصود هو ابلكيشن الاكسل

ثم أمر الدوال 

WorksheetFunction

ثم نختار الدالة المطلوب إدراجها

[rosealshamasad]

هل كتابة هذا الكود صحيحه 

(1;Textbox3.value= Ceiling  (Textbox1 × 5\100

[Hisham85]

و نلاحظ أن الاكسل يتعامل مع علامة الضرب X بعلامة النجمة *

وتمت كتابة الخمسة من مائة كرقم عشرى 0.05 للتسهيل

كما يفضل أيضا عند استخدام التكست بوكس فى الأرقام والعمليات الحسابية

إضافة أمر القيمة Value

لتصبح مثلا TextBox.Value

لاستخلاص القيمة بدقة عند التعامل مع الأرقام

 

تم تعديل مارس 2, 2018 بواسطه Hisham85

[rosealshamasad]

بالنسبة لحساب الضريبة وفق شرائح اضفت فورم لحساب الرواتب و قيمة الضريبة 

بالضغط على زر امر يظهر قيمة الضريبة في Textbox3

 

ماهوالكود الذي يمكنني كتابته ليحسب الضريبة على الراتب وفق القانون المرفق بالصورة 

[Hisham85]

تمام ، هنا لازم نستخدم دالة if لتحديد الشرائح المطلوبة

بس انا عندى سؤال، ليه حضرتك عملتى يوزرفورم وما اشتغلتيش على الشيت مباشرة؟

[Hisham85]

عمومًا ده شيت فيه المطلوب لكن بطريقة الدوال داخل الشيت

إذا حبيتى تحويل الدوال للفورم، ممكن تقومى برفع الملف وهحاول اضيفهم فيه

Net Salary.xlsx

[rosealshamasad]

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

و الاكواد ثابته اما الشيت ممكن ينحذف  شي من الصيغ وقت ضيف او عدل 

هذا الملف يلي حضرتك ارفقته وفق القانون يلي بالصورة 

بتشكرك كتير

[Hisham85]

السلام عليكم

تم عمل المطلوب و رجاء مراجعة النتائج بالملف المرفق

 

Net Salaries.xlsm