訪問Worksheet_SelectionChange子例程中的命名範圍

Question

我幾乎沒有VBA背景，對其整體結構瞭解甚少，但需要對現有電子表格進行添加/修改才能完成某些目標。該電子表格包含數百個命名範圍以及數十個VBA函數和計算。

現在，所有我試圖做的是：

1. 在表1創建一個下拉（數據驗證類型） - 根據您的選擇
2. DONE，複製許多有名有姓的範圍之一存儲在工作表2中，到工作表3上的某個位置（如A1）。

要實現第2步，我開始了Worksheet_SelectionChange子例程，代碼如下所示。假設兩個下拉選項= ABC & XYZ。假定兩個對應的命名範圍爲ABC_data & XYZ_data。這兩個命名範圍是工作簿範圍。它們將被複制到標有SheetC的工作表中。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Dim PD As String, transferRange As Range 
PD = Target.Value 
Select Case PD 
    Case "ABC" 
     transferRange = ABC_data 
    Case "XYZ" 
     transferRange = XYZ_data '<~ error here, assuming "XYZ" selection 
End Select 
Range(transferRange).Copy ThisWorkbook.Sheets("SheetC").Range("A1") 
End Sub 

請幫我理解這有什麼問題。當我做出選擇並調試該子例程時，假設選擇了XYZ，我會在transferRange = XYZ_data行處得到「對象變量或塊變量未設置」錯誤。看起來我無法訪問此子例程中的命名範圍。我應該採取什麼措施？

請耐心等待我對自己在做什麼的拼湊知識。

Answer 1

試一下這個（注意我說的目的地：=位希望解決您的最終錯誤：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Dim PD As String, transferRange As Range 
PD = Target.Value 
Select Case PD 
    Case "ABC" 
     Set transferRange = ThisWorkbook.Sheets("SheetB").Range("ABC_data") 
    Case "XYZ" 
     Set transferRange = ThisWorkbook.Sheets("SheetB").Range("XYZ_data") 
End Select 
Range(transferRange).Copy Destination:=ThisWorkbook.Sheets("SheetC").Range("A1") 
End Sub