Excel VBA質問箱 IV

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

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


29917 / 76734 ←次へ | 前へ→

【52090】Changeイベント
質問  acch  - 07/10/20(土) 15:21 -

引用なし
パスワード
   教えてください。
セル内容を変更すると、下記の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

1 hits

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

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