'실제 시험장을 옮겨 놓았다'질문에서요..
4-2번 프로시저 작성에서 'cmb입력_Click'프로시저 설명 좀 자세히 부탁드려요
데이터가 시작되는 열이 b열인데 왜 a4인지 모르겠고..
Cells(입력행, 2)에서 숫자 2로 시작해서 왜 Cells(입력행, 6)은 숫자 6으로 끝나는지 헷갈리고..
프로시저마다 시작하는 번호도 다르고해서 어려워요..데이터를 봐도 이해가 잘 안가요..
List(참조행, 0) 이 부분도 잘 모르겠어요..
그리고 잘 입력한 거 같은데 입력 버튼 눌려보니 결과가 다른것 같아요..
책에꺼랑 똑같이 입력했는데 수강료 부분이 130,000이 아니라 100,000이 되네요..
어디가 잘못된건지..
파일 첨부할 테니 자세히 가르쳐 주시면 감사..꾸벅~
참조행 = list강좌.ListIndex <- 참조행을 지정한 것입니다. 나중에 설명드리겠습니다.
입력행 = [a4].Row + [a4].CurrentRegion.Rows.Count <- 입력행을 지정 합니다. a4를 기준으로 연결된행의 개수를세어 입력할 행을 지정 합니다.
Cells(입력행, 2) = txt이름 <- cells(입력행,2) 즉 2번째 열인 이름필드명셀 아래 txt이름에 입력된 값을 넣습니다.
Cells(입력행, 3) = cmb분류 <- 3번째 열인 분류필드명셀 아래에 cmb분류에 선택된 값을 넣습니다.
Cells(입력행, 4) = list강좌.List(창조행, 0) <-list강좌 컨트롤에서 선택한 값중 제일첫번째 열을 셀의4번째열인 과목명에 넣고
Cells(입력행, 5) = list강좌.List(창조행, 1) <-list강좌 컨트롤에서 선택한 값중 두번째 열의내용을 셀의 5번째 열에 넣습니다.
Cells(입력행, 6) = list강좌.List(창조행, 2) <- 마찮가지로 lst강좌 컨트롤의 세번째 열의 내용을 6번째 열에 넣게 되죠.
list강좌.listindex 는 list강좌 컨트롤에서 선택한 값의 행 위치를 지정 하는 것입니다.
첫번째 행이면 0 , 두번째 행이면 1이 지정 됩니다. 국어를 선택 하면 행위치가 0이 되는 것이죠.
list박스안에 들어있는 첫번째 열, 첫번째 행이 0이 됩니다. 그러므로 강좌명을 입력하려면 list강좌.list(참조행,0)으로 사용하셔야 하죠.
오타때문에 값이 다르게 나타나네요.
Private Sub cmd입력_Click()
참조행 = list강좌.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
참조행인데 창조행으로 쓰셔서 그런것입니다.
좋은 하루 되세요.
"
-
*2012-02-23 19:01:02
참조행 = list강좌.ListIndex <- 참조행을 지정한 것입니다. 나중에 설명드리겠습니다.
입력행 = [a4].Row + [a4].CurrentRegion.Rows.Count <- 입력행을 지정 합니다. a4를 기준으로 연결된행의 개수를세어 입력할 행을 지정 합니다.
Cells(입력행, 2) = txt이름 <- cells(입력행,2) 즉 2번째 열인 이름필드명셀 아래 txt이름에 입력된 값을 넣습니다.
Cells(입력행, 3) = cmb분류 <- 3번째 열인 분류필드명셀 아래에 cmb분류에 선택된 값을 넣습니다.
Cells(입력행, 4) = list강좌.List(창조행, 0) <-list강좌 컨트롤에서 선택한 값중 제일첫번째 열을 셀의4번째열인 과목명에 넣고
Cells(입력행, 5) = list강좌.List(창조행, 1) <-list강좌 컨트롤에서 선택한 값중 두번째 열의내용을 셀의 5번째 열에 넣습니다.
Cells(입력행, 6) = list강좌.List(창조행, 2) <- 마찮가지로 lst강좌 컨트롤의 세번째 열의 내용을 6번째 열에 넣게 되죠.list강좌.listindex 는 list강좌 컨트롤에서 선택한 값의 행 위치를 지정 하는 것입니다.
첫번째 행이면 0 , 두번째 행이면 1이 지정 됩니다. 국어를 선택 하면 행위치가 0이 되는 것이죠.
list박스안에 들어있는 첫번째 열, 첫번째 행이 0이 됩니다. 그러므로 강좌명을 입력하려면 list강좌.list(참조행,0)으로 사용하셔야 하죠.
오타때문에 값이 다르게 나타나네요.
Private Sub cmd입력_Click()
참조행 = list강좌.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참조행인데 창조행으로 쓰셔서 그런것입니다.
좋은 하루 되세요.
"