컴퓨터활용능력 1급 실기 - 책 내용 질문하기

자료실 온라인 채점 동영상 강좌 커뮤니티

책 내용 질문하기

프로시져 문제 추가 총3문제 입니다.

도서

[2013] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)

페이지

227

조회수

작성일

2015-04-15

작성자

첨부파일

섹션18기출23문제.zip

1편 18섹션 기본문제 와 기출 문제 2,3번 입니다.

실행하면 424 런타임 오류 납니다.

원인을 알려주세요.

답변

2015-04-17 14:41:35

섹션 18번

Private Sub UserForm_Initialize()
txt판매일자 = Date
lst제품목록.RowSource = "i4:i13"
cmd결재형태.AddItem = "현금"
cmd결재형태.AddItem = "카드"
cmd결재형태.AddItem = "어음"
End Sub

<=cmd 가 아니라 cmb 입니다. d를 b로 변경하고 확인 해 보세요.

그리고 additem 뒤에 = 을 사용하면 안됩니다. = 을 지워주세요.

Private Sub cmd종료_Click()
Unload Me
End Sub

Private Sub cmd등록_Click()
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오."
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오."
ElseIf cmd결재형태 = "" Then
MsgBox "결재형태를 입력하시오."
Else
기준행위치 = [b3]
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
Cells(입력행, 2) = CDate(txt판매일자)
Cells(입력행, 3) = txt제품명
Cells(입력행, 4) = txt수량
Cells(입력행, 5) = txt단가
Cells(입력행, 6) = Format(Val(txt수량) + Val(txt단가), "currency")
Cells(입력행, 7) = cmd결재형태

txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmd결재형태 = ""
End If

위의 코드에서도 cmd로 작성하셨네요. cmb 로 작성해 보세요.

섹션18-기출02문제

Private Sub UserForm_Initialize()
With cmd조회구분
.AddItem "관리자"
.AddItem "일반사용자"
.AddItem "고객"
End With

lst등급종류.RowSource = "i4:i8"

End Sub

여기도 cmd 로 되어 있네요. cmb로 변경하세요.

섹션18-기출03문제

Private Sub Cmd확인_Click()

참조행 = Cmd종류.ListIndex + 7
입력행 = [a1].Row + [a1].CurrentRegion.Rows.Count

Cells(입력행, 1) = cmd종류
Cells(입력행, 2) = cmd지점
Cells(입력행, 3) = Txt성명
Cells(입력행, 4) = Cells(참조행, 9)
Cells(입력행, 5) = Cells(참조행, 10)
Cells(입력행, 6) = Cells(참조행, 11)
End Sub

Private Sub UserForm_Initialize()
Cmb지점.AddItem "강원"
Cmb지점.AddItem "서울"
Cmb지점.AddItem "영남"
Cmb지점.AddItem "호남"
Cmb지점.AddItem "충청"
Cmb종류.AddItem "건강저축보험"
Cmb종류.AddItem "주택저축보험"
Cmb종류.AddItem "목돈마련보험"
Cmb종류.AddItem "연금저축보험"
Cmb종류.AddItem "무지개저축보험"

Cmd종류.SetFocus
End Sub

이문제도 cmd 를 cmb로 변경하시면 됩니다.

좋은 하루 되세요.

*

2015-04-17 14:41:35

섹션 18번

Private Sub UserForm_Initialize()
txt판매일자 = Date
lst제품목록.RowSource = "i4:i13"
cmd결재형태.AddItem = "현금"
cmd결재형태.AddItem = "카드"
cmd결재형태.AddItem = "어음"
End Sub

<=cmd 가 아니라 cmb 입니다. d를 b로 변경하고 확인 해 보세요.

그리고 additem 뒤에 = 을 사용하면 안됩니다. = 을 지워주세요.

Private Sub cmd종료_Click()
Unload Me
End Sub

Private Sub cmd등록_Click()
If txt제품명 = "" Then
MsgBox "제품명을 입력하시오."
ElseIf txt수량 = "" Then
MsgBox "수량을 입력하시오."
ElseIf txt단가 = "" Then
MsgBox "단가를 입력하시오."
ElseIf cmd결재형태 = "" Then
MsgBox "결재형태를 입력하시오."
Else
기준행위치 = [b3]
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
Cells(입력행, 2) = CDate(txt판매일자)
Cells(입력행, 3) = txt제품명
Cells(입력행, 4) = txt수량
Cells(입력행, 5) = txt단가
Cells(입력행, 6) = Format(Val(txt수량) + Val(txt단가), "currency")
Cells(입력행, 7) = cmd결재형태

txt제품명 = ""
txt수량 = ""
txt단가 = ""
cmd결재형태 = ""
End If

위의 코드에서도 cmd로 작성하셨네요. cmb 로 작성해 보세요.

섹션18-기출02문제

Private Sub UserForm_Initialize()
With cmd조회구분
.AddItem "관리자"
.AddItem "일반사용자"
.AddItem "고객"
End With

lst등급종류.RowSource = "i4:i8"

End Sub

여기도 cmd 로 되어 있네요. cmb로 변경하세요.

섹션18-기출03문제

Private Sub Cmd확인_Click()

참조행 = Cmd종류.ListIndex + 7
입력행 = [a1].Row + [a1].CurrentRegion.Rows.Count

Cells(입력행, 1) = cmd종류
Cells(입력행, 2) = cmd지점
Cells(입력행, 3) = Txt성명
Cells(입력행, 4) = Cells(참조행, 9)
Cells(입력행, 5) = Cells(참조행, 10)
Cells(입력행, 6) = Cells(참조행, 11)
End Sub

Private Sub UserForm_Initialize()
Cmb지점.AddItem "강원"
Cmb지점.AddItem "서울"
Cmb지점.AddItem "영남"
Cmb지점.AddItem "호남"
Cmb지점.AddItem "충청"
Cmb종류.AddItem "건강저축보험"
Cmb종류.AddItem "주택저축보험"
Cmb종류.AddItem "목돈마련보험"
Cmb종류.AddItem "연금저축보험"
Cmb종류.AddItem "무지개저축보험"

Cmd종류.SetFocus
End Sub

이문제도 cmd 를 cmb로 변경하시면 됩니다.

좋은 하루 되세요.
"

파일선택

목록 질문하기 수정하기 삭제