책 내용 질문하기
프로시저
도서
2024 시나공 컴퓨터활용능력 1급 실기 기본서
페이지
263
조회수
196
작성일
2024-01-04
작성자
탈퇴*원

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) 이 부분부터 오류가 뜨는데 왜 그런가요?

답변
2024-01-05 20:15:15

안녕하세요.

 

1, 3. 참조행 = lst과목.ListIndex + 10에서 +10을 삭제해 주세요.

2. 정상적으로 실행된다면 상관 없습니다.

 

참고로 다음에 질문을 올리실때는 그림이 아닌 실습한 엑셀 또는 액세스 파일을 올려주세요. 해당 파일을 직접 열어 실행을 해봐야 보다 정확한 답변을 드릴 수 있습니다.

 

즐거운 하루 되세요.

  • 관리자
    2024-01-05 20:15:15

    안녕하세요.

     

    1, 3. 참조행 = lst과목.ListIndex + 10에서 +10을 삭제해 주세요.

    2. 정상적으로 실행된다면 상관 없습니다.

     

    참고로 다음에 질문을 올리실때는 그림이 아닌 실습한 엑셀 또는 액세스 파일을 올려주세요. 해당 파일을 직접 열어 실행을 해봐야 보다 정확한 답변을 드릴 수 있습니다.

     

    즐거운 하루 되세요.

· 5MB 이하의 zip, 문서, 이미지 파일만 가능합니다.
· 폭언, 욕설, 비방 등은 관리자에 의해 경고없이 삭제됩니다.