[[20200207130344]]　『CutCopyMode プロパティについて』（あーちゃ）　ページの最後に飛ぶ

『CutCopyMode プロパティについて』（あーちゃ）

エクセル初心者です。
初歩的な質問かもしれないのですが、おわかりになる方
教えていただけたら幸いです。
↓

「Application.CutCopyMode = False」は前段でコピー(または切り取り)を
行っている場合に、それを無効にしているとの理解ですが、以下の中に
コピーや切り取りをしている構文が見当たりません。
この場合の「Application.CutCopyMode = False」は何をしているのでしょうか？

　　Dim ans As Integer

    ans = MsgBox("マクロを実行しますか？", vbYesNo)
    If ans = vbNo Then End

    start = Timer
    Debug.Print Time & "- スタート"
    Application.ScreenUpdating = False

  'メインシートを指定。

    Application.CutCopyMode = False

    mainsheets.Activate

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 このコードはプロシージャの一部ですよね？

 標準モジュールに記述されているのか、シートモジュール等
 なのか不明ですが、もしかしたら他のプロシージャ等から
 Callされているのかもしれません。

 >mainsheets
 この変数が宣言されている部分が記載されてないので、
 他から呼び出されてるのかもしれません。

 もしそうだとすると、呼び出し側のプロシージャ内に
 コピー等の記述があるのかもしれません。
（OK） 2020/02/07(金) 13:30

早速ありがとうございます。
標準モジュールにこのように記載されているのですが。。

Sub Macro1()

Application.Calculation = xlAutomatic

    Dim mainsheets As Worksheet
    Dim 反映sheets As Worksheet
    Set mainsheets = Sheets("ロック")
    Dim itemlist(30000, 1) As String
    Dim namelist(30000) As String
    Dim obj As Object
    Dim セル最大 As Long
    Dim セル最大2 As Long
    Dim セル最大3 As Long
    Dim セル最大4 As Long

    Dim countNG As Long

    'このブックを定義する
    'Dim returnbook As String
    returnbook = ActiveWorkbook.Name
    Application.CutCopyMode = False
    mainsheets.Activate

'最終行を確認｡ロックシートの最終行を定義。

    セル最大 = Cells(Rows.Count, 1).End(xlUp).row

'メッセージボックス　マクロを実行しますか？

    Dim ans As Integer
    ans = MsgBox("マクロを実行しますか？", vbYesNo)
    If ans = vbNo Then End

    start = Timer
    Debug.Print Time & "- スタート"
    Application.ScreenUpdating = False

    'メインシートを指定。

    Application.CutCopyMode = False

    mainsheets.Activate

（あーちゃ） 2020/02/07(金) 13:53

マクロ起動時、コピーカット状態だと嫌なので、
おまじない的に入れている、とかも考えられるのでは。
（tkit） 2020/02/07(金) 13:58

いたるところに記述があるので、おまじない的に入れているのかもしれないとのご意見に納得です。
ありがとうございました。
（あーちゃ） 2020/02/07(金) 14:35

コメント返信：

[ 一覧(最新更新順) ]

[[20200207130344]] 『CutCopyMode プロパティについて』（あーちゃ） ページの最後に飛ぶ

[[20200207130344]]　『CutCopyMode プロパティについて』（あーちゃ）　ページの最後に飛ぶ