책 내용 질문하기
프로시저문제
도서
2019 시나공 컴퓨터활용능력 1급 실기
페이지
172
조회수
404
작성일
2019-04-05
작성자
탈퇴*원
첨부파일

기타작업 2-2 번 문제

 

Private Sub cmd입력_Click()

[입력행] = [b3].Row + [b3].CurrentRegion.Rows.Count
Cells(입력행, 2) = cmb담당자
Cells(입력행, 3) = txt시간

If TimeValue(txt시간) >= 0.5 Then
Cells(입력행, 4) = "오후"
Else
Cells(입력행, 4) = "오전"
End If

Cells(입력행, 5) = cmb지역
Cells(입력행, 6) = Val(txt계획)
Cells(입력행, 7) = Val(txt실적)

If Val(txt실적) >= Val(txt계획) Then
Cells(입력행, 8) = "달성"
Else
Cells(입력행, 8) = "노력"
End If

cmb담당자 = ""
txt시간 = ""
cmb지역 = ""
txt계획 = ""
txt실적 = ""


End Sub

 

 

이건 제가 입력한 코드인데, 답지와 비교해봐도 어디가 틀렸는지를 잘 모르겠습니다...

사용자 파일에서 폼 입력을 검사하는 중에 오류가 발생했습니다. 개체가 필요합니다.  라고 오류가 뜨는데

제가 코드에서 잘못 입력한 부분이 있는건가요, 아님 다른 부분에서 잘못된건가요??

 

답변
2019-04-06 23:20:52

안녕하세요.

 

첫째 행에

[입력행] = [b3].Row + [b3].CurrentRegion.Rows.Count 에서 입력행에 대괄호를 삭제해 봐 주세요.

수정 후 : 입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count

 

개체 인식 오류의 경우 해당 프로시저 뿐만 아니라, 다른 프로시저에 오타가 있는지도 확인해 주셔야 합니다.

확인해 보시고 수정이 어려우시면, 작업하신 엑셀 파일을 첨부하셔서 재질문해 주세요.

 

좋은 하루 보내세요. 

  • 관리자
    2019-04-06 23:20:52

    안녕하세요.

     

    첫째 행에

    [입력행] = [b3].Row + [b3].CurrentRegion.Rows.Count 에서 입력행에 대괄호를 삭제해 봐 주세요.

    수정 후 : 입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count

     

    개체 인식 오류의 경우 해당 프로시저 뿐만 아니라, 다른 프로시저에 오타가 있는지도 확인해 주셔야 합니다.

    확인해 보시고 수정이 어려우시면, 작업하신 엑셀 파일을 첨부하셔서 재질문해 주세요.

     

    좋은 하루 보내세요. 

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