combobox 사용예

이제부터 차근차근 제가 사용하는 VBA 사용법 들을 정리하여 올릴 예정입니다. 부족하지만 여러 분들에게 많은 도움이 되었으면 합니다.

오늘은 콤보박스를 사용한 예를 설명하겠습니다.

[예제파일] 

판매180303.xlsm

콤보박스에 항목을 불러오는 방법은 두가지 입니다.

첫째 콤보박스 속성 rowsource 이용한 방법

둘째 구문을 작성하여 불러오는 방법

1 콤보박스 속성 rowsource 이용한 방법에 대하여

  이 방법은 매우 간단합니다. 아래의 구문과 같이 해당 콤보박스의 Rowsource 속성을 정의만 해주시면 되니깐요. 

  

Dim i As Integer, k As String

 

On Error GoTo line1

    

    Me.Label3.Caption = "(a)가 적용됨"

    

    k = Me.TextBox1.Value 

    

    With Me.ComboBox1

    

        .RowSource = k

        

    End With

    Exit Sub

line1:

    MsgBox "범위설정 오류"

      

2. 구문을 작성하여 불러오는 방법

이 방법은 상기 방법보다 복잡합니다. 하지만 콤보박스의 데이터 조작이 편합니다. 향후 콤보박스의 정렬과 데이터 중복 확인 등에 대하여 올리면서 이야기를 이어 나가겠읍니다. 그리고 현재 상태에서 데이터의 중간에 공백 칸이 있다면 이를 인지하지 못합니다.

 

Dim a As Range

Dim i As Integer, k As Integer

    Me.Label3.Caption = "(b)가 적용됨"

    

    Me.ComboBox1.RowSource = ""

    

    Set a = Worksheets("작업").Range(CommandButton2.Caption)

        

    i = Application.WorksheetFunction.CountA(a)

    

    Me.ComboBox1.Clear

    

    For k = 1 To i

    

        Me.ComboBox1.AddItem Worksheets("작업").Cells(k, 1)

    

    Next k

    

판매180303.xlsm

0.03MB