【Excel:VBA】千円未満切捨ての方法

1000未満切捨てのVBA関数はどの関数を使いどのように引数を指定すればよいのかわかりません。

-------------------------------
Sub 切捨て()

Dim x As Integer

x = 123456
〔切捨て関数〕
MsgBox x

End Sub
--------------------------------

この状態で、メッセージボックスに「123000」の値が表示されるようにできないでしょうか？
小数点以下を切り捨てるには
x = Int(x)
だとわかったのですが、この関数に千未満切捨てなどを指定する引数はあるのでしょうか？

No.1 ベストアンサー 回答者： kamejiro 回答日時： 2006/09/14 00:29

x = Int(x*0.001)*1000

ってのはどうですか。

この回答へのお礼

あっ、そうか！
ありがとうございます。成功しました。

お礼日時：2006/09/14 00:40