책 내용 질문하기
19년 엑셀 상시복원4, 4-2 문제 질문
도서
2021 시나공 컴퓨터활용능력 1급 실기
페이지
0
조회수
418
작성일
2021-08-08
작성자
탈퇴*원
첨부파일
Private Sub cmd입력_Click()
입력행 = [a4].Row + [a4].CurrentRegion.Rows.Count
Cells(입력행, 1) = txt성명
Cells(입력행, 2) = cmb학과.List(cmb학과.ListIndex, 0)
If opt1학년 = True Then
Cells(입력행, 3) = "1학년"
ElseIf opt2학년 = True Then
Cells(입력행, 3) = "2학년"
ElseIf opt3학년 = True Then
Cells(입력행, 3) = "3학년"
Else
Cells(입력행, 3) = "4학년"
Cells(입력행, 4) = Val(txt평점)
End If
Select Case Val(txt평점)
Case Is >= 90
Cells(입력행, 5) = "A"
Case Is >= 80
Cells(입력행, 5) = "B"
Case Is >= 70
Cells(입력행, 5) = "C"
Case Is >= 60
Cells(입력행, 5) = "D"
Case Is >= 50
Cells(입력행, 5) = "E"
Case Else
Cells(입력행, 5) = "F"
End Select
End Sub
라는 식으로 풀었는데 cells(입력행,4)에 평점이 입력되지 않습니다. 어떤 올를 범했는지 가르쳐주시면 감사하겠습니다.
답변
2021-08-11 10:01:51
안녕하세요.
다음과 같이 'Cells(입력행, 4) = Val(txt평점)' 문장을 end if 다음으로 이동해 주세요.
End If
Cells(입력행, 4) = Val(txt평점)
즐거운 하루 되세요.
-
관리자2021-08-11 10:01:51
안녕하세요.
다음과 같이 'Cells(입력행, 4) = Val(txt평점)' 문장을 end if 다음으로 이동해 주세요.
End If
Cells(입력행, 4) = Val(txt평점)
즐거운 하루 되세요.