엑셀 셀 데이터 사용자정의폼에 가져오기

엑셀 매크로로 통해서 셀을 선택하면 셀의 데이터를 사용자 정의 폼에 나타나게 한다.

 

이번 예제에서는 사번 Column (첫행) 에만 클릭을 하게 하고 클릭하면 Row 의 데이터를 

인사관리시스템 화면으로 가져오기 화면 입니다.

 

[개발도구] - [VBA] - Sheet(사원명부)  클릭하면 빈 화면이 보일 것 입니다.

그 상태에서 (일반) 표시 부분에서 Worksheet 을 선택합니다.

 

해당 Worksheet 에서 selectionchage() 함수에서 매크로 프로그램을 작성하면 됩니다.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 Dim x, y As Integer
 Dim ifin As String
 
    If Target.Cells.Count > 1 Or IsEmpty(Target) Then

        Exit Sub

    Else
    
         With ThisWorkbook.Worksheets("사원명부")
            ' 특정 행/열에서 마지막셀을 찾습니다.
            
                x = .Cells.Row
                y = .Cells.Column
        
                If y = 1 Then '첫번째 Column인 사원번호를 선택 하면 실행 한다.
        
                     ifin = ActiveCell.Value
        
                        UserForm1.as_sabun.Text = Cells(x, 1) '사번
                        UserForm1.as_name.Text = Cells(x, 2)   '성명
        
                        UserForm1.as_jumin.Text = Cells(x, 3) '주민등록번호
                        'UserForm1.as_jumin.Text = Left(Cells(x, 3), 6) & "-" & Right(Cells(x, 3), 7) '주민등록번호
        
                        UserForm1.as_addr.Text = Cells(x, 4) '주소
                        UserForm1.as_dept.Text = Cells(x, 5) '소속
                        UserForm1.as_grade.Text = Cells(x, 6) '직위
                        UserForm1.as_indate.Text = Cells(x, 7) '입사일
                        UserForm1.as_years.Text = Cells(x, 8) '근무년수
        
                        '함수 실행
                        test_인사관리
           
                End If
            End With
    End If

End Sub

프로그램이 완료 되었습니다.

그러면 사번을 클릭을 합니다. 그러면 인사관리시스템 화면 이 나타난다.

이제 프로그램이 어떻게 처리 되는지 아시겠죠.

 

좀더 다양한 프로그램을 만들어 보겠습니다.

매크로_사용자정의폼_실행단추만들기_예제.xlsm

0.03MB