폼에서 입력한 값 엑셀로 가져오기

[이상조]

========================================================================================

현재 사용하는 엑셀 버젼을 기재하시면 좀더 정확하고 신속한 답변을 얻으실 수 있습니다. 

엑셀 버젼(예: 2007) : 2010

========================================================================================

 안녕하세요.

수고가 많으십니다.

첨부한 도서등록 폼에서 등록버튼을 클릭하면, 엑셀의 등록시트에서

 '분류, 등급, 도서명, 저자, 출판사, 가격"이 계속적으로 추가로 입력할 수 있는 방법을 알려주세요.

꼭 부탁드립니다.

엑셀답안.xlsm

[윤슬]

안녕하세요? [이상조]님...

혹시 이 자료는 과제나 시험문제 인듯 보이는데 아닌가요?
과제나 시험문제는 도움을 드리지 않습니다.
참고로 보실 내용은 VBA의 offset 속성을 이용하시면 DB를 누적입력하실 수 있습니다.

그럼 잘 해결되시길... ^^*

[이상조]

과제는 아니고, 작년에 대회 시험문제인데요. 풀어서 해결해야 만 금년에 있는 대회를 준비할 수 있어서요. 제가 잘 몰라서 그러는데, 부탁 좀 드리면 안될까요? 제가 VBA를 잘 몰라서요..

[윤슬]

안녕하세요? [이상조]님...

아래 코딩을 참고로 하세요.
Private Sub Cmd등록_Click()
Dim i As Long

i = Sheet6.Cells(Rows.Count, 2).End(xlUp).Row + 1

With Sheet6
.Cells(i, 2) = Me.cmb분류
Select Case True
Case opt정회원
.Cells(i, 3) = "정회원"
Case opt준회원
.Cells(i, 3) = "준회원"
Case opt비회원
.Cells(i, 3) = "비회원"
End Select
.Cells(i, 4) = Me.txt도서명
.Cells(i, 5) = Me.txt저자
.Cells(i, 6) = Me.txt출판사
.Cells(i, 7) = Val(Me.txt가격)
End With
End Sub

그럼 잘 해결되시길... ^^*

[이상조]

예.. 감사합니다.

[희애]

감사합니다