Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

切り取りモード、コピーモードの取得・解除（CutCopyMode プロパティ）

2016/02/04

切り取りモード、コピーモードの取得と設定

CutCopyMode プロパティ を使うと、切り取りモードまたはコピーモードの状態を取得することができます。
設定の場合は、True および False のいずれかを指定できますが、いずれを指定しても、切り取りモードまたはコピーモードの状態が解除されます。

【書式】

＜取得＞
result = object.CutCopyMode

＜設定＞
object.CutCopyMode = boolean

引数・戻り値

object ・・・対象となる Application オブジェクトを指定します。
result ・・・ False または、XlCutCopyMode 列挙型 の値。

定数値内容

xlCopy 1 コピーモード

xlCut 2 切り取りモード
boolean ・・・ True または、False を指定します。いずれを指定しても、切り取りモードまたはコピーモードを解除し、点滅している枠線を取り除きます。

CutCopyMode プロパティ は、戻り値と設定値が異なります。

CutCopyMode プロパティ使用例

サンプルVBAソース

　
Sub Sample_copy()

    'セル範囲「A1:E6」をコピー
    Worksheets("Sheet1").Range("A1:E6").Copy
    
End Sub

Sub Sample_cut()

    'セル範囲「A1:E6」を切り取り
    Worksheets("Sheet1").Range("A1:E6").Cut
    
End Sub

Sub Sample_CutCopyMode1()

    '切り取りモード・コピーモードの状態を取得
    
    Select Case Application.CutCopyMode
    
    Case xlCopy
        MsgBox "コピーモード"
    
    Case xlCut
        MsgBox "切り取りモード"
    
    Case Else
        MsgBox "どちらでもありません"
    
    End Select

End Sub

Sub Sample_CutCopyMode2()

    '切り取りモードまたはコピーモードを解除
    Application.CutCopyMode = True
        
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

　

Sub Sample_copy()

'セル範囲「A1:E6」をコピー

Worksheets("Sheet1").Range("A1:E6").Copy

End Sub

Sub Sample_cut()

'セル範囲「A1:E6」を切り取り

Worksheets("Sheet1").Range("A1:E6").Cut

End Sub

Sub Sample_CutCopyMode1()

'切り取りモード・コピーモードの状態を取得

Select Case Application.CutCopyMode

Case xlCopy

MsgBox "コピーモード"

Case xlCut

MsgBox "切り取りモード"

Case Else

MsgBox "どちらでもありません"

End Select

End Sub

Sub Sample_CutCopyMode2()

'切り取りモードまたはコピーモードを解除

Application.CutCopyMode = True

End Sub

　

実行結果

Sample_copy を実行後、Sample_CutCopyMode1 を実行

Sample_cut を実行後、Sample_CutCopyMode1 を実行

上記、いずれかを実行後に、Sample_CutCopyMode2 を実行

- その他の操作 Application オブジェクト, CutCopyMode プロパティ, VBA基本, XlCutCopyMode 列挙型, エクセルVBA, その他

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: イミディエイトウィンドウに出力（Debug.Print メソッド）

イミディエイトウィンドウに出力マクロ実行中に、Debug オブジェクトの P …

: 確認メッセージの表示・非表示（DisplayAlerts プロパティ）

警告や確認メッセージの表示・非表示を設定マクロ実行中に、警告や確認メッセージの …

: 実行中のマクロを指定時刻まで停止する（Wait メソッド）

実行中のマクロを一時停止 Wait メソッドで、実行中のマクロを、指定した時刻ま …

: マウスポインタの形状の取得・変更（Cursor プロパティ）

マウスポインタの形状の取得・変更 Excel のマウスポインタの形状を設定したり …

: オブジェクトをクリップボードへピクチャ（画像）としてコピー（CopyPicture メソッド）

オブジェクトをクリップボードへピクチャ（画像）としてコピー指定したオブジェクト …

: マクロを中断する（Assert メソッド）

マクロを中断しデバッグモードにする Debug オブジェクトの Assert …

: マクロを中断する（Stop ステートメント）

マクロを中断しデバッグモードにするマクロの実行をを中断し、デバッグモードにする …

: ウィンドウの画面を構成する各要素の表示設定

ウィンドウの画面を構成する各要素の表示設定 DisplayWorkbookTab …

PREV: マウスポインタの形状の取得・変更（Cursor プロパティ）
NEXT: 枠線の表示・非表示の設定（DisplayGridlines プロパティ）