|
算数の計算式忘れちゃったんで、復習のつもりで書いてみたけれど...。
最近の計算方法はわかりません。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
Select Case Target.Value
Case "三角形"
Target.Offset(, 4).Value = 三角形の計算(Target)
Case "正方形"
Target.Offset(, 4).Value = 正方形の計算(Target)
Case "台形"
Target.Offset(, 4).Value = 台形の計算(Target)
End Select
End Sub
Function 三角形の計算(Rng As Range) As Double
Dim 底辺 As Double, 高さ As Double
底辺 = Rng.Offset(, 2).Value
高さ = Rng.Offset(, 3).Value
三角形の計算 = 底辺 * 高さ / 2
End Function
Function 正方形の計算(Rng As Range) As Double
Dim 上辺 As Double, 底辺 As Double
上辺 = Rng.Offset(, 1).Value
底辺 = Rng.Offset(, 2).Value
正方形の計算 = 上辺 * 底辺
End Function
Function 台形の計算(Rng As Range) As Double
Dim 上辺 As Double, 底辺 As Double, 高さ As Double
上辺 = Rng.Offset(, 1).Value
底辺 = Rng.Offset(, 2).Value
高さ = Rng.Offset(, 3).Value
台形の計算 = (上辺 + 底辺) * 高さ / 2
End Function
|
|