[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『コピペの時作動させないようにするには』(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 >
で、どうなりますか。
(マナ) 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.