如何编写命令按钮以将一系列单元格复制到新工作表?

时间:2017-01-13 19:04:07

标签: vba excel-vba excel

我有一些带有一些代码的用户表单。

单击命令按钮1时,它会将单元格范围和粘贴复制到同一工作表的sheet1。

是否可以同时复制到C:/test/master.xlsx下保存的其他工作表?该主板可以关闭或打开。任何帮助将受到高度赞赏。当前表的代码如下:

Private Sub CommandButton1_Click()

Dim ssheet As Worksheet
Set ssheet = ThisWorkbook.Sheets("Sheet1")
nr = ssheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ssheet.Cells(nr, 1) = CDate(Me.TextBox1)
ssheet.Cells(nr, 2) = (Me.TextBox2)
ssheet.Cells(nr, 3) = (Me.ComboBox1)
ssheet.Cells(nr, 4) = Evaluate("=NOW()-TODAY()")

End Sub

0 个答案:

没有答案