시나공

시험에

나오는 것만

공부한다!

시키는 대로 해보고

답안지 한번 보고

직접 풀고

답 확인하고

실행을 하는데 1004런타임 오류 뜨면서 실행이 되지 않습니다

노란색 형광바는 cells(입력행,1) = ucase(txtid)

쪽을 가리키는데

뭐가 틀린지 모르겠습니다.

파일첨부합니다 확인후 답변 부탁드립니다.

Private Sub Worksheet_Activate()
[a1] = "컴활합격"
a1.Font.Bold = True
End Sub
----------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Activate
Target.Font.Name "궁서체"
Target.Font.Size "12"

End Sub
----------------------------------------------------

Private Sub 수강신청_Click()
온라인수강신청.Show
End Sub
----------------------------------------------------

Private Sub cmd입력_Click()
If IsNull(lst과목.Value) Then
lst과목.ListIndex = 0
txtID = "선택안함"
Else
참조행 = lst과목.ListIndex
입력행 = [a3].Row = [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = UCase(txtID)
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
End Sub
----------------------------------------------------
Private Sub cmd종료_Click()
Unload Me
End Sub

----------------------------------------------------
Private Sub lst과목_Click()

End Sub
----------------------------------------------------
Private Sub txt날짜_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
txt날짜 = Now
End Sub
----------------------------------------------------
Private Sub UserForm_Click()

End Sub
----------------------------------------------------
Private Sub UserForm_Initialize()
lst과목.RowSource = "H10:K17"
End Sub
----------------------------------------------------