將用戶窗體中的多個範圍複製到另一個工作簿中的工作表

Question

我很難解決我用Excel工作簿試圖創建的問題，該問題將從另一個工作簿中解析用戶窗體中定義的多個範圍。我的問題是，當我試圖粘貼範圍在窗體中，代碼將只粘貼字符串，而不是代碼本身。

注：這是揚卡雷爾Pieterse的範圍窗體解決辦法的MOD嘗試

下面

代碼：

Private Sub cmbOK_Click() 'VALIDATION OF RANGE 
Dim wbk As Workbook 
Dim wst As Worksheet 
Dim vbk As Variant 


vbk = "[" & Me.cbxWorkbooks.Value & "]" & Me.refSelectCells.Value 

If refSelectCells.Text <> "" Then 
    If TypeName(Selection) = "Range" Then 
     If IsValidRef(refSelectCells.Text) Then 
      OK = True 
      Windows("abc_123_Review_Automation.xlsm").Activate 
      Worksheets("CalculationSheet").Range("A2") = vbk.Value 

     End If 
    End If 
End If 
Me.Hide 
End Sub 

例如： 如果VBK的值是 「[簿] sheet1中A4：j365」 我想將該範圍地址的內容粘貼到「A2」的新工作簿中

請幫助！

Answer 1

Range("A2")返回範圍對象。

如果要修改單元格的公式，應修改Range("A2").FormulaR1C1。 如果你想修改值，你應該修改Range("A2").Value。