VBA列表框按索引选择工作表

Question

我有一个带有列表框的表单，它动态地提供当前工作簿中的工作表列表（代码如下）。我希望获取选定的工作表并在稍后的过程中在公式中引用它。从玩了几个小时，我似乎无法做到这一点。我相信我在某处读到过，您不能将字符串带回 sub 并使用它来引用对象。所以我想也许我可以创建两个列表框

1. 工作表名称
2. 用于工作表索引

我可以将索引号传递给并可能在我的公式中使用它来从正确的工作表中查找项目。

在我的一生中，我似乎无法找到将两者联系起来的方法，因为这些项目总是在变化；该代码将由多个操作员在多个工作簿上运行，因此布局很可能会在用户之间发生变化。我可以很容易地添加带有索引#的第二个列表框，但是我有一个块关于如何关联对用户有意义的名称和我可以传回子的索引。我意识到列表框的“单击时”过程将两者关联起来，但由于字段的动态特性，我无法想出将其放入代码的逻辑。

For N = 1 To ActiveWorkbook.Sheets.Count
    With ListBox1
        .AddItem ActiveWorkbook.Sheets(N).Name
    End With
Next N

Answer 1

试试这个。

在用户窗体的代码上方声明一个公共变量，使其在您的工作簿中的任何模块或代码中都可用。

Public listChoice As String

使用您的代码获取 ListBox 行源的工作表名称。

Private Sub UserForm_Activate()

    For n = 1 To ActiveWorkbook.Sheets.count
        With ListBox1
            .AddItem ActiveWorkbook.Sheets(n).name
        End With
    Next n

End Sub

包括 ListBox 的更新事件

Private Sub ListBox1_AfterUpdate()

    listChoice = ListBox1.Text

End Sub

我包含一个测试只是为了证明结果仍然保留。你不需要这个，它在屏幕截图上演示了结果。

Private Sub cmdTestChoice_Click()

    MsgBox ("The choice made on the ListBox was: " & listChoice)

End Sub

编辑：要稍后访问该工作表，您可以使用以下方式调用它：

使用带有数字或字母的 .Range 或 .Cells 访问单元格的不同方式的一些示例。

使用 lRow & lCol as Long 来设置行号和列号。

Sheets(listChoice).Cells(lRow, lCol).Value = TextBox1.Value  'Set cell on sheet from TextBox
TextBox2.Value = Sheets(listChoice).Range("A2").Value        'Set TextBox From Cell on Sheet
'Set a cell on another sheet using the selected sheet as a source.
Sheets("AnotherSheet").Cells(lRow, "D") = Sheets(listChoice).Range("D2")