エクセルINT関数をVBAで小数点以下切り捨てを繰り返し処理方法

エクセル検索

HOME	UserForm	印刷	画面	ファイル	図形
日付・時刻	データ	セル	色	関数	VBA関数

エクセル関数を使って小数点以下を切り捨てする作業をVBAを使って複数行一括処理したいと思ったことありませんか？

Application.RoundDownと繰り返し処理を合わせて使えば、VBAコードたった3行で簡単にできる方法をご紹介します。

Application.RoundDown

エクセル関数で小数点以下切り捨てをするのはRoundDown関数を使えば簡単にできますが、せっかくエクセルVBAを使っているのだから無駄な数式を書いておくのって気が引けますよね。

そこで、ユーザーフォームに配置したコマンドボタンを押すことで、指定した複数のセルの値が小数点以下になっていたら整数にするVBAコードです。

VBAコード

Private Sub CommandButton1_Click()
Range(“A1”).Value = Application.RoundDown(Range(“B1”).Value, 0)
End Sub

解説

一番最後の,0を小数点第1位までにするならば,1とすれば完成で、小数点第2位ならば,2です。

正直1か所だけならばVBAを使う必要もなくセルに直接エクセル関数を書けばいいのですが、何か所もあるのでVBAで簡単に処理したいと考えるので、繰り返し処理のFor～Nextを一緒に使う事で解決します。

VBAコード

Private Sub CommandButton1_Click()
For i = 1 To 10
Cells(i, 1).Value = Application.RoundDown(Cells(i, 2).Value, 0)
Next i
End Sub

解説

波乗りアヒル

こうするだけで1行目から10行目までがVBA小数点以下切り捨てを繰り返す事ができるようになりました。