如何避免像下面的代碼中那樣用復制命名的Range進行選擇
。Sub Paste_Named_Range()
If Sheet03.[G60] = "3rd Q" Then
Sheet03.[Quarter_1].Copy
Sheet03.[O68].Select
Sheet03.Paste Link:=True。
結束 If
End Sub
uj5u.com熱心網友回復：
這是一個特殊的情況。由于你使用的是鏈接引數=True，恐怕你必須先選擇目的地。
Worksheet.Paste method (Excel)
在關于Link的檔案中：
True，以建立一個指向所粘貼資料來源的鏈接。如果這個 引數被指定，則不能使用Destination引數。默認值是False。 默認值是False。
而且因為我們被迫省略了Destination引數，所以：
如果這個引數被省略了，那么就會使用當前的選擇。這個 這個引數只有在剪貼板的內容可以被粘貼到一個范圍內時才能被指定。 粘貼到一個范圍內。
由于這一切，在這種情況下，恐怕你無法避免選擇。所以你的代碼應該和你的代碼完全一樣：
Sheet03.[quarter_1].Copy
Sheet03.[O68].Select。
Sheet03.Paste Link:=True。
好問題。我不知道這個事實。讓我們看看其他用戶是否能幫助你，但在閱讀了檔案后，我恐怕不能。
uj5u.com熱心網友回復：
復制一個簡單的公式而不是Paste Link:=True
- 只有當
Quarter_1是一個連續的(單一的)范圍時，下面才會正常作業。
Option Explicit>
Sub Paste_Named_Range()
' 只對一個連續的（單一的）范圍（有一個區域的范圍）起作用。
Dim srg As Range: Set srg = Sheet03.[quarter_1] ' .Areas(1)
Dim drg As Range
Set drg = Sheet03.[O68].Resize(srg.Rows.Count, srg.Columns.Count)
If Sheet03.[G60] = "Third Q" Then
drg.Formula = "=" & srg.Cells(1).Address(0, 0)
結束 If
結束 子
uj5u.com熱心網友回復：
如何避免復制/粘貼
Sub Paste_Named_Range()
If Sheet03.[G60] = "3rd Q" Then
Sheet03.[O68].公式 = "=Quarter_1"
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/323580.html
標籤：