Excel VBA質問箱 IV

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

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


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

65835 / 76807

←次へ　｜　前へ→


	【15543】Re:Worksheet_Changeについて

[名前なし] - 04/6/28(月) 22:41 -


	引用なし

	パスワード

関数にしてみました。
標準モジュールにコピペして使います。

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)

という感じで入力します。って、もう見てないよな・・・

1 hits

▼

【15534】Worksheet_Changeについて まさぼん 04/6/28(月) 19:07