Excel 드롭 다운시 두 열에서 정보를 빼내야합니다.

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으로 변경하여 올바른 변수를 향상 시키십시오.