別のワークブックのユーザーフォームで定義された複数の範囲を解析する、作成しようとしている 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」に貼り付けたい
助けてください!