组合框与不同的工作表，改变工作表在代码

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）