VBA 및 명명된 범위를 사용하여 자동 지우기 Excel 양식 만들기

Excel에서 VBA 및 명명된 범위를 사용하여 자체 지우기 양식을 만들면 데이터 입력 작업이 단순화되고 생산성이 향상됩니다. 데이터가 제출된 후 입력 필드를 자동으로 지우므로 여러 레코드를 빠르게 입력해야 하는 데이터 입력 시나리오에 이상적입니다.

이 튜토리얼에서는 VBA 및 명명된 범위를 사용하여 자체 정리 양식을 만드는 방법을 보여줍니다.

직원 데이터를 받아 데이터를 데이터베이스 시트에 저장하고 제출 후 자동으로 양식을 지우는 간단한 직원 정보 양식을 만들어 보겠습니다.

1단계:워크시트 구조 설정

• 새 Excel 통합문서를 엽니다.
• 양식 레이아웃을 만듭니다.
• 시트1의 이름을 '양식'으로 바꿉니다.
• 양식 시트에 다음 레이아웃을 만듭니다.

• 각 라벨 옆에 데이터 입력을 위한 빈 셀(B2, B3, B4, B5)을 제공합니다.

데이터베이스 시트 설정:

• 새 워크시트를 삽입하고 이름을 '데이터베이스'로 바꿉니다.
• 행 1에 헤더 만들기:
  • 이름
  • 부서
  • 급여
  • 시작일
  • 참가일

2단계:명명된 범위 만들기

명명된 범위를 사용하면 VBA에서 셀을 더 쉽고 명확하게 참조할 수 있습니다. 모든 양식 입력에 대해 명명된 범위를 만듭니다.

• B2 셀을 선택하세요.
• 이름 상자(수식 입력줄 왼쪽)에 이름을 입력합니다. .
• Enter 누르기 .

• 각 셀에 대해 이 과정을 반복합니다.
  • B3:이름을 부서로 지정하세요. .
  • B4:이름을 급여로 지정하세요. .
  • B5:이름을 StartDate로 지정하세요. .

명명된 범위 확인:

• 수식으로 이동 탭>> 이름 관리자 선택 또는 Ctrl+F3을 누르세요. .
• 모든 명명된 범위가 올바르게 생성되었는지 확인하세요.
• 닫기를 선택합니다. .

3단계:양식 버튼 만들기

제출 버튼 추가:

• 양식 시트로 이동합니다.
• 개발자로 이동 탭>> 삽입 선택>> 양식 컨트롤에서>> 버튼을 선택하세요. .

• 셀에 버튼을 그립니다.
• 메시지가 표시되면 매크로 이름을 SubmitandClearForm으로 지정합니다. .
• 확인을 클릭하세요. .

• 버튼을 마우스 오른쪽 버튼으로 클릭하고>> 텍스트 수정을 선택합니다. .

• 양식 제출 및 지우기로 변경 .

삭제 버튼 추가:

• 다른 버튼을 삽입하세요.
• 매크로 이름을 ClearForm으로 지정하세요. .
• 버튼 텍스트를 양식 지우기로 변경 .

참고: 개발자 탭이 표시되지 않으면 파일을 통해 활성화하세요. → 옵션 → 리본 맞춤설정 → 개발자를 확인하세요. .

4단계:VBA 코드 작성

• 개발자로 이동 탭>> Visual Basic 선택 .
• 메뉴에서 삽입을 클릭합니다.>> 모듈을 선택합니다. .

• 다음 VBA 코드를 복사하여 붙여넣으세요.

SubmitForm VBA 코드:

Sub SubmitandClearForm()
 Dim ws As Worksheet
 Dim dbSheet As Worksheet
 Dim lastRow As Long
 Dim formValid As Boolean
 
 ' Set worksheet references
 Set ws = ThisWorkbook.Sheets("Form")
 Set dbSheet = ThisWorkbook.Sheets("Database")
 
 ' Find the next empty row in database
 lastRow = dbSheet.Cells(dbSheet.Rows.Count, 1).End(xlUp).Row + 1
 
 ' Copy data from form to database
 dbSheet.Cells(lastRow, 1).Value = Range("Name").Value
 dbSheet.Cells(lastRow, 2).Value = Range("Department").Value
 dbSheet.Cells(lastRow, 3).Value = Range("Salary").Value
 dbSheet.Cells(lastRow, 4).Value = Range("StartDate").Value
 dbSheet.Cells(lastRow, 5).Value = Now() ' Entry timestamp
 
 ' Clear the form
 ClearForm
 
 ' Provide feedback
 MsgBox "Employee data submitted successfully!", vbInformation, "Success"
 
 ' Set focus back to name field
 Range("Name").Select
End Sub

설명:

• 양식 시트의 명명된 범위에서 입력을 받습니다.
• 이 데이터를 타임스탬프와 함께 데이터베이스 시트의 다음 행에 추가합니다.
• ClearForm 매크로를 호출하여 양식 필드를 재설정합니다.
• 확인 메시지를 표시하고 커서를 이름 필드로 설정합니다.

ClearForm VBA 코드:

Sub ClearForm()
 ' Clear all form fields using named ranges
 Range("Name").ClearContents
 Range("Department").ClearContents
 Range("Salary").ClearContents
 Range("StartDate").ClearContents
 
 ' Set focus to first field
 Range("Name").Select
End Sub

설명:

• 양식 시트의 모든 양식 필드(이름, 부서, 급여, 시작 날짜)의 내용을 지웁니다.
• 빠른 데이터 입력을 위해 커서를 이름 필드로 다시 설정합니다.

6단계:자동 정산 양식 테스트

• 통합 문서를 Excel 매크로 지원 통합 문서(.xlsm)로 저장하세요.
• 양식 필드에 데이터를 입력하세요.
• 양식 제출 및 지우기를 클릭하세요. .

• 양식 필드는 자동으로 데이터베이스 시트에 데이터를 제출합니다. 양식 데이터를 자동으로 지우면 커서가 첫 번째 필드로 돌아가서 새 데이터를 입력할 수 있습니다.

• 제출된 데이터는 데이터베이스 시트에 저장됩니다.

• 또한 일반 양식을 사용할 수 있습니다. 버튼. 제출 여부에 관계없이 양식 데이터가 제거됩니다.

• 커서를 첫 번째 필드로 되돌립니다.

자체 정산 양식 사용의 이점

• 효율성 :입력 내용을 수동으로 삭제할 필요가 없어 시간이 절약됩니다.
• 정확성 :반복적인 작업으로 인한 인적 오류를 줄입니다.
• 편의성 :사용자 경험과 데이터 입력 속도를 향상시킵니다.

결론

위 단계를 수행하면 VBA 및 명명된 범위를 사용하여 완전한 기능을 갖춘 자체 지우기 양식을 만들 수 있습니다. 이제 각 항목이 입력된 후 Excel 양식이 자동으로 지워져 작업 흐름이 극적으로 향상됩니다. 명명된 범위를 사용하면 코드를 더 쉽게 유지 관리하고 이해할 수 있으며, 자체 지우기 기능은 효율적인 데이터 입력 작업 흐름을 보장합니다.