excel - 组合框（间接列表）

Question

早上好

我有一个用户表单，其中有 2 个组合框：

CB_AppData CB_App

CB_AppData 是一个 Excel 列表，而 CB_App 将是一个基于 CB_AppData 值的列表（基本上是一个间接函数）

例如：

For Each lAppData In xAppData.Range("App")
Me.CB_AppData.AddItem lAppData.Value
Next lAppData

For Each lRevit In xRevit.Range("Revit")
Me.CB_App.AddItem lRevit.Value
Next lApp

If CB_AppData.Value = ("Revit")
CB_App.Value=lApp

然而; 对于上述我似乎无法让它工作，有人可以建议吗？

标签： excellistcomboboxuserform

Answer 1

设法让它以这种方式工作：

If CB_AppData.Value = ("AutoCAD") Then
CB_App.Clear
For Each lApp In xACAD.Range("AutoCAD")
Me.CB_App.AddItem lApp.Value
Next lApp

ElseIf CB_AppData.Value = ("Revit") Then
CB_App.Clear
For Each lApp In xRevit.Range("Revit")
Me.CB_App.AddItem lApp.Value
Next lApp

ElseIf CB_AppData.Value = ("Civil3D") Then
CB_App.Clear
For Each lApp In xC3D.Range("Civil3D")
Me.CB_App.AddItem lApp.Value
Next lApp

ElseIf CB_AppData.Value = ("Plant3D") Then
CB_App.Clear
For Each lApp In xP3D.Range("Plant3D")
Me.CB_App.AddItem lApp.Value
Next lApp

End If