TOP

VBA-수업 12.4. 제어 요소(연습)

YouLibreCalc for Excel logo

이제 컨트롤(Controls) 사용을 연습할 수 있는 작은 연습을 살펴보겠습니다.


미리 만들어진 양식과 제어 요소가 포함된 파일이 있습니다. 사용자가 양식과의 상호 작용을 통해 즉석 데이터베이스를 채울 수 있도록 모든 요소가 작동하도록 하는 코드를 작성해야 합니다.

다운로드할 Excel 파일은 다음과 같습니다. controls_exercise.xls

이제 여기서의 목표는 양식을 사용하여 테이블을 채우는 것임이 분명해졌습니다.

고려해야 할 몇 가지 사항:

  • 국가 목록은 두 번째 시트의 목록을 기반으로 합니다.
  • 새 연락처를 추가하기 전에 제어 요소의 값을 확인합니다.
  • 값을 입력한 후 폼을 닫지 않고 컨트롤의 초기값을 반환합니다.
  • 문제를 해결하는 방법 중 하나

    먼저, 사용하기 쉽도록 양식의 Zoom 속성을 120으로 늘려야 합니다.

    우리는 이미 컨트롤에 대한 첫 번째 강의에서 옵션 버튼 확인을 다루었으므로 여기서는 간단한 솔루션을 사용합니다.

    "Mrs"는 기본적으로 선택됩니다(속성 Value: True). 즉, 선택할 때 주소를 확인하지 않습니다.

    닫기 버튼

    Private Sub CommandButton_Close_Click()
         Unload Me
    End Sub
    

    드롭다운 목록의 내용

    Private Sub UserForm_Initialize() '양식이 열려 있을 때 목록 로드
        For i = 1 To 252 '국가 워크시트에서 252개 국가 목록 생성
           ComboBox_Country.AddItem Sheets("Country").Cells(i, 1)
        Next
    End Sub
    

    제어 요소 확인

    간단한 해결책은 컨트롤 중 하나라도 비어 있으면 대화 상자를 표시하는 것입니다.

    Private Sub CommandButton_Add_Click()
         If TextBox_Last_Name.Value = "" Or TextBox_First_Name.Value = "" Or TextBox_Address.Value = "" Or TextBox_Place.Value = "" Or ComboBox_Country.Value = "" Then
             MsgBox "Form incomplete"
         Else
             '여기에 연락처 입력 지침...
         End If
    End Sub
    

    하지만 좀 더 복잡하게 하려면 각 요소를 별도로 검사해야 하며, 비어 있는 요소가 있으면 이름()의 색상이 빨간색으로 변경되어야 합니다.

    Private Sub CommandButton_Add_Click()
         '이름 색상을 검정색으로 설정
         Label_Last_Name.ForeColor  = RGB(0, 0, 0)
         Label_First_Name.ForeColor = RGB(0, 0, 0)
         Label_Address.ForeColor    = RGB(0, 0, 0)
         Label_Place.ForeColor      = RGB(0, 0, 0)
         Label_Country.ForeColor    = RGB(0, 0, 0)
    
         '콘텐츠 제어
         If TextBox_Last_Name.Value = "" Then '아무것도 지정하지 않은 경우...
             Label_Last_Name.ForeColor = RGB(255, 0, 0) '제목 색상을 빨간색으로 설정
         ElseIf TextBox_First_Name.Value = "" Then
             Label_First_Name.ForeColor = RGB(255, 0, 0)
         ElseIf TextBox_Address.Value = "" Then
             Label_Address.ForeColor = RGB(255, 0, 0)
         ElseIf TextBox_Place.Value = "" Then
             Label_Place.ForeColor = RGB(255, 0, 0)
         ElseIf ComboBox_Country.Value = "" Then
             Label_Country.ForeColor = RGB(255, 0, 0)
         Else
             '여기에 연락처 입력 지침...
         End If
    End Sub
    

    데이터 삽입

    위의 코드에 표시된 위치에 다음 코드를 삽입해야 합니다(주석 참조).

     Dim row_number As Integer, salutation As String
    
     '항소의 선택
     For Each salutation_button In Frame_Salutation.Controls
         If salutation_button.Value Then
             salutation = salutation_button.Caption '이의신청이 선택됨
         End If
     Next
    
     'row_number = 열 +1에서 비어 있지 않은 마지막 셀의 행 번호
     row_number = Range("A65536").End(xlUp).Row + 1
    
     '워크시트에 값 삽입
     Cells(row_number, 1) = salutation
     Cells(row_number, 2) = TextBox_Last_Name.Value
     Cells(row_number, 3) = TextBox_First_Name.Value
     Cells(row_number, 4) = TextBox_Address.Value
     Cells(row_number, 5) = TextBox_Place.Value
     Cells(row_number, 6) = ComboBox_Country.Value
    
     '붙여넣은 후 원래 값이 반환됩니다.
     OptionButton1.Value = True
     TextBox_Last_Name.Value  = ""
     TextBox_First_Name.Value = ""
     TextBox_Address.Value    = ""
     TextBox_Place.Value      = ""
     ComboBox_Country.ListIndex = -1
    

    일반적인 모습

    이것이 전부입니다. 여기에 연습용으로 완성된 코드와 다운로드할 파일이 있습니다.

    Private Sub CommandButton_Close_Click()
         Unload Me
    End Sub
    
    Private Sub UserForm_Initialize() ''국가' 시트의 252개 국가 목록
        For i = 1 To 252
            ComboBox_Country.AddItem Sheets("Country").Cells(i, 1)
        Next
    End Sub
    
    Private Sub CommandButton_Add_Click()
         '이름 색상을 검정색으로 설정
         Label_Last_Name.ForeColor  = RGB(0, 0, 0)
         Label_First_Name.ForeColor = RGB(0, 0, 0)
         Label_Address.ForeColor    = RGB(0, 0, 0)
         Label_Place.ForeColor      = RGB(0, 0, 0)
         Label_Country.ForeColor    = RGB(0, 0, 0)
    
         '콘텐츠 제어
         If TextBox_Last_Name.Value = "" Then '아무것도 지정하지 않은 경우...
             Label_Last_Name.ForeColor = RGB(255, 0, 0) '제목 색상을 빨간색으로 설정
         ElseIf TextBox_First_Name.Value = "" Then
             Label_First_Name.ForeColor = RGB(255, 0, 0)
         ElseIf TextBox_Address.Value = "" Then
             Label_Address.ForeColor = RGB(255, 0, 0)
         ElseIf TextBox_Place.Value = "" Then
             Label_Place.ForeColor = RGB(255, 0, 0)
         ElseIf ComboBox_Country.Value = "" Then
             Label_Country.ForeColor = RGB(255, 0, 0)
         Else
             '양식이 채워지면 해당 값이 워크시트에 붙여넣어집니다.
             Dim row_number As Integer, salutation As String
             
             '항소의 선택
             For Each salutation_button In Frame_Salutation.Controls
                 If salutation_button.Value Then
                     salutation = salutation_button.Caption
                 End If
             Next
    
             'row_number = 열 +1에서 비어 있지 않은 마지막 셀의 행 번호
             row_number = Range("A65536").End(xlUp).Row + 1
    
             '워크시트에 값 삽입
             Cells(row_number, 1) = salutation
             Cells(row_number, 2) = TextBox_Last_Name.Value
             Cells(row_number, 3) = TextBox_First_Name.Value
             Cells(row_number, 4) = TextBox_Address.Value
             Cells(row_number, 5) = TextBox_Place.Value
             Cells(row_number, 6) = ComboBox_Country.Value
             
             '데이터를 삽입한 후 초기값을 반환합니다.
             OptionButton1.Value = True
             TextBox_Last_Name.Value  = ""
             TextBox_First_Name.Value = ""
             TextBox_Address.Value    = ""
             TextBox_Place.Value      = ""
             ComboBox_Country.ListIndex = -1
         End If
    End Sub
    

    다운로드할 Excel 파일은 다음과 같습니다. controls_exercise2.xls