Excel VBA質問箱 IV

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

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


41403 / 76732 ←次へ | 前へ→

【40409】ワークシートチェンジイベントについて
質問  aaa  - 06/7/13(木) 13:14 -

引用なし
パスワード
   いつもお世話になっております。
ワークシートチェンジイベントで下記のようなコードを書きました。
しかしエラー処理などを入れているうちにうまく動かなくなり、元に戻したのですがやっぱり動きません。
どこがおかしいのでしょうか??
同じようなコードを書こうとしているワークシートは6枚あります。
そのシートにはデータ一覧とグラフがあり、B1とD1には日付が、G1にはグラフの最大値が入っています。
この3つの値どれかひとつでも変更すると一覧とグラフが切り替わるようにしたいと思っています。
以下の場合のグラフ作成のサブルーチンは1_creategraphです。

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim onDate As Variant
  Dim ofDate As Variant
  Dim maxvalue As Variant
    Application.ScreenUpdating = False  
    Application.EnableEvents = False
    onDate = Worksheets("Sheet1").Range("B1").Value
    ofDate = Worksheets("Sheet1").Range("D1").Value
    maxvalue = Worksheets("Sheet1").Range("G1").Value
    With Target
      If onDate Or ofDate Or maxvalue Then
        1_creategraph
      End If
    End With
  Application.EnableEvents = True
End Sub

またエラー処理(3つのセルに値が入力されなかった場合と、B1の日付がD1よりも上回った場合)もしたいです。
あとエラーが出た場合セルのフォーカスをしない処理にしたいです。
以下のようにこれらのエラー処理を入れた後から動かなくなりました。

If maxvalue = "" Then
  MsgBox "最大値を入れてください"
  Worksheets("Sheet1").Range("G1").Activate
End If
If onDate = "" Then
  MsgBox "日付を入れてください"
  Worksheets("Sheet1").Range("B1").Activate
End If
If ofDate = "" Then
  MsgBox "日付を入れてください"
  Worksheets("Sheet1").Range("C1").Activate
End If
If onDate > ofDate Then
  MsgBox "正しい日付を入力してください"
  Worksheets("Sheet1").Range("B1").Activate
End If

何か問題があるのでしょうか?
さっぱりわかりません。
よろしくお願いします。

0 hits

【40409】ワークシートチェンジイベントについて aaa 06/7/13(木) 13:14 質問
【40412】Re:ワークシートチェンジイベントについて Statis 06/7/13(木) 13:37 回答
【40413】Re:ワークシートチェンジイベントについて ハト 06/7/13(木) 13:52 発言
【40416】Re:ワークシートチェンジイベントについて aaa 06/7/13(木) 15:01 質問
【40418】Re:ワークシートチェンジイベントについて Statis 06/7/13(木) 15:19 発言
【40423】Re:ワークシートチェンジイベントについて aaa 06/7/13(木) 15:34 発言
【40425】Re:ワークシートチェンジイベントについて Statis 06/7/13(木) 15:46 発言
【40426】Re:ワークシートチェンジイベントについて aaa 06/7/13(木) 15:54 発言
【40428】Re:ワークシートチェンジイベントについて Statis 06/7/13(木) 16:03 回答
【40432】Re:ワークシートチェンジイベントについて aaa 06/7/13(木) 16:58 発言
【40434】Re:ワークシートチェンジイベントについて ハト 06/7/13(木) 17:12 回答
【40436】Re:ワークシートチェンジイベントについて aaa 06/7/13(木) 17:33 お礼
【40419】Re:ワークシートチェンジイベントについて ハト 06/7/13(木) 15:22 発言
【40424】Re:ワークシートチェンジイベントについて aaa 06/7/13(木) 15:39 発言
【40427】Re:ワークシートチェンジイベントについて ハト 06/7/13(木) 15:55 発言

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