[[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


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.