- Excel : 수강등록 프로시저 [엑셀 프로시저 기출문제 8회] ' 수강등록 단추 클릭 Private Sub cmd수강등록_Click() 수강등록.Show End Sub ' 폼 초기화 Private Sub UserForm_Initialize() lst강의목록.RowSource = "I4:L12" lst강의목록.Value = lst강의목록.List(0, 0) End Sub ' 검색 단추 클릭 Private Sub cmd등록_Click() 입력행 = [A2].Row + [A2].CurrentRegion.Rows.Count 참조행 = lst강의목록.ListIndex Cells(입력행, 1) = txt수강생.Value If opt1학년 = True Then Cells(입력행, 2) = opt1학년.Capti..

- Excel : 강사정보조회 프로시저 [엑셀 프로시저 기출문제 7회] ' 강사검색 단추 클릭 Private Sub cmd강사검색_Click() 강사정보검색.Show End Sub ' 폼 초기화 Private Sub UserForm_Initialize() cmb강사코드.RowSource = "A3:A26" End Sub ' 검색 단추 클릭 Private Sub cmd검색_Click() 참조행 = cmb강사코드.ListIndex + 3 txt강사명.Value = Cells(참조행, 2) txt수업과목.Value = Cells(참조행, 3) txt성별.Value = Cells(참조행, 4) txt수강인원.Value = Cells(참조행, 5) txt근무시간.Value = Cells(참조행, 6) txt근무일..

- [컴활1급] Excel : 약품주문 프로시저 [엑셀 프로시저 기출문제 6회] ' 주문하기 단추 클릭 Private Sub cmd주문하기_Click() 약품주문.Show End Sub ' 폼 초기화 Private Sub UserForm_Initialize() lst제품목록.RowSource = "I8:L22" txt주문날짜.Value = Date End Sub ' 주문 단추 클릭 Private Sub cmd주문_Click() If IsNull(lst제품목록.Value) Then MsgBox "제품을 선택하세요." ElseIf Val(txt주문수량.Value) < 1 Then MsgBox "주문수량을 입력하세요." Else 참조행 = lst제품목록.ListIndex 입력행 = [A3].Row + [A3]..

- Excel : 사원정보조회 프로시저 [엑셀 프로시저 기출문제 5회] ' 사원조회 단추 클릭 Private Sub cmd사원조회_Click() 사원정보.Show End Sub ' 조회 단추 클릭 Private Sub cmd조회_Click() 스위치 = 0 참조행 = 3 For Each x In Range("B4:B25") 참조행 = 참조행 + 1 If x.Value = txt사원번호.Value Then txt사원번호.Value = Format(Cells(참조행, 2), ">&&&&&") txt성명.Value = Cells(참조행, 3) txt부서명.Value = Cells(참조행, 4) txt직위.Value = Cells(참조행, 5) txt신청일.Value = Cells(참조행, 6) txt총점.Va..

- Excel : 공연예매관리 프로시저 [엑셀 프로시저 기출문제 4회] ' 공연예매 단추 클릭 Private Sub cmd공연예매_Click() 공연예매관리.Show End Sub ' 폼 초기화 Private Sub UserForm_Initialize() cmb공연명.RowSource = "K5:K12" End Sub ' 예매 단추 클릭 Private Sub cmd예매_Click() 입력행 = [C4].Row + [C4].CurrentRegion.Rows.Count 참조행 = cmb공연명.ListIndex + 5 Cells(입력행, 3) = Date Cells(입력행, 4) = txt공연장.Value Cells(입력행, 5) = cmb공연명.Value Cells(입력행, 6) = txt좌석수.Value ..