组合框中的索引值

Question

我正在尝试编写代码，使用以下代码在用户窗体的组合框中生成工作簿的所有工作表：

'List all sheets in combobox
    Me.ComboBox1.Clear
    For i = 1 To Sheets.Count
            Me.ComboBox1.AddItem Sheets(i).Name
        Next
        Me.ComboBox1.Value = ActiveSheet.Name

然后我想使用所选的值将数据添加到该页面。有没有一种方法可以引用工作表而不必将引用硬编码为：

If ComboBox1.Value = "Overview" Then
   sheets1.Activate
End If

当我尝试使用代码时：

ComboBox1.Value = SheetName

Worksheets(SheetName).Activate

我收到运行时错误 9。

Answer 1

添加评论作为答案：

您需要设置变量 (sheetname) 值，因此变量 = 包含变量的内容：

SheetName = Combobox1.Value

您的错误 9 可能是因为您正在引用 Worksheet()，因为您还没有为 sheetname 设置值。

组合框中的索引值

Indexing values in a combo box

excel

vba

combobox