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

質問

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

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

Dim x As Integer

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

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

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

回答No.1

kamejiro · ベストアンサー

x = Int(x*0.001)*1000

ってのはどうですか。

お礼

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