시나공

시험에

나오는 것만

공부한다!

    입력행 = [b2].Row + [b2].CurrentRegion.Rows.Count

    Cells(입력행, 2) = =입력행 - 3

    Cells(입력행, 3) = cmb대회종목.Value

    Cells(입력행, 4) = txt성명.Value

    If opt남.Value = True Then

        Cells(입력행, 5) = "남"

    ElseIf opt여.Value = True Then

        Cells(입력행, 5) = "여"

    End If

    Cells(입력행, 6) = CDate(cmb연도.Value & "-" & cmb월.Value & "-" & cmb일.Value)

    Cells(입력행, 7) = 2019 - cmb연도.Value

    Cells(입력행, 8) = txt연락처.Value

    Cells(입력행, 9) = txt소속.Value

End Sub

빨간색으로 표시된 = 때문에 오류가 났네요. 

Private Sub cmd닫기_Click()

    MsgBox Now, vbOKOnly, "폼닫기"

    Unload Me

End Sub

폼닫기를 폼 닫기 로 띄어쓰기를 해보세요. 

좋은 하루 되세요.