스프레드시트 최신기출문제 3회 오답노트

[기타작업 시트]

[문제 2-3] '도서등록'폼의 등록 버튼을 클릭하면 폼에 입력된 데이터가 시트의 표에 입력되도록 프로시저를 작성하시오

▶ ListIndex와 List 속성을 이용하시오.

▶ 도서분류를 선택하지 않은 경우 메시지를 표시하고 도서분류의 첫 번째 항목을 선택하시오.

▶ 정가는 천단위마다 콤마를 표시하여 입력하시오.

Private Sub cmd등록_Click()

iRow = lst도서분류.ListIndex

i = Range("A4").CurrentRegion.Rows.Count + 4

If IsNull(lst도서분류.Value) Then

Msgbox "도서분류를 선택하세요."

lst도서분류.ListIndex = 0

Else

Cells(i,1) = lst도서분류.List(iRow,0)

Cells(i,2) = txt도서명

Cells(i,3) = txt저자

Cells(i,4) = txt출판일

Cells(i,5) = txt페이지수.Value

Cells(i,6) = Format(txt정가,"#,###")

End If

End Sub