◈ 자격증 공부/컴퓨터활용능력 1급📼

[컴활1급] Excel : 강사정보조회 프로시저 [엑셀 프로시저 기출문제 7회]

- 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회]

- [컴활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]..

[컴활1급] Excel : 사원정보조회 프로시저 [엑셀 프로시저 기출문제 5회]

- 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..

[컴활1급] Excel : 공연예매관리 프로시저 [엑셀 프로시저 기출문제 4회]

- 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 ..

[컴활1급] Excel : 고객관리 프로시저 [엑셀 프로시저 기출문제 3회]

- Excel : 고객관리 프로시저 [프로시저 기출문제 3회] ' 고객관리 단추 클릭 Private Sub cmd고객관리_Click() 고객관리.Show End Sub ' 폼 초기화 Private Sub UserForm_Initialize() lst결제방식.AddItem "현금" lst결제방식.AddItem "카드" lst결제방식.AddItem "포인트" End Sub ' 입력 단추 클릭 Private Sub cmd입력_Click() 입력행 = [A4].Row + [A4].CurrentRegion.Rows.Count Cells(입력행, 1) = txt고객명.Value If opt고급.Value = True Then Cells(입력행, 2) = "고급" ElseIf opt실버.Value = True The..