0

我在尝试创建一个 Excel 工作簿时遇到了一个问题，该工作簿将解析另一个工作簿中用户表单中定义的多个范围。我的问题是，当我尝试在表单中粘贴范围时，代码只会粘贴字符串而不是代码本身。

注意：这是 Jan Karel 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 的值为“[Workbook]sheet1!a4:j365”，我想将该范围地址的内容粘贴到“A2”处的新工作簿中

请帮忙！

4

1 回答 1

0

Range("A2")返回一个范围对象。

如果要修改单元格的公式，则应修改Range("A2").FormulaR1C1. 如果要修改值，则应修改Range("A2").Value.

于 2013-08-02T18:59:14.607 回答