프로시저를 작성하고
입력을 눌렀더니
컴파일 오류입니다. Sub 또는 Function이 정의되지 않습니다. 라고 떠요.
라고 뜨네요. 왜그런 건가요?
알려주세요.
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
빨간색으로 표시된 부분을 띄어쓰기 하면 안됩니다.
좋은 하루 되세요.
-
관리자2021-06-21 20:34:09
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
빨간색으로 표시된 부분을 띄어쓰기 하면 안됩니다.
좋은 하루 되세요.