서두는 일반 서식 작성과 마찬가지로 인력관리 기록의 내용이 <선택 영역에서 만들기>에 입력되어 있어야 한다.
1 개발도구ㅡ VBAㅡ 삽입ㅡ 사용자 정의 폼 에서 유저 폼을 적당한 크기로 만든다.
2 맨 위에 텍스트 상자 □를 마련하고 □옆에 증명서라 쓴다.
3 콤보상자를 마련하고 왼쪽에 레이블을 마련하여 사번이라 명기한다.
4 프레임을 마련하고 내용증명이라 명기한다.
5 프레임 안에 두줄로 4개씩 8개의 텍스트 상자와 레이블을 마련한다.
6 각 레이블에 성명, 직업, 담당 업무, 입사 일자, 주민번호, 부서, 퇴사 일자, 재직 기간을 명기한다
7 프레임 아래 (주) 미래 라 적고 그 아래 "위의 사실이 틀림 없음을 확인합니다."를 명기하고 옆에 텍스트 상자를
만들어 오늘 년/ 월/ 일을 나타나게 한다. 옆에 인이라고 하여 날인 란을 만든다.
8 마지막으로 명령버튼으로 상단 오른 쪽과 하단 오른 쪽에 조회와 닫기를 만든다.
여기까지 일단 형식이 완성되었으므로 이제 콤보상자에 들어갈 내용과 텍스트 상자에 들어갈 내용을 코딩하고
필요하면 링크가 되도록 연결시킨다.
그리고 조회와 닫기가 작동하도록 코딩한다.
코딩 순서와 내용
1 인력관리기록란에 빈 셀에 명령 버튼을 만든다
개발도구ㅡ매크로기록ㅡ기록중지ㅡ삽입의 control Active에서 버튼을 만들고ㅡ오른쪽 마우스로 편집ㅡ더블클릭하여ㅡUserformn.Showㅡ완성
2 1을 실행해 본 다음 유저폼에서 더블 클릭하여 Unload me를 코딩하여 실행해본다.
3 유저폼에서 더블 클릭하여 상단의 유저폼을 확인하고 오른 쪽의 click를 initialize로 변경한다.
다음에 combobox1.Rowsource="셀의 범위, 여기서는 a2:a51"
4 텍스트 박스의 순서를 확인하면서 코딩한다.
if cells(i,8)="" then
Textbox1.text="재직"
Textbox9.text="재직 중"
else
Textbox1.text="경력"
Textbox9.text=format((cells(a,8)-cells(a,7)), "yy년 m개월"
end if
Textbox2.text=cells(i, 2)
.
.
.
Textbox10.text=format(date, "yyyy년mm월dd일")