VBA pasteFormats激活目標工作表

我有一個問題，粘貼列VBA pasteFormats激活目標工作表

Set SourceWBsht = Thisworkbook.Worksheets("Source") 
    Set DestinationWBsht= Thisworkbook.Worksheets("Destination") 
    SourceWBsht.Range("A1:Z40").EntireColumn.Copy 
    DestinationWBsht.Range("A1:Z40").EntireColumn.PasteSpecial _ 
    Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

    SourceWBsht.Range("A1:Z40").EntireRow.Copy 
    DestinationWBsht.Range("A1:Z40").EntireRow.PasteSpecial _ 
    Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

的問題是VBA自動激活目標表，不知怎的，我試圖避免它。有任何想法嗎？

感謝。

來源

2017-03-06 Ahmed AbdelKhalek

後在我的Excel 2103您的代碼不激活「目標」的工作表。可能會在你的代碼執行之前或之後發出一些聲明：執行你的代碼併爲它做好準備 – user3598756

是的，使用調試工具。沒有問題。它僅在完整的代碼中激活其他工作表。 –

我沒有以任何方式獲得任何「目標」表單激活。當您啓動宏時，可能「目標」工作表是_active_一個 – user3598756

你可以嘗試這樣的事情：

DestinationWBsht.Range("A1:Z40").value = SourceWBsht.Range("A1:Z40").value

編輯1：評論

SourceWBsht.Range("A1:Z40").Copy 
DestinationWBsht.Range("A1:Z40").PasteSpecial xlPasteFormats 
Application.CutCopyMode = False

來源

2017-03-06 09:17:57 BOB

我試圖粘貼列格式和顏色，而不是值。 –

@AhmedAbdelKhalek我編輯帖子 – BOB

VBA pasteFormats激活目標工作表

回答

相關問題