-1

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

最终结果应该是:

两个相邻的组合框在第一个框中,我可以输入工作表名称,并使用我刚刚选择的工作表中的第二个框数据。

谢谢!

4

1 回答 1

1

作为起点,请执行以下操作:
从新工作簿开始,将 2 个组合框添加到 Sheet1,然后将此代码添加到“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

使用上面的代码作为起点,阅读每一行并研究你不明白的地方,直到你能解释每一行的作用。然后,您将能够在您的解决方案中使用相同的概念。

于 2013-03-26T19:20:38.267 回答