[[20170502184631]]　『コピペの時作動させないようにするには』（CH）　ページの最後に飛ぶ

『コピペの時作動させないようにするには』（CH）

Private Sub Worksheet_Change(ByVal Target As Range)

   Dim r As Range
      Set r = Intersect(Target, Columns.Item(1))
      If Not r Is Nothing Then
          A処理 r
      End If
End Sub

Private Sub A処理(ByVal Target As Range)

 Dim r As Range
  Application.EnableEvents = False
  For Each r In Target
      If IsEmpty(r.Value) Then
          r.Offset(, 1).ClearContents
      End If
  Next r
  Application.EnableEvents = True
End Sub

以下のようなデータをコピペした場合
CCCCCCとDDDDDDはマクロのワークシートチェンジオブジェクトで
いったん現れますが、すぐ消えてしまいます。
コピペの時にはチェンジオブジェクトを動作させない方法は
ありませんか？よろしくお願いします。

     A                 B
5   XXX             AAAAAA
6   CCC             BBBBBB
7                   CCCCCC
8                   DDDDDD

15 XXX AAAAAA
16 CCC BBBBBB
17
18

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

If Application.CutCopyMode Then Exit Sub

で、どうなりますか。

（マナ） 2017/05/02(火) 19:09

（マナ）さん
ありがとうございます。
バッチリでした。

（CH） 2017/05/02(火) 21:31

コメント返信：

[ 一覧(最新更新順) ]

[[20170502184631]] 『コピペの時作動させないようにするには』（CH） ページの最後に飛ぶ

[[20170502184631]]　『コピペの時作動させないようにするには』（CH）　ページの最後に飛ぶ