こちらに「数学関数の実務サンプル集（丸め処理・乱数抽選・三角関数応用）」をまとめました。
金額計算や抽選処理、角度計算など、実務で役立つ具体例をVBAコード付きで紹介します。
実務サンプル集
1. 丸め処理（Round / Int / Fix）
Sub RoundExamples()
Dim val As Double
val = 1234.567
' 四捨五入（小数第2位まで）
MsgBox "四捨五入: " & Round(val, 2) ' → 1234.57
' 切り捨て（常に小さい方へ）
MsgBox "Int: " & Int(val) ' → 1234
' 切り捨て（0方向へ）
MsgBox "Fix: " & Fix(-1234.567) ' → -1234
End Sub
👉 金額計算や端数処理に利用。特に消費税計算などで重要。
2. 乱数抽選（Rnd / Randomize）
Sub LotteryDraw()
Dim i As Long, num As Long
Dim winners As String
Randomize ' 乱数系列を初期化
For i = 1 To 5
num = Int((100 * Rnd) + 1) ' 1～100の乱数
winners = winners & num & " "
Next i
MsgBox "当選番号: " & winners
End Sub
👉 抽選・サンプリング・テストデータ生成に活用。
3. サイコロシミュレーション
Sub DiceSimulation()
Dim i As Long, dice As Long, counts(1 To 6) As Long
Randomize
For i = 1 To 1000
dice = Int((6 * Rnd) + 1)
counts(dice) = counts(dice) + 1
Next i
For i = 1 To 6
Debug.Print i & "の出目: " & counts(i)
Next i
End Sub
👉 確率検証や統計シミュレーションに利用可能。
4. 三角関数応用（角度から座標計算）
Sub CircleCoordinates()
Dim angle As Double, x As Double, y As Double
Dim r As Double
r = 10 ' 半径
For angle = 0 To 360 Step 45
x = r * Cos(angle * WorksheetFunction.Pi() / 180)
y = r * Sin(angle * WorksheetFunction.Pi() / 180)
Debug.Print "角度:" & angle & " → X=" & x & ", Y=" & y
Next angle
End Sub
👉 角度から座標を算出。グラフ描画や幾何計算に便利。
5. 三角関数応用（傾斜角から高さ計算）
Sub SlopeHeight()
Dim distance As Double, angle As Double, height As Double
distance = 50 ' 水平距離
angle = 30 ' 角度（度数法）
height = distance * Tan(angle * WorksheetFunction.Pi() / 180)
MsgBox "高さは " & height & " m"
End Sub
👉 建築・土木・設計などでの角度計算に応用可能。
✅ まとめ
- 丸め処理 → 金額計算や端数処理に必須
- 乱数抽選 → 抽選・シミュレーション・テストデータ生成に活用
- 三角関数応用 → 座標計算や角度から高さ算出など実務的に利用可能
💡 この仕組みを応用すれば、「シミュレーション結果をグラフ化」「三角関数で図形を自動描画」といった高度な処理も可能です。