تقرِّب الدالة VBA Round رقمًا إلى العدد المحدد من المنازل العشرية.
Round (الرقم ، عدد_العلامات_العشرية)
باستخدام الدالة Round لتقريب رقم إلى منزلتين عشريتين:
Sub RoundExample1() number = 12.3456 round = Round(number, 2) MsgBox round 'يعود عند 12.35 End Sub
استخدام الدالة Round لتقريب القيم الرقمية المختلفة:
Sub RoundExample2() MsgBox Round(14.2) 'العوائد: 14 MsgBox Round(-14.2) 'العوائد: -14 MsgBox Round("14.2") 'العوائد: 14 MsgBox Round("-14.2") 'العوائد: -14 MsgBox Round(9.5) 'العوائد: 10 MsgBox Round(-9.5) 'العوائد: -10 MsgBox Round(1.25, 1) 'العوائد: 1.2 MsgBox Round(50, 1) 'العوائد: 50 MsgBox Round(4532.6351, 2) 'العوائد: 4532.64 End Sub