Question

我目前正在为客户提供Excel电子表格中的表单。

下拉列表需要从 lookupDept 工作簿上的两列中提取信息并合并。比如我有：

deptCode deptName
BS       Business School
CD       Design and Technology
CG       Chemical Engineering
CM       Chemistry
CO       Computer Science

这需要在下拉列表中显示为

BS - Business School
CD - Design and Technology
CG - Chemical Engineering
CM - Chemistry
CO - Computer Science

这是我目前正在使用的代码，遗憾的是它似乎不起作用并返回编译错误：无效的下一个控件变量引用。这是我到目前为止使用的代码：

Private Sub UserForm_Initialize()

Dim c_deptCode As Range
Dim c_deptName As Range
Dim ws_dept As Worksheet
Set ws_dept = Worksheets("lookupDept")

For Each c_deptCode In ws_dept.Range("deptCode")
  With Me.cbo_deptCode
    .AddItem c_deptCode.Value
    .List(.ListCount - 1, 1) = c_deptCode.Offset(0, 1).Value
  End With
Next c_deptCode

For Each c_deptName In ws_dept.Range("deptName")
  With Me.cbo_deptCode
    .AddItem c_deptName.Value
  End With
Next cLoc

End Sub

提前致谢！

Answer 1

在您的第二个For循环中，您正在调用Next cLoc，但循环初始化为For Each cDeptName。尝试将Next更改为Next cDeptName以推进正确的变量。

Excel下拉列表需要从两列中提取信息

1 个答案: