Question

我正在寻找一种方法来将表单名添加到我的组合框中。

最终结果应为：

彼此相邻的2个组合框位于第一个框中，我可以输入工作表名称，并使用我刚刚选择的工作表中的第二个框数据。

谢谢！

Answer 1

作为起点，请执行以下操作：
从新的工作簿开始，向Sheet1添加2个ComboBox，然后将此代码添加到“ThisWorkbook”代码模块中：

Private Sub Workbook_Open()
    Dim ws As Worksheet

    'iterate through all worksheets and add each one to the combobox
    For Each ws In Worksheets
        Sheet1.ComboBox1.AddItem ws.Name 'add sheet name to combobox
    Next ws
End Sub

然后将此代码添加到'Sheet1'代码模块：

Private Sub ComboBox1_Change()
    Dim i As Integer
    If ComboBox1.Value <> "" Then
        ComboBox2.Clear 'clear out the combobox
        'add values from A1 to A5 to ComboBox2 from selected worksheet
        For i = 1 To 5
            ComboBox2.AddItem Worksheets(ComboBox1.Value).Range("A" & i).Value
        Next i
    End If
End Sub

使用上面的代码作为起点，阅读每一行并研究您不理解的内容，直到您可以解释每行的作用。然后，您将能够在解决方案中使用相同的概念。

组合框userform中的Sheetname

1 个答案: