Excel VBA質問箱 IV

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

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


31080 / 76732 ←次へ | 前へ→

【50909】Re:イベントの実行を回避したいのですが
発言  kobasan  - 07/8/22(水) 6:42 -

引用なし
パスワード
   おはようございます。

>Application.EnableEventsの位置を変え、Goto文を入れてみたのですが、
>「今度は型が一致しません」というエラーが出ます。
>出る位置はどういう法則か分かりませんが1.、2.の2か所です。
>Goto文でJump_Exit:まで移動しているはずなのですが・・・

このエラーは、選択範囲に問題があると思います。
Targetが1つのセルの時だけ動くようにするといいです。


>Private Sub Worksheet_Change(ByVal Target As Range)
>
>'[[ 部品内訳入力画面 Macro ]]
>
>''すべての行の見積単価を検索
>
>'''品名に合わせたリストを選択し表示させる

  '-------------------------------------------<==●追加●
  '選択範囲がセル以外の時のエラー回避
  If Not TypeOf Target Is Range Then Exit Sub
  'セルの選択範囲が1つ以上の時のエラー回避
  If Target.Count > 1 Then Exit Sub
    '---------------------------------'<==●ここまで追加●

>  Application.EnableEvents = False
>  If Not Intersect(Target, Range("C7:C26")) Is Nothing Then
>   'On Error Resume Next 'エラーを無視する
>   'イベントプロシージャーの実行を回避する
>  
>   If Target.Value = Enpty Then ←1.デバックで黄色表示
>    Range(Target.Offset(, 1), Target.Offset(, 9)).ClearContents
>    GoTo Jump_Exit
>   Else

   ・・・・・・

>   If Target.Offset(, -2).Value <> True Then  ←2.デバック

これで、1,2のエラーは発生しないと思います。

On Error Resume Next はエラー内容が分かっていて、そのエラーをうまく利用するときに使うといいです。
どんなエラーが起こっているか分からないまま使うと、逆に予期せぬ弊害が発生して、訳が分からなくなります。

0 hits

【50839】イベントの実行を回避したいのですが Tsuyo 07/8/17(金) 18:12 質問
【50842】Re:イベントの実行を回避したいのですが neptune 07/8/17(金) 19:57 発言
【50843】Re:イベントの実行を回避したいのですが kobasan 07/8/18(土) 0:20 発言
【50844】Re:イベントの実行を回避したいのですが neptune 07/8/18(土) 8:28 発言
【50845】Re:イベントの実行を回避したいのですが Tsuyo 07/8/18(土) 9:07 質問
【50846】Re:イベントの実行を回避したいのですが neptune 07/8/18(土) 9:42 発言
【50847】Re:イベントの実行を回避したいのですが Tsuyo 07/8/18(土) 11:04 質問
【50851】Re:イベントの実行を回避したいのですが neptune 07/8/18(土) 21:11 発言
【50900】Re:イベントの実行を回避したいのですが [名前なし] 07/8/21(火) 22:44 質問
【50852】Re:イベントの実行を回避したいのですが kobasan 07/8/18(土) 21:17 発言
【50903】Re:イベントの実行を回避したいのですが Tsuyo 07/8/21(火) 23:19 質問
【50909】Re:イベントの実行を回避したいのですが kobasan 07/8/22(水) 6:42 発言
【50915】Re:イベントの実行を回避したいのですが Tsuyo 07/8/22(水) 9:30 お礼

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