0

私は現在、クライアント用のExcelスプレッドシート内のフォームに取り組んでいます。

ドロップダウンでは、 lookupDeptブックの2つの列から情報を引き出してマージする必要があります。たとえば、私は持っています：

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

前もって感謝します！

4

1 に答える 1

2

2番目のForループでは、を呼び出しNext cLocていますが、ループはとして初期化されていFor Each cDeptNameます。を変更して、正しい変数を進めてみてNextくださいNext cDeptName。

于 2012-10-06T23:17:29.417 に答える