시나공

시험에

나오는 것만

공부한다!

Private Sub cmd입력_Click()
    If IsNull(lst과목.Value) Then
        lst과목.ListIndex = 0
        txt10 = "선택안함"
    Else
        참조행 = lst과목.ListIndex
        입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
        Cells(입력행, 1) = UCase(txt10)
        Cells(입력행, 2) = txt이름
        Cells(입력행, 3) = lst과목.List(참조행, 0)
        Cells(입력행, 4) = lst과목.List(참조행, 1)
        Cells(입력행, 5) = lst과목.List(참조행, 2)
        Cells(입력행, 6) = lst과목.List(참조행, 3) - (lst과목.List(참조행, 3) * 0.1)
        txtID = ""
        txt이름 = ""
        txt날짜 = ""
        lst과목 = ""
    End If
       

빨간색으로 표시된 부분을  txtID  로 변경해 보세요.

컨트롤 이름이 달라서 입력되지 않은 것입니다.

좋은 하루 되세요.