اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

Textbox3.value=Textbox1 × 5\100 

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

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

ارجو مساعدتي 

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

 

قام بنشر

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

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

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

 

قام بنشر

طبعا

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

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

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

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

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

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

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

= Ceiling(84.3;1)

 

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

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

Application

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

ثم أمر الدوال 

WorksheetFunction

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

  • Like 1
قام بنشر (معدل)

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

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

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

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

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

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

 

تم تعديل بواسطه Hisham85
قام بنشر

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

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

 

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

Screenshot_٢٠١٨-٠٣-٠٢-١٩-٣٤-٠٥.png

قام بنشر

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

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

قام بنشر

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

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

Net Salary.xlsx

قام بنشر

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

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

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

بتشكرك كتير

Screenshot_٢٠١٨-٠٣-٠٢-١٩-٣٤-٠٥.png

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information