엑셀 매크로 사용자 정의 폼 셀에 자료입력

엑셀 매크로 사용자 정의 폼을 이용하여 인사관리시스템을 만들고 있습니다.

셀에 자료 입력하는 방법을 알려 드리겠습니다.

사용자 정의 폼에서  자료 입력후  사원입력 명령단추를 클릭하면 엑셀 시트에 

사원정보를 직접 입력 하는 매크로 프로그램을 만들어 보겠습니다.

 

먼저 [개발도구]-[VBA]-폼-UserForm1 클릭합니다.

폼에서 명령단추를 추가합니다.

명령단추의 Caption은 사원입력 으로 수정을 합니다.

사원 입력 단추를 더블클릭 합니다. 

그리고 사원입력에 대한 프로그램을 작성합니다.

Private Sub CommandButton2_Click()

Dim lastrow As Integer
Dim ws As Worksheet
Set ws = Worksheets("사원명부")
Dim as_data As String

lastrow = ws.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row + 1

If as_sabun.Value = "" Then
    MsgBox "사번을 입력 바랍니다."
Else
    '사번이 중복이 되어 있으면 메시지 보여주고 저장하지 말고 빠져나온다.
    as_data = as_sabun.Value
    
    For i = 2 To lastrow - 1
        If as_data = Cells(i, 1) Then
            MsgBox "사번이 중복 되었습니다. 사번을 확인후 입력 바랍니다!"
            '커서가 사번을 가르킨다.
            as_sabun.SetFocus
            Exit Sub
        End If
    Next i
        
        '중복이 안되었을 경우 데이터를 입력한다.
        Cells(lastrow, 1) = as_sabun.Value
        Cells(lastrow, 2) = as_name.Value
        Cells(lastrow, 3) = as_jumin.Value
        Cells(lastrow, 4) = as_addr.Value
        Cells(lastrow, 5) = as_dept.Value
        Cells(lastrow, 6) = as_grade.Value
        Cells(lastrow, 7) = as_indate.Value
        Cells(lastrow, 8) = as_years.Value

End If

End Sub

입력할 때 사번이 중복이 되면 입력이 안되게 빠져나가면서 마우스 포커스를 사번에 둔다

사번이 중복이 안될 경우 데이터를 입력한다.

 

프로그램을 실행 해봅니다.

정상적으로 사번이 중복이 안되었을 경우 입력이 됩니다.

프로그램에서 입력을 할 수 있게 하였습니다.

계속해서 수정하고 삭제하는 기능을 구현 해 보겠습니다.

엑셀매크로_사용자정의폼_데이터입력_예제.xlsm

0.04MB