VBA 少数以下を切り捨てる

  • 作成日 2022.07.23
  • vba
VBA 少数以下を切り捨てる

VBAで、少数以下を切り捨てるコードを記述してます。

環境

  • OS windows10 64bit

少数以下を切り捨て

少数以下を切り捨てするには、「Int」か「Fix」を使用します。
※違いは、値がマイナスのときの挙動が異なります。

適当なボタンを用意して、2行目の値を全てクリアする
以下のソースコードを記述します。

Private Sub CommandButton1_Click()
    
    Dim num As Long
    
    Cells(2, 2).Value = Int(10 / 3)
    Cells(3, 2).Value = Fix(10 / 3)
    
    Cells(4, 2).Value = Int(10 / -3) ' -4
    Cells(5, 2).Value = Fix(10 / -3) ' -3

End Sub

実行してみます。

切り捨てされていることが確認できます。