Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31641 / 76734

←次へ　｜　前へ→


	【50340】Re:Select Caseを使った計算方法を教えてください

Jaka - 07/7/20(金) 10:57 -


	引用なし

	パスワード

算数の計算式忘れちゃったんで、復習のつもりで書いてみたけれど...。
最近の計算方法はわかりません。

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

5 hits

▼

【50335】Select Caseを使った計算方法を教えてください kumi 07/7/20(金) 9:47