[컴퓨터활용능력 1급] 실기 프로시저 작성(입력,조회)

컴활1급 실기 정리

문제화면

문제1.폼이 초기화 되었을때 txt년도에는 현재날짜의 년도가 표시되도록 하시오.

정답: txt년도 = year(date)

문제2.txt차종을 입력하고 검색버튼을 누르면 해당 정보를 조회되게 하시오.만약에 값이 없다면 "동일한 차종이 없이 없습니다"라는 메시지박스를 띄우시오.

정답

for i = 4 To 20

IF txt차종=Cells(i,3) Then -> txt차종이 Cell(i,3)과 같을때

TXT대여코드 = Cells(i,2)

성공=1 ->만약 원하는 차종을 찾으면 성공은 1이되고

End If

next i

<--여기는 for Next문 안에 들어가면 안됨. 그러면 17번실행됨. -->

if 성공 = 0 Then -> 원하는 차종을 찾지 못했을 때

MsgBox "동일한 차종이 없습니다",vbOnlyOk

End If

MsgBox  옵션 알아보기

결과값을 저장할 경우

변수  = MsgBox(" 메시지",옵션,"제목")

결과값을 저장 안할 경우

MsgBox "메시지",옵션,"제목"

문제3.시트를 활성화하면 시트전체의 글자모양을 굵게, 궁서체, 기울임이 적용되게 하고, cmb닫기 버튼을 클릭하면 폼이 종료되도록 하시오.

정답

먼저 워크시트에서 Activate함수를 선택.

Activate 함수안에 작성

Cells.Font.Name = "궁서체"

Cells.Font.Bold="true"

Cells.Font.Itaric="true"