Vba: كيفية تقريب القيم إلى منزلتين عشريتين

يمكنك استخدام الطرق التالية لتقريب القيم إلى منزلتين عشريتين باستخدام VBA:

الطريقة الأولى: تقريب القيمة إلى منزلتين عشريتين

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

سيقوم هذا المثال المحدد بتقريب القيمة الموجودة في الخلية A2 إلى منزلتين عشريتين ويعرض القيمة المقربة في الخلية B2 .

الطريقة الثانية: تقريب جميع القيم الموجودة في النطاق إلى منزلتين عشريتين

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

سيقوم هذا المثال المحدد بتقريب كل قيمة في النطاق A2:A9 إلى منزلتين عشريتين ويعرض القيم المقربة في النطاق B2:B9 .

توضح الأمثلة التالية كيفية استخدام كل طريقة عمليًا.

مثال 1: تقريب القيمة إلى منزلتين عشريتين

يمكننا إنشاء الماكرو التالي لتقريب القيمة في الخلية A2 إلى منزلتين عشريتين وعرض النتيجة في الخلية B2 :

 Sub RoundTwoDecimals()
    Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub

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

لاحظ أنه تم تقريب القيمة 15.248 في الخلية A2 إلى منزلتين عشريتين (15.25) في الخلية B2 .

مثال 2: تقريب جميع القيم الموجودة في النطاق إلى منزلتين عشريتين

يمكننا إنشاء الماكرو التالي لتقريب كل من القيم في النطاق A2:A9 إلى منزلتين عشريتين وعرض القيم المقربة في النطاق B2:B9 :

 Sub RoundTwoDecimals()
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
    Next i
End Sub

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

لاحظ أنه تم تقريب كل قيمة في النطاق A2:A9 إلى منزلتين عشريتين ويتم عرض القيم المقربة في النطاق B2:B9 .

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

مصادر إضافية

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

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