안녕하세요. 교재 1권 섹션18-기출04문제와 관련하여 질문드립니다.
폼의 입력단추를 클릭하면 새로운 값이 입력될 수 있도록 하라는 문제에 따라서 아래와 같이 입력하였습니다.
----------------------------
Private Sub cmd입력_Click()
If IsNull(lst과목.Value) Then
txtID = "선택안함"
lst과목.ListIndex = 0
Else
참조행 = lst과목.ListIndex
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = UCase(txtID.Value)
Cells(입력행, 2) = txt이름.Value
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.Value = " "
txt이름.Value = " "
txt날짜.Value = " "
lst과목.Value = " "
End If
--------------------------
그랬더니
'380'런타임 오류가 발생하였습니다.
value 속성을 설정할 수 없습니다.
라는 오류 문구가 뜹니다.
폼에 ID와 이름을 입력하면 공백으로 바뀌어야 하는데
그러지를 않고 오류가 나타납니다.
어디를 고쳐야 하나요??
txtID.Value = " "
txt이름.Value = " "
txt날짜.Value = " "
lst과목.Value = " "
Lst 로 작성해야 하는데 다른 것으로 작성 된 것 같습니다.
이부분 수정해 보시구요.
잘 안되신다면 작성하신 엑셀 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
-
관리자2022-03-22 14:32:39
txtID.Value = " "
txt이름.Value = " "
txt날짜.Value = " "
lst과목.Value = " "
Lst 로 작성해야 하는데 다른 것으로 작성 된 것 같습니다.
이부분 수정해 보시구요.
잘 안되신다면 작성하신 엑셀 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.