VBA コピーの状態を解除する　コピーモードの解除

マクロを書いて処理させられたのはいいけど、

コピーの状態がされたまま ってありがちです。

そんな時には

Application.CutCopyMode

を使用しましょう。

サンプルコードは下記です。

Sub copyR()
Range(“A1”).Copy
Application.CutCopyMode = False
End Sub

ちなみにApplication.CutCopyModeには返り値があります。

xlcopyコピーなら １ を xlcutなら ２ を返します。

コピーされている状態　なのか、　切り取っている状態　なのか判別することができます。

使うことはなさそうですが笑

Sub copyR1()

Dim Modemiru
Range(“A1”).Copy
Modemiru = Application.CutCopyMode
Debug.Print Modemiru

Range(“A1”).Cut
Modemiru = Application.CutCopyMode
Debug.Print Modemiru

End Sub

イミディエイトウィンドウには

１

２

と表示されます。