将dim ws As Worksheet与me.textbox连接

Question

是否可以像这样连接工作表？ const ws = me.textbox

我想创建一个下拉列表，以选择用户表单中的工作表。 我知道该方法无效，我将其粘贴在下面。

还有其他可行的方法吗？

我使用select case，但这意味着我整个代码编写了 X次

Sub Populate()

Dim ws As Worksheet
Set ws = me.ChoseSheet

Answer 1

首先将文本框值分配给字符串，然后将其传递给set

    strSheetName = Me.ChoseSheet
    Set ws = ThisWorkbook.Worksheets(strSheetName)

Answer 2

您可以使用For each循环在ComboBox上填充UserForm

例如：

Public Sub UserForm_Initialize()
Dim ws as WorkSheet

For each ws in ActiveWorkbook.Worksheets
    Combobox1.AddItem(ws.Name)
next ws

End sub