답지에는 listindex, list를 사용했지만 질문에는 이를 사용하라는 조건이 없으니 다음과 같이 column을 이용해서 작성해도 되나요??
Private Sub cmd등록_Click()
입력행 = [b4].Row + [b4].CurrentRegion.Rows.Count
Cells(입력행, 2) = cmb구분.Column(0)
Cells(입력행, 3) = txt아동명.Value
If opt유.Value = True Then
Cells(입력행, 4) = "유"
Else
Cells(입력행, 4) = "무"
End If
Cells(입력행, 5) = cmb구분.Column(1)
Cells(입력행, 6) = txt입장시간.Value
Cells(입력행, 7) = txt퇴장시간.Value
Cells(입력행, 8) = (Hour(txt퇴장시간.Value) - Hour(txt입장시간.Value)) * cmb구분.Column(1)
End Sub
cells(입력행, 2) = cells(참조행, 1)
->> 워크시트에 입력된 값을 워크시트에 입력
cells(입력행, 2) = cmb구분.list(참조행, 1)
-> 콤보상자에서 참조행의 두 번째 열의 값을 입력
cells(입력행, 2) = cmb구분.column(1)
-> 콤보상자에 표시된 목록 중 선택한 값의 두번째 열의 값을 입력(Column은 0부터 시작)
Column은 콤보상자에서 열만을 지정해서 값을 가져온다면 LIST는 콤보상자에서 행과 열을 지정하여 값을 가져오는 것입니다.
문제의 지시사항에서 list, listindex 속성을 상요하라는 지시사항이 없었다면 상관 없을 것 같네요.
즐거운 하루 되세요.
-
관리자2022-02-08 17:25:18
cells(입력행, 2) = cells(참조행, 1)
->> 워크시트에 입력된 값을 워크시트에 입력
cells(입력행, 2) = cmb구분.list(참조행, 1)
-> 콤보상자에서 참조행의 두 번째 열의 값을 입력
cells(입력행, 2) = cmb구분.column(1)
-> 콤보상자에 표시된 목록 중 선택한 값의 두번째 열의 값을 입력(Column은 0부터 시작)
Column은 콤보상자에서 열만을 지정해서 값을 가져온다면 LIST는 콤보상자에서 행과 열을 지정하여 값을 가져오는 것입니다.
문제의 지시사항에서 list, listindex 속성을 상요하라는 지시사항이 없었다면 상관 없을 것 같네요.
즐거운 하루 되세요.