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

3 hits

【50335】Select Caseを使った計算方法を教えてください kumi 07/7/20(金) 9:47 質問
【50336】Re:Select Caseを使った計算方法を教えてく... Jaka 07/7/20(金) 10:09 発言
【50340】Re:Select Caseを使った計算方法を教えてく... Jaka 07/7/20(金) 10:57 発言
【50349】一応貼っときます Jaka 07/7/20(金) 14:17 発言
【50337】Re:Select Caseを使った計算方法を教えてく... Lindy 07/7/20(金) 10:33 発言
【50351】Re:Select Caseを使った計算方法を教えてく... ichinose 07/7/20(金) 16:03 発言
【50350】Re:Select Caseを使った計算方法を教えてく... マルチネス 07/7/20(金) 15:05 発言

31641 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free