Excel VBA質問箱 IV

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

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


29920 / 76738 ←次へ | 前へ→

【52091】Re:Changeイベント
お礼  acch  - 07/10/20(土) 15:37 -

引用なし
パスワード
   Application.EnableEvents = False  'イベントの発生抑止(無限処理防止)
Application.EnableEvents = True   'イベントの発生抑止の解除
でできました。
過去ログをもっと調べてからにすればよかったです。
すみませんでした。

▼acch さん:
>教えてください。
>セル内容を変更すると、下記のChangeイベント(セル内容を変更)が発生します。しかし(1)のところで、また、Changeイベントが発生するらしく、無限ループになってしまいます。Changeイベントを発生させない方法を教えてください。
>
>このルーチンは「ThisWorkbook」に記述しています。
>
>Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
>  If Sh.Name <> "追加データ" Then
>   GoTo name_id_set90
>  End If
>  If Target.Column = 4 Then
>   tg_row = Target.Row
>   tg_column = Target.Column
>   tg_cell = Worksheets("追加データ").Cells(tg_row, tg_column).Value
>  End If
>  If tg_cell = "" Then
>   GoTo name_id_set90
>  End If
>'
>  Application.ScreenUpdating = True
>'
>  ix = 5
>name_id_set10:
>  ix = ix + 1
>  Worksheets("データプール").Activate
>  If Worksheets("データプール").Cells(ix, 4) = "" Then
>   GoTo name_id_set90
>  End If
>  If Worksheets("データプール").Cells(ix, 4) = tg_cell Then
>   tg_id = Worksheets("データプール").Cells(ix, 2)
>   tg_name = Worksheets("データプール").Cells(ix, 3)
>   Worksheets("追加データ").Activate
>'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
>   Cells(tg_row, tg_column - 2).Select
>   Selection = tg_id              <----- (1)
>'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
>   Cells(tg_row, tg_column - 1).Select
>   Selection = tg_name
>'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
>   GoTo name_id_set90
>  End If
>  GoTo name_id_set10
>name_id_set90:
>End Sub
0 hits

【52090】Changeイベント acch 07/10/20(土) 15:21 質問
【52091】Re:Changeイベント acch 07/10/20(土) 15:37 お礼

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