將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