1. 첫번쨰 캡쳐사진처럼 입력하면 노란색 부분에서 오류가 떠요 왜 그런가요?
2. if isnull(lst과목.value) then 대신에 캡쳐내용 2번째 줄처럼 입력해도 상관없는거죠?
3. Private Sub cmd입력_Click()
If lst과목.Value = "" Then
txtID = "선택안함"
lst과목.ListIndex = 0
Else
입력행 = [a3].Row + [a3].CurrentRegion.Rows.Count
참조행 = lst과목.ListIndex + 10
Cells(입력행, 1) = UCase(txtID.Value)
Cells(입력행, 2) = txt이름.Value
Cells(입력행, 3) = Cells(참조행, 8)
Cells(입력행, 4) = Cells(참조행, 9)
Cells(입력행, 5) = Cells(참조행, 10)
Cells(입력행, 6) = Cells(참조행, 8) - (Cells(참조행, 8) * 0.1)
txtID.Value = ""
txt날짜.Value = ""
txt이름.Value = ""
End If
End Sub 이렇게 입력하면 Cells(입력행, 3) = Cells(참조행, 8) 이 부분부터 오류가 뜨는데 왜 그런가요?
안녕하세요.
1, 3. 참조행 = lst과목.ListIndex + 10에서 +10을 삭제해 주세요.
2. 정상적으로 실행된다면 상관 없습니다.
참고로 다음에 질문을 올리실때는 그림이 아닌 실습한 엑셀 또는 액세스 파일을 올려주세요. 해당 파일을 직접 열어 실행을 해봐야 보다 정확한 답변을 드릴 수 있습니다.
즐거운 하루 되세요.
-
관리자2024-01-05 20:15:15
안녕하세요.
1, 3. 참조행 = lst과목.ListIndex + 10에서 +10을 삭제해 주세요.
2. 정상적으로 실행된다면 상관 없습니다.
참고로 다음에 질문을 올리실때는 그림이 아닌 실습한 엑셀 또는 액세스 파일을 올려주세요. 해당 파일을 직접 열어 실행을 해봐야 보다 정확한 답변을 드릴 수 있습니다.
즐거운 하루 되세요.