|
関数にしてみました。
標準モジュールにコピペして使います。
Function AveSpeed(TotalLength As Range, OpeTime As Range)
'TotalLength:総巻長 OpeTime:運転時間
AveSpeed = ""
Select Case True
'総巻長が空白の時
Case TotalLength.Value = ""
Exit Function
'運転時間が空白の時
Case OpeTime.Value = ""
Exit Function
'総巻長が数字じゃない時
Case Not IsNumeric(TotalLength.Value)
MsgBox "総巻長項目には、数値を入力して下さい。", vbExclamation, "平均速度算出"
Exit Function
'運転時間が数字じゃない時
Case Not IsNumeric(OpeTime.Value)
MsgBox "運転時間項目には、数値を入力して下さい。", vbExclamation, "平均速度算出"
Exit Function
'総巻長が0以下の場合
Case TotalLength <= 0
MsgBox "総巻長が 0(m) または 0(m)以下 のため、平均速度が算出できません。", vbExclamation, "平均速度算出"
Exit Function
'運転時間が0以下の場合
Case OpeTime <= 0
MsgBox "運転時間項目には、0より大きい数値を入力して下さい。", vbExclamation, "平均速度算出"
Exit Function
End Select
AveSpeed = TotalLength / OpeTime
End Function
他の関数と同じように、A1が総巻長、B1が運転時間のときに
=AveSpeed(A1,B1)
という感じで入力します。って、もう見てないよな・・・
|
|