将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循环在UserForm上填充ComboBox

例如：

Public Sub UserForm_Initialize()
Dim ws as WorkSheet

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

End sub