Excel VBA質問箱 IV

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

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


65762 / 76734 ←次へ | 前へ→

【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)

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

【15534】Worksheet_Changeについて まさぼん 04/6/28(月) 19:07 質問
【15535】Re:Worksheet_Changeについて ちゃっぴ 04/6/28(月) 19:21 発言
【15536】Re:Worksheet_Changeについて まさぼん 04/6/28(月) 19:42 発言
【15537】Re:Worksheet_Changeについて まさぼん 04/6/28(月) 19:50 発言
【15538】Re:Worksheet_Changeについて IROC 04/6/28(月) 20:02 回答
【15539】Re:Worksheet_Changeについて まさぼん 04/6/28(月) 20:24 質問
【15541】Re:Worksheet_Changeについて まさぼん 04/6/28(月) 20:38 お礼
【15543】Re:Worksheet_Changeについて [名前なし] 04/6/28(月) 22:41 発言
【15548】Re:Worksheet_Changeについて まさくん 04/6/29(火) 0:34 お礼

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