Excel VBA質問箱 IV

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

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


31142 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   ▼kobasanさん、neptuneさん
返事が遅れて申し訳ありません。
試してみたのですが状況が変わりませんので、別の理由のようです。
もう少しコードを拡大して載せます。

Private Sub Worksheet_Change(ByVal Target As Range)

'''品名に合わせたリストを選択し表示させる
  If Not Intersect(Target, Range("C7:C26")) Is Nothing Then
   On Error Resume Next 'エラーを無視する
   Application.EnableEvents = False  ←働いていない
   If Target.Value = Empty Then
    Range(Target.Offset(, 1), Target.Offset(, 9)).ClearContents
   Else 
   '名前を付け
   名前 = ActiveCell.Value
   '品目を選択した行の右隣のリストを名前付けしたものに変更
   With Selection.Offset(0, 1).Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=" & "部品_" & 名前
    .IgnoreBlank = True
    .InCellDropdown = True
    .IMEMode = xlIMEModeNoControl
    .ShowInput = True
    .ShowError = True
   End With
   Application.EnableEvents = True
   End If
  End If

※下記のコードが動いてしまっているようです。

  If Not Intersect(Target, Range("D7:D26")) Is Nothing Then
   省略
  End If
 
  If Not Intersect(Target, Range("E7:E26")) Is Nothing Then
    省略
  End If

  If Not Intersect(Target, Range("I7:I26")) Is Nothing Then
    省略
  End If
 
End Sub

消した行のチェンジイベントが動いてしまっていると思うのですが。
また他につまらないことをやっていなければ良いのですが(^_^;)
これを見て、思い当たることがありましたら教えて下さい。

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

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