Excel VBA에서 데이터 입력 양식을 만드는 방법(간단한 단계 포함)

VBA로 작업하는 동안 Excel에서 우리 대부분은 데이터 입력 양식을 만들 때 문제에 직면합니다. 이 문서에서는 데이터 입력 양식을 만드는 방법을 보여 드리겠습니다. Excel에서 VBA를 사용하여 매우 편리하고 멋지게 .

Excel VBA에서 데이터 입력 양식을 만드는 간단한 3단계

여기에 워싱턴, 뉴욕이라는 워크시트가 있습니다. 및 캘리포니아 이름, 연락처, 연령이 포함된 및 성별 은행의 이 세 지점의 일부 고객.

오늘의 목표는 VBA를 사용하여 이 데이터베이스에 데이터를 입력하는 양식을 만드는 것입니다. .

우리는 두 단계로 목표를 달성할 것입니다.

먼저 데이터 항목 UserForm을 만듭니다. 새로운 데이터를 입력하기 위해;
그런 다음 워크시트에 버튼을 추가하여 양식을 여겠습니다.

1단계:Excel VBA를 사용하여 데이터 입력 양식을 만들기 위한 UserForm 개발

이것은 긴 과정이며 완전히 이해하는 데 시간이 걸릴 수 있습니다. 따라서 효과적인 결과를 얻으려면 최대한 주의와 인내심을 가지고 여기에 언급된 단계를 따르십시오.

ALT + F11 누르기 키보드에서 Visual Basic을 엽니다. 창.

Excel VBA에서 데이터 입력 양식을 만드는 방법(간단한 단계 포함)

Visual Basic 창에서 삽입> 사용자 양식으로 이동합니다. 도구 모음의 옵션입니다. 사용자 양식을 클릭합니다. . 새로운 사용자 양식 UserForm1이라고 함 열립니다.

Excel VBA에서 데이터 입력 양식을 만드는 방법(간단한 단계 포함)

먼저 레이블(레이블1) 을 드래그합니다. 도구 상자에서 UserForm의 맨 왼쪽 상단 모서리까지 . 라벨 표시 변경 워크시트로 .

목록 상자(Listbox1) 드래그 Label1 오른쪽 .

그런 다음 몇 개의 라벨을 더 드래그합니다. 데이터 세트의 총 열 수와 동일(4 이 예에서는) UserForm의 왼쪽 위에 있습니다. 각 라벨 옆 , TextBox 드래그 .

라벨 표시 변경 데이터 세트의 열 헤더(고객 이름, 연락처 주소, 연령, 및 성별 여기).

마지막으로 CommandButton을 드래그합니다. UserForm의 맨 오른쪽 하단에 . 버튼 표시를 데이터 입력으로 변경 .

Excel VBA에서 데이터 입력 양식을 만드는 방법(간단한 단계 포함)

목록 상자를 두 번 클릭합니다. . 비공개 하위 절차 ListBox1_Click이라고 함 열릴 것이다. 거기에 다음 코드를 입력하세요.

⧭ VBA 코드:

Private Sub ListBox1_Click()

For i = 0 To UserForm1.ListBox1.ListCount - 1
    If UserForm1.ListBox1.Selected(i) = True Then
       Worksheets(UserForm1.ListBox1.List(i)).Activate
    End If
Next i

End Sub

Excel VBA에서 데이터 입력 양식을 만드는 방법(간단한 단계 포함)

다음으로 CommandButton을 두 번 클릭합니다. . 또 다른 비공개 하위 절차 CommandButton_Click이라고 함 열릴 것이다. 거기에 다음 코드를 입력하세요.

⧭ VBA 코드:

Private Sub CommandButton1_Click()

Total_Rows = ActiveSheet.UsedRange.Rows.Count
Total_Columns = ActiveSheet.UsedRange.Columns.Count

Active_Column = 1

For Each Ctrl In UserForm1.Controls
    If TypeName(Ctrl) = "TextBox" Then
        ActiveSheet.UsedRange.Cells(Total_Rows + 1, Active_Column) = Ctrl.Text
        Active_Column = Active_Column + 1
    End If
Next Ctrl

End Sub

Excel VBA에서 데이터 입력 양식을 만드는 방법(간단한 단계 포함)

마지막으로 삽입> 모듈로 이동합니다. 도구 모음에서 옵션을 선택하고 모듈을 클릭합니다. .

Excel VBA에서 데이터 입력 양식을 만드는 방법(간단한 단계 포함)

새 모듈 모듈1이라고 함 삽입됩니다. 거기에 다음 코드를 입력하세요.

⧭ VBA 코드:

Sub Run_UserForm()

UserForm1.Caption = "Data Entry Form"

UserForm1.ListBox1.BorderStyle = fmBorderStyleSingle
UserForm1.ListBox1.ListStyle = fmListStyleOption

For i = 1 To Sheets.Count
    UserForm1.ListBox1.AddItem Sheets(i).Name
Next i

Load UserForm1
UserForm1.Show

End Sub

Excel VBA에서 데이터 입력 양식을 만드는 방법(간단한 단계 포함)