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

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

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

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0)
End Sub

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

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

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

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

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

ذات صلة: كيفية تقريب القيم في VBA

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

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

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0)
End Sub

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

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

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

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

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), -2)
End Sub

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

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

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

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

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 1)
End Sub

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

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

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

مصادر إضافية

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

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