【Day42】文系オタクのエンジニア道～関数③ 数値関係～

こんにちは
安田です

女子がマクロスとかコードギアスとか
ロボットアニメに興味を持っていると
すごく嬉しい気持ちになります笑

はい
今回はシンプルに3つほどまとめました

Int関数

数値の小数部を切り捨てて整数部を返します

【書式】Int(数値)

Sub test1()
    Dim i As Long
    
    For i = 1 To 4
        Cells(i, 2) = Int(Cells(i, 1))
    Next i
End Sub

A列の小数部が切り捨てられて、B列に表示されました

---

Round関数

数値の小数部を四捨五入した結果を返す
桁位置には四捨五入する小数の位置を指定する
小数第一位が「0」
小数第二位が「1」の順番で指定する

【書式】Round(数値, 桁位置)

Sub test2()
    Dim i As Long
    
    For i = 1 To 4
        Cells(i, 2) = Round(Cells(i, 1), 0)
        Cells(i, 3) = Round(Cells(i, 1), 1)
    Next i
End Sub

A列：元の数
B列：小数第一位を四捨五入
C列：小数第二位を四捨五入

---

Abs関数

数値の絶対値を返す

一瞬、絶対値ってなんやねんと思いました笑
久々に聞きました、絶対値ｗ

【書式】　Abs(数値)

Sub test3()
    Dim i As Long
    
    For i = 1 To 4
        Cells(i, 2) = Abs(Cells(i, 1))
    Next i
End Sub

A列の絶対値がB列に反映されました

---

まとめ

エクセルで使う関数があったり
VBA特有の関数があったりと学びがありました

絶対値だけ久々すぎて、義務教育の振り返りにもなりました笑

参考文献

「VBAマスターに俺はなる」

最後まで読んでいただき
ありがとうございます
安田

マガジンにまとめてありますので
よかったらそちらも御覧ください

VBA学習｜安田亙(Wataru Yasuda)アニメ愛と人間力で未来を創造するエンジニア｜note