كيفية تقريب القيم في vba (مع أمثلة)

يمكنك استخدام أسلوب RoundUp في VBA لتقريب القيم.

تستخدم هذه الوظيفة بناء الجملة الأساسي التالي:

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0)
End Sub

سيقوم هذا المثال المحدد بتقريب القيمة الموجودة في الخلية A1 إلى أقرب رقم صحيح ويعرض النتيجة في الخلية B1 .

لاحظ أن الوسيطة الثانية لأسلوب RoundUp تحدد عدد الأرقام التي سيتم تقريبها حيث:

• -3 جولات إلى الألف القادمة
• – 2 جولات إلى أقرب مائة
• -1 تقريب إلى أقرب عشرة
• 0 تقريب إلى أقرب عدد صحيح
• 1 يُقرب إلى أقرب رقم عشري (منزلة عشرية واحدة)
• 2 مقربًا إلى أقرب مائة (منزلتان عشريتان)
• 3 مقربة إلى أقرب ألف (ثلاث منازل عشرية)

وما إلى ذلك وهلم جرا.

توضح الأمثلة التالية كيفية استخدام أسلوب RoundUp عمليًا.

مثال 1: التقريب إلى أقرب رقم صحيح في VBA

يمكننا إنشاء الماكرو التالي لتقريب القيمة في الخلية A1 إلى أقرب رقم صحيح وعرض النتيجة في الخلية B1 :

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 0)
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أنه تم تقريب القيمة 1432.78 في الخلية A1 إلى أقرب رقم صحيح وهو 1433 في الخلية B1 .

مثال 2: التقريب إلى أقرب مائة في VBA

يمكننا إنشاء الماكرو التالي لتقريب القيمة في الخلية A1 إلى أقرب مائة وعرض النتيجة في الخلية B1 :

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), -2)
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أنه تم تقريب القيمة 1432.78 في الخلية A1 إلى أقرب مائة من 1500 في الخلية B1 .

مثال 3: التقريب إلى أقرب رقم عشر في VBA

يمكننا إنشاء الماكرو التالي لتقريب القيمة في الخلية A1 إلى أقرب رقم عشري (أي منزلة عشرية واحدة) وعرض النتيجة في الخلية B1 :

 Sub RoundUpValue()
    Range(" B1 ") = WorksheetFunction.RoundUp(Range(" A1 "), 1)
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

لاحظ أنه تم تقريب القيمة 1432.78 في الخلية A1 إلى أقرب عشر من 1432.8 في الخلية B1 .

ملاحظة : يمكنك العثور على الوثائق الكاملة لأسلوب VBA RoundUp هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

فبا: كيفية كتابة وظائف SUMIF وSUMIFS
VBA: كيفية كتابة وظائف COUNTIF وCOUNTIFS
فبا: كيفية كتابة وظائف AVERAGEIF وAVERAGEIFS