كيفية استخدام وظيفة floor في vba (مع أمثلة)

يمكنك استخدام طريقة Floor في VBA لتقريب الرقم الموجود في الخلية إلى أقرب مضاعف مهم.

إليك طريقة شائعة لاستخدام هذه الوظيفة عمليًا:

 SubToFloor ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.Floor(Range("A" & i), Range("B" & i))
Next i

End Sub

سيقوم هذا الماكرو المحدد بتقريب كل قيمة في النطاق A2:A10 إلى أقرب مضاعف محدد في النطاق B2:B10 ويعرض النتائج في النطاق C2:C10 .

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: كيفية استخدام الدالة Floor في VBA

لنفترض أن لدينا قائمة بالقيم في العمود A وقائمة أخرى بالمضاعفات المهمة في العمود B والتي نود تقريب كل قيمة إليها إلى:

يمكننا إنشاء الماكرو التالي باستخدام طريقة Floor في VBA لتقريب كل قيمة في العمود A إلى المضاعف المهم في العمود B:

 SubToFloor ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.Floor(Range("A" & i), Range("B" & i))
Next i

End Sub

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

يعرض العمود C نتيجة استخدام طريقة Floor لكل قيمة في العمود A.

على سبيل المثال يمكننا أن نرى:

• 12.2452 مقربًا إلى أقرب مضاعف لـ 0.001 هو 12.245 .
• 14.927 مقربًا إلى أقرب مضاعف لـ 0.01 هو 14.92 .
• -5.23 مقربًا إلى أقرب مضاعف لـ 0.1 هو -5.3 .

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

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

مصادر إضافية

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

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