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

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

책 내용 질문하기

프로시저 코드 봐주세요.

도서

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

페이지

289

조회수

작성일

2012-08-25

작성자

첨부파일

저는 제대로 입력했다고 생각되는데 컴파일 오류 났다고 뜨네요.

Private Sub UserForm_Initialize()
With .cmb분류
.AddItem "초등학생"
.AddItem "중학생"
.AddItem "고등학생"
End With

End Sub

--------------------------------------------

Private Sub cmd입력_Click()
참조행 = lst강좌.ListIndex
입력행 = [A4].Row + [A4].CurrentRegion.Rows.Count
Cells(입력행, 2) = txt이름
Cells(입력행, 3) = cmb분류
Cells(입력행, 4) = list강좌.List(참조행, 0)
Cells(입력행, 5) = list강좌.List(참조행, 1)
Cells(입력행, 6) = list강좌.List(참조행, 2)

End Sub

----------------------------------------------

Private Sub cmb분류_Change()
Select Case cmb분류
Case "초등학생"
lst강좌.RowSource = "J6:M8"
Case "중학생"
lst강좌.RowSource = "J10:M15"
Case Else
lst강좌.RowSource = "J17:M22"
End Select
End Sub

답변

2012-08-27 09:33:42

Private Sub UserForm_Initialize()
With cmb분류 cmb분류앞에 . 이 있네요. .을 삭제하고 사용하세요.
.AddItem "초등학생"
.AddItem "중학생"
.AddItem "고등학생"
End With

End Sub

Private Sub cmd입력_Click()
참조행 = list강좌.ListIndex Lst강좌 가 아니라 List강좌 입니다. i를 추가 입력하세요.
입력행 = [A4].Row + [A4].CurrentRegion.Rows.Count
Cells(입력행, 2) = txt이름
Cells(입력행, 3) = cmb분류
Cells(입력행, 4) = list강좌.List(참조행, 0)
Cells(입력행, 5) = list강좌.List(참조행, 1)
Cells(입력행, 6) = list강좌.List(참조행, 2)

End Sub

Private Sub cmb분류_Change()
Select Case cmb분류
Case "초등학생"
list강좌.RowSource = "J6:M8" Lst강좌 가 아니라 List강좌 입니다. i를 추가 입력하세요.
Case "중학생"
list강좌.RowSource = "J10:M15" Lst강좌 가 아니라 List강좌 입니다. i를 추가 입력하세요.
Case Else
list강좌.RowSource = "J17:M22" Lst강좌 가 아니라 List강좌 입니다. i를 추가 입력하세요.
End Select
End Sub

*

2012-08-27 09:33:42

Private Sub UserForm_Initialize()
With cmb분류 cmb분류앞에 . 이 있네요. .을 삭제하고 사용하세요.
.AddItem "초등학생"
.AddItem "중학생"
.AddItem "고등학생"
End With

End Sub

Private Sub cmd입력_Click()
참조행 = list강좌.ListIndex Lst강좌 가 아니라 List강좌 입니다. i를 추가 입력하세요.
입력행 = [A4].Row + [A4].CurrentRegion.Rows.Count
Cells(입력행, 2) = txt이름
Cells(입력행, 3) = cmb분류
Cells(입력행, 4) = list강좌.List(참조행, 0)
Cells(입력행, 5) = list강좌.List(참조행, 1)
Cells(입력행, 6) = list강좌.List(참조행, 2)

End Sub

Private Sub cmb분류_Change()
Select Case cmb분류
Case "초등학생"
list강좌.RowSource = "J6:M8" Lst강좌 가 아니라 List강좌 입니다. i를 추가 입력하세요.
Case "중학생"
list강좌.RowSource = "J10:M15" Lst강좌 가 아니라 List강좌 입니다. i를 추가 입력하세요.
Case Else
list강좌.RowSource = "J17:M22" Lst강좌 가 아니라 List강좌 입니다. i를 추가 입력하세요.
End Select
End Sub
"

파일선택

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