중소기업의 모든 업무자동화!

이럴 때 필요해요

드롭다운박스기능을 응용할때 사용됩니다.

이렇게 사용해요

위의 지역별 특산물 표 에서 콤보박스를 만들어놓고 지역을 선택하면

선택된 지역명에 해당하는 항목(마늘, 수박, 고추 등)들이 오른쪽의 DropDownBox에 리스팅되게 할려면 어떻게할까요?

생각보다는 아주 간단합니다!

(물론, For Each~Next 순환문만 잘 이해하신다면 말입니다^^)

참고로, 왼쪽의 DropDownBox에 연결된 모듈 프로시저의 내용은

아래와 같습니다.

Sub DropDown_Change()

Dim Sht As Worksheet

Dim cmbCombo As DropDown

Dim SectorName As String

Dim rngList As Range, rngCell As Range

  Set Sht = ActiveSheet

  With Sht

    Set rngList = Range(.Cells(7, 2), .Cells(65536, 2).End(xlUp))

    Set cmbCombo = .DropDowns("Division")

    SectorName = .DropDowns("Sector").List(.DropDowns("Sector").ListIndex)

   End With

    cmbCombo.RemoveAllItems

  For Each rngCell In rngList

    If rngCell = SectorName Then

      cmbCombo.AddItem rngCell.Next

    End If

  Next rngCell

    cmbCombo.ListIndex = 1

End Sub

어떠신가요?  정말 간단하지 않습니까? *^^

아울러, 요긴하게 사용할 수 있겠다는 생각이 드시지는 않는지요?

// 그럼, 오늘도 여기서 마치겠습니다.