画面が切り替わらないリンク貼り付け

質問

先日ここで、セレクトせずに貼り付ける方法を、「コピーメソッドにDestinationプロパティを設定すれば実行することができる」と言うことを教えて頂きました。
Selection.Copy Destination:=Sheets(2).Range("Z59:AG97")

今度は同じようにセレクト（画面が切り替わらない）せずに、リンク貼り付けを行いたいのです。自分なりにアレコレ試してみましたが、如何しても上手くできません。どのようにすればいいのでしょうか？
よろしくお願い致します。

回答No.1

end-u · ベストアンサー

[形式を選択して貼り付け]-[リンク貼り付け]の事でしょうか。

例えばSheet1のA1:C3セルをSheet2のA1:C3セルにリンク貼り付けする場合、

Sub test1()
　　With Application
　　　　.ScreenUpdating = False
　　　　Sheets("sheet1").Range("A1:C3").Copy
　　　　.Goto Sheets("Sheet2").Range("A1")
　　　　Sheets("sheet2").Paste link:=True
　　　　Sheets("sheet2").Range("A1").Select
　　　　Sheets("sheet1").Activate
　　　　.CutCopyMode = False
　　　　.ScreenUpdating = True
　　End With
End Sub

...と、ScreenUpdatingプロパティを制御して画面描画を停止する事で、
Selectはしますが、画面は切り替わらないのでSelectしてないように見えます。
（マクロの最初に画面描画停止、最後に描画開始）

もしくは結果重視で、[リンク貼り付け]と同じ結果になれば良いなら
Sub test2()
　　Sheets("sheet2").Range("A1:C3").Formula = "=Sheet1!A1"
End Sub
...じゃだめ？

お礼

[リンク貼り付け]と同じ効果を狙いたかったのでtest2を使わせていただきます。
成るほど、.Formulaにはこのような使い方もあるのですね。単純なA=Range（"A1"）.Formulaと言う使い方しかやった事がありませんでした。
これで、画面がチカチカ変わる煩わしさから開放されます。

また、画面スクロールを制御する方法もあるのですね。
大変勉強になりました。
ありがとうございます。