组合箱（间接列表

Question

早晨好

我有一个用户表单，其中有两个组合框。

CB_AppDataCB_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

然而，对于上面的例子，我似乎无法让它工作，有人能提供建议吗？

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