☰

Excel 2016 사용자 양식 매크로, Windows 7

tag-icon • tag-icon windows-7 macros microsoft-excel-2016
Excel 2016 사용자 양식 매크로, Windows 7

여러 콤보 상자, 여러 텍스트 상자, 두 개의 라디오 버튼 및 제출 버튼이 포함된 Excel 2016에서 사용자 양식을 만들었습니다. 첫째, 이미 설정한 목록을 참조하도록 콤보 상자를 얻으려면 어떻게 해야 합니까?

답변1

form_activate 이벤트 핸들러를 사용하여 이벤트를 실행할 수 있습니다. 프로젝트 창에서 사용자 양식을 마우스 오른쪽 버튼으로 클릭하고 "코드 보기"를 클릭하세요.

코드 창에 다음과 같은 내용을 붙여넣습니다.

Private Sub UserForm_Activate()
    ComboBox1.AddItem ("1")
    ComboBox1.AddItem ("2")
    ComboBox1.AddItem ("3")
End Sub

그러면 콤보 상자에 항목이 로드됩니다. 다음과 같이 변경할 수도 있습니다.

Private Sub UserForm_Activate()
    ComboBox1.AddItem (range("'Sheet1'!A1").value)
    ComboBox1.AddItem (range("'Sheet1'!A2").value)
End Sub

콤보박스 항목이 엑셀 시트 어딘가에 있는 경우.

Activate 이벤트가 생성되면 처음에 양식을 여는 무언가가 필요합니다(이미 알고 계실 것입니다). 그래서 다음과 같습니다.

Public Sub show_form()
    UserForm1.Show
End Sub

그런 다음 버튼이나 Excel 시트의 항목을 사용하여 이벤트 show_form을 호출합니다.

전체 예시

전체 예는 다음과 같습니다.

새 통합 문서를 만듭니다. A1과 A2에 일부 데이터를 넣으십시오. 기본 시트 이름인 "Sheet1"을 유지합니다.

Alt F11을 눌러 VBA 쪽을 엽니다. 삽입 > 사용자 정의 양식을 클릭하세요.

UserForm1이 나타납니다. 마우스 오른쪽 버튼을 클릭하고 코드 보기를 클릭하세요. 이것을 붙여넣으세요:

Private Sub UserForm_Activate()
    ComboBox1.AddItem (Range("'Sheet1'!A1").Value)
    ComboBox1.AddItem (Range("'Sheet1'!A2").Value)
End Sub

트리에서 ThisWorkBook을 두 번 클릭합니다. 삽입 > 모듈을 클릭합니다. 이것을 붙여넣으세요:

Public Sub show_form()
    UserForm1.Show
End Sub

트리는 다음과 같아야 합니다.

여기에 이미지 설명을 입력하세요

이제 Excel 통합 문서에 상자와 같은 모양을 추가합니다. 모양을 마우스 오른쪽 버튼으로 클릭하고 매크로 할당을 클릭합니다. show_form을 선택합니다.

이제 뛰어들어 보세요. 가지고 있던 모양을 클릭하세요. 양식이 표시되어야 합니다. 드롭다운을 클릭하면 두 개의 항목이 채워져 있어야 합니다.

답변2

전체 예는 다음과 같습니다.

새 통합 문서를 만듭니다. A1과 A2에 일부 데이터를 넣으십시오. 기본 시트 이름인 "Sheet1"을 유지합니다.

Alt F11을 눌러 VBA 쪽을 엽니다. 삽입 > 사용자 정의 양식을 클릭하세요.

UserForm1이 나타납니다. 마우스 오른쪽 버튼을 클릭하고 코드 보기를 클릭하세요. 이것을 붙여넣으세요:

Private Sub UserForm_Activate() ComboBox1.AddItem (Range("'Sheet1'!A1").Value) ComboBox1.AddItem (Range("'Sheet1'!A2").Value) End Sub 트리에서 ThisWorkBook을 두 번 클릭합니다. 삽입 > 모듈을 클릭합니다. 이것을 붙여넣으세요:

공개 하위 show_form() UserForm1.Show End Sub

관련 정보