وظيفة Excel & VBA Roundup

يساعدك تعلم كيفية استخدام وظيفة "Roundup" في Excel من لغة البرمجة المدمجة VBA أو Visual Basic for Applications ، على تشغيل أي وظيفة Excel من VBA. هذه المهارة مفيدة لأن Excel يحتوي على العديد من الوظائف التي لا يمتلكها VBA ، والتي قد تحتاج إلى تطبيقها من برنامج VBA. لاحظ أن ميزة VBA التي تتيح لك النقر على وظيفة "Roundup" لن تنبهك إلى بناء جملة أو وسيطة غير صحيحة ، كما هو الحال عند استخدام واجهة ورقة العمل القياسية.

تقوم وظيفة "Roundup" في Excel بتقريب رقم إلى أعلى إلى عدد الأرقام الذي تحدده. على سبيل المثال ، تشغيل "Roundup (2.2، 0)" يخبر Excel أنك تريده لتقريب الرقم 2.2 إلى العدد الصحيح التالي. يخبر "0" في الوسيطة الثانية Excel أنك لا تريد أي أرقام بعد الفاصلة العشرية ، وهو ما يعادل قول أنك تريد إجابة صحيحة.

لا يحتوي VBA على وظيفة "Roundup" مضمنة. أقرب وظيفة لها هي وظيفة "Round" ، والتي يتم تقريبها لأعلى أو لأسفل اعتمادًا على ما إذا كان الرقم الختامي في الرقم الذي تقربه أكبر من أو أقل من 5. على سبيل المثال ، كتابة "Round (2.2، 0)" في نافذة VBA "فورية" ينتج عنها 2 ، بدلاً من 3 التي ستقوم وظيفة "Roundup" في Excel بتقريبها.

على الرغم من أن VBA ليس لديه وظيفة "Roundup" خاصة به ، إلا أنه يمكنه استخدام وظيفة "Roundup" في Excel. لتوجيه VBA للقيام بذلك ، قم بتعيين خاصية "Formula" للكائن الظاهري "Range" إلى وظيفة "Roundup". يوضح لك المثال التالي كيفية القيام بذلك. افتح بيئة تطوير VBA بالضغط على "Alt" و "F11" في نفس الوقت من داخل Excel. انقر بالماوس في النافذة "فوري" ، ثم اكتب العبارة التالية: "النطاق (" A1 "). الصيغة =" = Roundup (2.2، 0) "." ارجع إلى Excel باستخدام الضغط على المفتاح "Alt-F11" الموضح للتو. سترى النتيجة "3" في الخلية A1 ، مما يشير إلى أن العبارة الخاصة بك طبقت بنجاح وظيفة "Roundup" في Excel.

يمكنك إنشاء برنامج VBA تفاعلي يقبل من المستخدم الوسائط الخاصة بوظيفة "Roundup" ، ويعرض نتيجة هذه الوظيفة. بعد فتح بيئة تطوير VBA ، الصق البرنامج التالي في النافذة:

Public Sub roundUpANumber () Dim a1، a2، s a1 = CDbl (InputBox ("أدخل الرقم الذي تريد تقريبه")) a2 = CInt (InputBox ("أدخل عدد الكسور العشرية التي تريد تقريب الرقم الذي أدخلته للتو. ")) s =" = Roundup ("& a1 &"، "& a2 &") "Range (" A1 "). Formula = s Range (" A1 ") .Calculate MsgBox (النطاق ("A1"). القيمة) End الفرعية

قم بتشغيل البرنامج بالنقر فوق أحد عباراته ، ثم النقر فوق أمر "تشغيل" في القائمة "تشغيل". عندما يطالبك Excel بحجج الوظيفة ، اكتبها واضغط على "Enter". سيعرض برنامجك نتيجة وظيفة "Roundup" للوسيطات التي أدخلتها.