시나공

시험에

나오는 것만

공부한다!

> 평균은 입력받은 국어, 영어, 수학값의 평균이고 소수 2자리까지 표시하시오 이것을

Cells(입력행, 6) = Round(average(Val(txt국어), Val(txt영어), Val(txt수학)), 2)

이렇게 하면 왜 안되나요?

전체적으로 아래와같이 코딩하고 실행하기 해보면

입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count
Cells(입력행, 2) = 입력행 - 3 & txt이름
Cells(입력행, 3) = txt국어
Cells(입력행, 4) = txt영어
Cells(입력행, 5) = txt수학
Cells(입력행, 6) = Round(average(Val(txt국어), Val(txt영어), Val(txt수학)), 2)

Select Case Cells(입력행, 6)
Case Is < 60
Cells(입력행, 7) = "가"
Case Is < 70
Cells(입력행, 7) = "양"
Case Is < 80
Cells(입력행, 7) = "미"
Case Is < 90
Cells(입력행, 7) = "우"
Case Is <= 100
Cells(입력행, 7) = "수"
End Select

컴파일 오류입니다 sub 또는 fuction이 정의되지 않았습니다 라고 뜨네요 ㅠㅠ