Excel VBA質問箱 IV

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

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


31146 / 76738 ←次へ | 前へ→

【50847】Re:イベントの実行を回避したいのですが
質問  Tsuyo  - 07/8/18(土) 11:04 -

引用なし
パスワード
   ▼neptune さん:
>すみませんが、どういう条件の時、
>※下記のコードが動いてしまっているようです。
>のコードを動かしたいのですか?

説明を端折ってしまって申し訳ありません。
この部品見積のChangeイベントは、
 1.C列の部品分類リストから選択すると、
 2.D列に関連する部品リストが作られるようになっています。 
 3.E列は数量を入力します。 
 4.FとH列は仕入値と原価で、D列リストから選択した部品の価格表からVLOOKUPで  もってきています。
 5.G,I列は数量と仕入値、原価を掛けた値段です。
 6.J列は売値を計算しています。
 このすべてをイベントでやっていますが、下記コードとは4.〜6.のことです。
 この範囲イベントの範囲を7から26行に設定しています。
 
>又、どういう時にイベントを抑止したいのでしょう?
>今のコードだと
>Not Intersect(Target, Range("C7:C26")) Is Nothing =TRUE
>の時しかイベントの抑止は効かないようになってますが。
 当然人間がやることなので、見積の変更や失敗がありますので、内容をCLEARするときもありますが、その削除の仕方をC列を消すとその行全ての内容が消えるようにしました。
 問題は削除されたあとに4.〜6.のイベントが働いて不要な”0”がなぜかF〜P行まで記入されてしまうことです。

>但し、位置的には・・・
 質問を送信したあと発見し直しました。 すいません。
>それとデバッグ段階では完全にエラーを把握している時以外は、
>>On Error Resume Next 'エラーを無視する
>は使わない方が良いかと。
 これも実際は’を付けてテストしています。端折ってすいませんm(_ _)m


>>※下記のコードが動いてしまっているようです。
>のコードの中にその処理をしてますか?
どの様な処理をすれば良いのか分かりませんが、ここがポイントなのでしょうか?
私はC列のイベントにだけ
Application.EnableEvents = False
を入力してやれば上手くいくのではと思っていたのでその他は特に処理はしていません。

以上長くなってしまいましたが、宜しくお願いします。

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

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