Excel VBA質問箱 IV

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

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


65768 / 76734 ←次へ | 前へ→

【15537】Re:Worksheet_Changeについて
発言  まさぼん  - 04/6/28(月) 19:50 -

引用なし
パスワード
   ちなみにソースはこちらです。


Private Sub Worksheet_Change(ByVal Target As Range)

  Dim lngOpeTime     As Long         ' 運転時間
  Dim lngAveSpeed     As Long         ' 平均速度


  ' 処理開始
  On Error GoTo ErrorHandler
  
  ' 運転時間取得
  lngOpeTime = Sheets(MAIN_SHEET).Range("celOpeTime").Value
  
  
  '---値チェック---
  If Sheets(MAIN_SHEET).Range("celOpeTime").Value <> 0 Then
    ' 総巻長が0以下だった場合
    If glngTotalLength <= 0 Then
      ' 総巻長 = 0の場合 -> 計算不可
      'メッセージボックス出力
      MsgBox "総巻長が 0(m) または 0(m)以下 のため、平均速度が算出できません。", vbInformation, "平均速度算出"
              
      Exit Sub
    End If
    
    
    ' 運転時間が数値入力された場合
    If IsNumeric(lngOpeTime) = True Then
      ' 運転時間が0入力でない場合
      If lngOpeTime > 0 Then
        ' 平均速度を算出
        lngAveSpeed = glngTotalLength / lngOpeTime
        ' 平均速度を表示
        Sheets(MAIN_SHEET).Range("celAveSpeed").Value = lngAveSpeed
→正常入力した場合、ココにくるんですが、ここで、また先頭に戻り、ずーっとloopするんです!        
        Exit Sub
      Else
        ' 運転時間が0以下入力の場合 -> 計算不可
        'メッセージボックス出力
        MsgBox "運転時間項目には、0より大きい数値を入力して下さい。", vbInformation, "平均速度算出"
        
        Exit Sub
      End If
    Else
      ' 運転時間が数値入力でない場合 -> 計算不可
      'メッセージボックス出力
      MsgBox "運転時間項目には、数値を入力して下さい。", vbInformation, "平均速度算出"

      Exit Sub
    End If  
  End If
  
  Exit Sub
          
ErrorHandler:

  ' エラー処理
  gErrMsgOutPut "Worksheet_Change", Err.Description
  
End Sub

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 お礼

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