컴퓨터활용능력 1급 실기 - 책 내용 질문하기

자료실 온라인 채점 동영상 강좌 커뮤니티

책 내용 질문하기

프로시저 문제

도서

[2010] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2003 사용자용)

페이지

173

조회수

작성일

2011-07-09

작성자

첨부파일

Private Sub Cmd입력_Click()
입력행 = [a2].Row + [a2].CurrentRegion.Rows.Count
Cells(입력행, 1) = Txt이름
Cells(입력행, 2) = Cmb전종
Cells(입력행, 3) = Txt전번
If Opt친구 = True Then
Cells(입력행, 4) = "친구"
If Opt직장 = True Then
Cells(입력행, 4) = "직장"
Else
Cells(입력행, 4) = "기타"
End If
Cells(입력행, 5) = Txt나이
End Sub

입력해보면

컴파일오류입니다:

End If가 없는 If 블록 문

이라는 오류가 뜨던데

머가 틀린건지 몰겠어요~

답변

2011-07-11 12:03:50

if는 두개인데 end if 는 하나뿐이네요.

end if
End Sub

end if 를 입력해야 하는 자리를 찾으셔서 입력하세요.

좋은 하루 되세요.

*

2011-07-11 12:03:50

if는 두개인데 end if 는 하나뿐이네요.

Private Sub Cmd입력_Click()
입력행 = [a2].Row + [a2].CurrentRegion.Rows.Count
Cells(입력행, 1) = Txt이름
Cells(입력행, 2) = Cmb전종
Cells(입력행, 3) = Txt전번
If Opt친구 = True Then
Cells(입력행, 4) = "친구"
If Opt직장 = True Then
Cells(입력행, 4) = "직장"
Else
Cells(입력행, 4) = "기타"
End If
Cells(입력행, 5) = Txt나이

end if
End Sub

end if 를 입력해야 하는 자리를 찾으셔서 입력하세요.

좋은 하루 되세요.
"

파일선택

목록 질문하기 수정하기 삭제