我正在尝试构建一个宏,将工作表从一个工作簿复制到另一个工作簿中的工作表 . 有没有办法可以使用VBA代码来手动选择我要复制的工作表?
现在宏工作,只要我在实际的VBA代码中输入完整的工作表名称 . 理想情况下,我希望宏允许我通过对话框选择工作表 . 我知道你可以复制/粘贴表格或其内容,但由于规模的原因,我正在为之工作的人不想这样做 .
您可以使用 Worksheets 集合在用户表单中填充 ListBox . 这应该让你开始:
Worksheets
ListBox
用户表单中的代码(!):
Private Sub UserForm_Initialize() Dim v As Worksheet For Each v In Worksheets UserForm1.lstWorksheets.AddItem v.Name Next End Sub Private Sub cmdSelectWorksheet_Click() MsgBox "You selected " & lstWorksheets.Value End Sub
1 回答
您可以使用
Worksheets
集合在用户表单中填充ListBox
. 这应该让你开始:用户表单中的代码(!):