もどる

 四捨五入(Worksheet関数:WorksheetFunction.Round
HOMEへ
PRODUCTSへ
LEARNING
LINKへ
LOGO
HeadLine
ORDER FORMへ
Image画像
MailTo:

もどる


(c) Copyright 2005 VBAを基礎から解説 VBA World All rights reserved.
E-Mail:info@vba-world.com
桁数を指定して四捨五入します。
VBAの Round関数と異なり、小数点以上の桁(10円の桁、100円の桁など)で四捨五入が可能です。
例:
  123.456 ⇒ 120.000
  1254.06 ⇒ 1300.00
構文解説

WorksheetFunction.Round(四捨五入する数値, 四捨五入する桁)


■プログラム例1

Option Explicit

Sub RoundTest()
 Dim dblNumber As Double
 Dim intPlace As Integer

 dblNumber = 123.456
 intPlace = 2

 MsgBox WorksheetFunction.Round(dblNumber, intPlace)

End Sub

 

この例では、四捨五入する数値:123.456 を 小数点以下3桁目を四捨五入し、小数点以下2桁の値をメッセージボックスに表示。



■ プログラム例2

Option Explicit

Sub RoundTest()
 Dim dblNumber As Double
 Dim intPlace As Integer

 dblNumber = 123456.789
 intPlace = -2

 MsgBox WorksheetFunction.Round(dblNumber, intPlace)

End Sub

 

この例では、四捨五入する数値:123456.789 を 10円の桁を四捨五入し、値をメッセージボックスに表示。
WorksheetFunction.Round