Vba Combobox2列表取决于combobox1的选择

我有两个组合框位于

userform1

可能的行源： 让我们说所有的食物都排在A行 第二张饮料

Combobox1有两种选择，例如“食物”、“饮料” 如果选择“食物”，则sheet1中的rowsource将自动填充 如果选择了“饮料”，则sheet2中的rowsource将自动填充

我真的不知道该怎么做。

---

我甚至没有一个示例代码或其他东西

在

组合框1\u Change

事件中尝试此代码：

    Private Sub ComboBox1_Change()

        Dim Dsh As String, Fsh As String, Sh As Worksheet, Lr As Long
        Fsh = "Sheet1"
        Dsh = "Sheet2"

        Select Case Me.ComboBox1.Value
         Case "food"
           Set Sh = Sheets(Fsh)
         Case "drinks"
           Set Sh = Sheets(Dsh)
         Case Else
          Exit Sub
        End Select

        Lr = Sh.Range("A" & Sh.Rows.Count).End(xlUp).Row
        Me.ComboBox2.List = Sh.Range("A1:A" & Lr).Value

    End Sub