Excel，VBA-取决于第一个组合框的值，第二个组合框列表应出现

Question

请求帮助。

在Excel中，VBA-取决于“第一个组合框”值，第二个组合框列表应出现。

以下代码同样适用。

我正在寻找根据第一个组合框（组名称）的值显示下拉列表（组合框）的代码。

基于第二个组合框值（组名），我想在特定组（列表）的最后一个单元格中添加项目名称

代码

Private Sub ComboBox1_Change()
Sheets("sheet1").Select
Dim x(1): x(1) = ""
a = ComboBox1.ListIndex
If a = -1 Then GoTo endd
loadparts (a + 2)
endd:
End Sub


Private Sub UserForm_Initialize()
Sheets("sheet1").Select
Dim List(): Dim x(1)
r = Range("A" & Rows.Count).End(xlUp).Row
For a = 1 To r
ReDim Preserve List(1 To a)
List(a) = Cells(a, 1).Text
Next a
x(1) = ""
UserForm1.ComboBox1.List = List()
UserForm1.ComboBox2.List = x()
End Sub