|
| |
|
|
엑셀을 이용한 인사관리 프로그램 작성법
파일 
엑셀을 이용한 인사관리 프로그램 작성법.hwp
[Size :
33 Kbyte
]
엑셀을 이용한 인사관리 프로그램 작성법.hwp
[Size :
33 Kbyte
]
분량 8 Page
가격 1,000 원
×
링크 주소가 복사되었습니다.
링크 주소가 복사되었습니다.
원하는 곳에 붙혀넣기 하세요
카트
|
다운받기
|
 네이버 ID로 다운 받기  카카오 ID로 다운 받기  구글 ID로 다운 받기  페이스북 ID로 다운 받기 |
뒤로
|
자료설명
엑셀을 이용하여 인사관리를 하는 프로그램의 소스에 대해서 정리하였습니다.
엑셀을이용한인사관리작성법
엑셀을이용한인사관리작성법
목차/차례
■다이얼로그시트에 의한 매크로■
Sub 성명매크로()
Sub 부서매크로()
Sub 기본급매크로()
Sub 상여금매크로()
Sub 야간수당매크로()
Sub 출장비매크로()
Sub 통합매크로()
■사용자 정의 폼에 의한 매크로■
Private Sub 버튼_Click()
Private Sub UserForm_Click()
Private sub COM확인_Click()
시간
if uf 입력폼.opt수정.Value = True Then
opt수정_Click
Sub 성명매크로()
Sub 부서매크로()
Sub 기본급매크로()
Sub 상여금매크로()
Sub 야간수당매크로()
Sub 출장비매크로()
Sub 통합매크로()
■사용자 정의 폼에 의한 매크로■
Private Sub 버튼_Click()
Private Sub UserForm_Click()
Private sub COM확인_Click()
시간
if uf 입력폼.opt수정.Value = True Then
opt수정_Click
본문/내용
■다이얼로그시트에 의한 매크로■
Sub 성명매크로()
성명 = DialogSheets(`인사관리작성`).EditBoxes(`성명상자`).Text
Sheets(`인사관리`).Select
Range(`A4`).Select
ActiveCell.FormulaR1C1 = 성명
End Sub
Sub 부서매크로()
부서 = DialogSheets(`인사관리작성`).EditBoxes(`부서상자`).Text
Sheets(`인사관리`).Select
Range(`B4`).Select
ActiveCell.FormulaR1C1 = 부서
End Sub
Sub 기본급매크로()
기본급 = DialogSheets(`인사관리작성`).EditBoxes(`기본급상자`).Text
Sheets(`인사관리`).Select
Range(`C4`).Select
ActiveCell.FormulaR1C1 = 기본급
End Sub
Sub 상여금매크로()
상여금 = DialogSheets(`인사관리작성`).EditBoxes(`상여금상자`).Text
Sheets(`인사관리`).Select
Range(`D4`).Select
ActiveCell.FormulaR1C1 = 상여금
End Sub
Sub 야간수당매크로()
야간수당 = DialogSheets(`인사관리작성`).EditBoxes(`야간수당상자`).Text
Sheets(`인사관리`).Select
Range(`E4`).Select
ActiveCell.FormulaR1C1 = 야간수당
End Sub
Sub 출장비매크로()
출장비 = DialogSheets(`인사관리작성`).EditBoxes(`출장비상자…(생략)
Sub 성명매크로()
성명 = DialogSheets(`인사관리작성`).EditBoxes(`성명상자`).Text
Sheets(`인사관리`).Select
Range(`A4`).Select
ActiveCell.FormulaR1C1 = 성명
End Sub
Sub 부서매크로()
부서 = DialogSheets(`인사관리작성`).EditBoxes(`부서상자`).Text
Sheets(`인사관리`).Select
Range(`B4`).Select
ActiveCell.FormulaR1C1 = 부서
End Sub
Sub 기본급매크로()
기본급 = DialogSheets(`인사관리작성`).EditBoxes(`기본급상자`).Text
Sheets(`인사관리`).Select
Range(`C4`).Select
ActiveCell.FormulaR1C1 = 기본급
End Sub
Sub 상여금매크로()
상여금 = DialogSheets(`인사관리작성`).EditBoxes(`상여금상자`).Text
Sheets(`인사관리`).Select
Range(`D4`).Select
ActiveCell.FormulaR1C1 = 상여금
End Sub
Sub 야간수당매크로()
야간수당 = DialogSheets(`인사관리작성`).EditBoxes(`야간수당상자`).Text
Sheets(`인사관리`).Select
Range(`E4`).Select
ActiveCell.FormulaR1C1 = 야간수당
End Sub
Sub 출장비매크로()
출장비 = DialogSheets(`인사관리작성`).EditBoxes(`출장비상자…(생략)
| 📝 Regist Info |
|
I D : oslj****** Date : 2011-08-17 FileNo : 16166427 |
Cart  | |
| |