带有不同工作表的组合框，可以在代码中更改工作表

Question

我有一个问题： 我想要一个Combobox，其中显示所有工作表。如果选择工作表，则代码中的工作表需要更改为您选择的工作表。我已经尝试但无法对此进行编程。 简单的例子：

dim WRKsheet as worksheet
set worksheet = Combobox1.value
sheets(WRKsheet).activate

你们中的任何人都知道我怎么能在这方面取得成功吗？ GRTS

Answer 1

在User_Form模块

中使用以下代码

Private Sub ComboBox1_Change()

' select the worksheet selected in the ComboBox1
Worksheets(ComboBox1.Value).Activate

End Sub


Private Sub UserForm_Activate()

Dim Sht As Worksheet

' show all sheets names in thisworkbook in ComboBox1
For Each Sht In ThisWorkbook.Sheets
    ComboBox1.AddItem Sht.Name
Next Sht

End Sub

注意:(您需要使用UserForm1.Show）

从另一个模块调用该表单