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.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 = ""
txt날짜 = ""
txt이름 = ""
lst과목 = ""
End If
End Sub
구문에서 '할인수강료' 구하는 식을 lst과목.List(참조행,3) 말고 cells(참조행+9,11)-cells(참조행+9,11)*0.1 로 했더니 오류가 납니다.
이건 왜 그런건가요?
오류가 나지 않게 하려면 어떻게 해야 하나요?
cells(참조행+9,11)-cells(참조행+9,11)*0.1
을 입력하여 실행해 보았는데 정상 실행이 됩니다.
list 박스 안의 값을 선택하지 않은 경우 오류가 날 수 있으므로 꼭 선택 한 후 사용해 보세요.
좋은 하루 되세요.
-
관리자2021-05-13 22:28:28
cells(참조행+9,11)-cells(참조행+9,11)*0.1
을 입력하여 실행해 보았는데 정상 실행이 됩니다.
list 박스 안의 값을 선택하지 않은 경우 오류가 날 수 있으므로 꼭 선택 한 후 사용해 보세요.
좋은 하루 되세요.