기타작업 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
이건 제가 입력한 코드인데, 답지와 비교해봐도 어디가 틀렸는지를 잘 모르겠습니다...
사용자 파일에서 폼 입력을 검사하는 중에 오류가 발생했습니다. 개체가 필요합니다. 라고 오류가 뜨는데
제가 코드에서 잘못 입력한 부분이 있는건가요, 아님 다른 부분에서 잘못된건가요??
안녕하세요.
첫째 행에
[입력행] = [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
개체 인식 오류의 경우 해당 프로시저 뿐만 아니라, 다른 프로시저에 오타가 있는지도 확인해 주셔야 합니다.
확인해 보시고 수정이 어려우시면, 작업하신 엑셀 파일을 첨부하셔서 재질문해 주세요.
좋은 하루 보내세요.