0

別のワークブックのユーザーフォームで定義された複数の範囲を解析する、作成しようとしている Excel ワークブックの問題に苦労しています。私の問題は、フォームに範囲を貼り付けようとすると、コードは文字列のみを貼り付け、コード自体は貼り付けないことです。

注: これは、Jan Karel Pieterse の range userform 回避策の 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