시나공

시험에

나오는 것만

공부한다!

 정답

내가 쓴 답 

Private Sub cmd예약_Click()
    입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count

    참조행 = lst.방이름.ListIndex + 5
    Cells(입력행, 2) = 입력행 - 4
    Cells(입력행, 3) = txt예약자
    Cells(입력행, 4) = txt전화번호
    Cells(입력행, 5) = Cells(참조행,10)
    Cells(입력행, 6) = txt날짜
    If opt1박 = True Then
        Cells(입력행, 7) = "1박"
        Cells(입력행, 8) = Cells(참조행,11) *1
    Else
        Cells(입력행, 7) = "2박"
        Cells(입력행, 8) =Cells(참조행,11) * 2
    End If 

End Sub

Private Sub cmd예약_Click()
    입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count
    Cells(입력행, 2) = 입력행 - 4
    Cells(입력행, 3) = txt예약자
    Cells(입력행, 4) = txt전화번호
    Cells(입력행, 5) = lst방이름.Column(0)
    Cells(입력행, 6) = txt날짜
    If opt1박 = True Then
        Cells(입력행, 7) = "1박"
        Cells(입력행, 8) = lst방이름.Column(1)
    Else
        Cells(입력행, 7) = "2박"
        Cells(입력행, 8) = lst방이름.Column(1) * 2
    End If

End Sub