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

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

책 내용 질문하기

이렇게 했을 때 뭐가 잘못 되었나요?

도서

2021 시나공 기출문제집 컴퓨터활용능력 1급 실기

페이지

97

조회수

390

작성일

2021-03-12

작성자

탈퇴*원

첨부파일

Private Sub cmd입력_Click()

입력행 = Range("b3").CurrentRegion.Rows.Count + 2

Cells(입력행, 2) = 입력행 - 3 & txt성명.Value

Cells(입력행, 3) = cmb학과명.Value

If opt1학년.Value = True Then

Cells(입력행, 4) = "1학년"

If opt2학년.Value = True Then

Cells(입력행, 4) = "2학년"

If opt3학년.Value = True Then

Cells(입력행, 4) = "3학년"

Else

Cells(입력행, 4) = "4학년"

End If

Cells(입력행, 5) = txt학과성적.Value

Cells(입력행, 6) = txt어학테스트.Value

Cells(입력행, 7) = txt면접.Value

End Sub

이렇게 했을 때 뭐가 잘못 되었나요?

답변

2021-03-15 14:42:52

안녕하세요. 길벗 수험서 운영팀입니다.

처음 if 다음에는 elseif로 입력해야 합니다.

즉 문의한 프로시저에서 두, 세 번째 if를 ElseIf로 수정하면 결과가 올바로 표시될 것입니다.

입력행 = Range("b3").CurrentRegion.Rows.Count + 2

Cells(입력행, 2) = 입력행 - 3 & txt성명.Value

Cells(입력행, 3) = cmb학과명.Value

If opt1학년.Value = True Then

Cells(입력행, 4) = "1학년"

ElseIf opt2학년.Value = True Then

Cells(입력행, 4) = "2학년"

ElseIf opt3학년.Value = True Then

Cells(입력행, 4) = "3학년"

Else

Cells(입력행, 4) = "4학년"

End If

Cells(입력행, 5) = txt학과성적.Value

Cells(입력행, 6) = txt어학테스트.Value

Cells(입력행, 7) = txt면접.Value

행복한 하루되세요.^^

관리자

2021-03-15 14:42:52

안녕하세요. 길벗 수험서 운영팀입니다.

처음 if 다음에는 elseif로 입력해야 합니다.
즉 문의한 프로시저에서 두, 세 번째 if를 ElseIf로 수정하면 결과가 올바로 표시될 것입니다.

입력행 = Range("b3").CurrentRegion.Rows.Count + 2
Cells(입력행, 2) = 입력행 - 3 & txt성명.Value
Cells(입력행, 3) = cmb학과명.Value
If opt1학년.Value = True Then
Cells(입력행, 4) = "1학년"
ElseIf opt2학년.Value = True Then
Cells(입력행, 4) = "2학년"
ElseIf opt3학년.Value = True Then
Cells(입력행, 4) = "3학년"

Else
Cells(입력행, 4) = "4학년"
End If
Cells(입력행, 5) = txt학과성적.Value
Cells(입력행, 6) = txt어학테스트.Value
Cells(입력행, 7) = txt면접.Value

행복한 하루되세요.^^

파일선택

목록 질문하기