質問: すでにコピーした情報を貼り付けたらイベントを発生 セル番地は指定せず、どのセルでも、 すでにコピーした情報を貼り付けたらイベントを発生する ってことはできないでしょうか? ワークシートのイベントの一覧を見てみましたが ないようです。 イベントの一覧はこちらです。 activate beforedoubleclick beforerightclick calculate change deactivate followhyperlink pivottableaftervaluechange pivottablebeforeallocatechanges pivottablebeforecommitchanges pivottablebeforediscardchanges pivottablechangesync pivottableupdate selectionchange この中に、pasteと言うイベントがないことから、 そのような動作は無理なのでしょうか?
回答: #1、cjです。 すみません、編集ミスしました。 コードまるごと 差し換えでお願いします。 ' ' ============================== private sub worksheet_change(byval target as range) ' re8101870_afterpaste ' ' 条件分岐 with application if .cutcopymode = xlcopy then .enableevents = false ' 処理内容によっては必要■ ' '-----------「_afterpaste イベント」 ?での処理―――--------- msgbox "_afterpaste" ' '------------------------------------------------------- .enableevents = true ' ■ end if end with end sub ' ' //////////↓toggle↑//////// private sub worksheet_change(byval target as range) ' re8101870_beforepaste ' ' 条件分岐 with application if .cutcopymode = xlcopy then .enableevents = false ' 必須 .undo ' 一旦、貼付けをキャンセル([元に戻す]) ' '-----------「_beforepaste イベント」?での処理------------ msgbox "_beforepaste" ' '------------------------------------------------------- target.pastespecial ' あらためて貼付け .enableevents = true end if end with end sub ' ' ==============================