시나공

시험에

나오는 것만

공부한다!

안녕하세요 길벗수험서 운영팀입니다.

참조행을 전혀 사용하지 않으셔서 방이름은 무조건 '장미'만 뜨고 (list(0)으로 고정)

이용금액은 무조건 '목련'이 뜨게 되어 있습니다. (문자*숫자 로 인해 값이 정상적으로 나오지 않음)

다음과 같이 수정하세요.

Private Sub cmd예약_Click()

    입력행 = Range("b4").CurrentRegion.Rows.Count + 3

    참조행 = lst방이름.ListIndex

    Cells(입력행, 2) = Range("b4").CurrentRegion.Rows.Count - 1

    Cells(입력행, 3) = txt예약자

    Cells(입력행, 4) = txt전화번호

    Cells(입력행, 5) = lst방이름.List(참조행, 0)

    Cells(입력행, 6) = txt날짜

    If opt1박 = True Then

        Cells(입력행, 7) = "1박"

        Cells(입력행, 8) = Val(lst방이름.List(참조행, 1)) * 1

    Else

        Cells(입력행, 7) = "2박"

        Cells(입력행, 8) = Val(lst방이름.List(참조행, 1)) * 2

    End If

End Sub

행복한 하루되세요 :)