首页 文章

用于在Excel中选择工作表的对话框

提问于
浏览
0

我正在尝试构建一个宏,将工作表从一个工作簿复制到另一个工作簿中的工作表 . 有没有办法可以使用VBA代码来手动选择我要复制的工作表?

现在宏工作,只要我在实际的VBA代码中输入完整的工作表名称 . 理想情况下,我希望宏允许我通过对话框选择工作表 . 我知道你可以复制/粘贴表格或其内容,但由于规模的原因,我正在为之工作的人不想这样做 .

1 回答

  • 3

    您可以使用 Worksheets 集合在用户表单中填充 ListBox . 这应该让你开始:

    enter image description here

    用户表单中的代码(!):

    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
    

相关问题