Private Sub cmd등록_Click()
참조행 = cmb수강과목.ListIndex
입력행 = [b3].Row + [b3].CurrentRegion.Rows.Count
Cells(입력행, 2) = txt성명.Value
Cells(입력행, 3) = cmb수강과목.List(참조행, 0)
Cells(입력행, 4) = txt결석일수.Value
Cells(입력행, 5) = txt1차.Value
Cells(입력행, 6) = txt2차.Value
Cells(입력행, 7) = txt3차.Value
Cells(입력행, 8) = Int(Cells(입력행, 5) + Cells(입력행, 6) + Cells(입력행, 7) / 3)
End Sub
이렇게 입력해도 정답처리 되나요?
그리고 Cells(입력행, 8) = Int(Cells(입력행, 5) + Cells(입력행, 6) + Cells(입력행, 7) / 3) 이렇게 입력했을 때
값 넣어보면 평균이 잘못된 값이 나오던데 상관없나요?
Private Sub cmd등록_Click()
입력행 = [B3].Row + [B3].CurrentRegion.Rows.Count
Cells(입력행, 2) = txt성명.Value
Cells(입력행, 3) = cmb수강과목.Value
Cells(입력행, 4) = txt결석일수.Value
Cells(입력행, 5) = txt1차.Value
Cells(입력행, 6) = txt2차.Value
Cells(입력행, 7) = txt3차.Value
Cells(입력행, 8) = Int((Cells(입력행, 5) + Cells(입력행, 6) + Cells(입력행, 7)) / 3)
End Sub
다르게 지정하셔도 지시사항에 맞게 지정하고 정확한 결과가 나오면 정답으로 인정 됩니다.
Cells(입력행, 8) = Int(Cells(입력행, 5) + Cells(입력행, 6) + Cells(입력행, 7) / 3)
괄호가 하나 없어서 다른 결과가 나온 것 같습니다.
Cells(입력행, 8) = Int((Cells(입력행, 5) + Cells(입력행, 6) + Cells(입력행, 7)) / 3)
와 같이 괄호를 해주지 않으면 값을 모두 더한 후 3으로 나누는 것이 아니라 마지막 값만 3으로 나누게 되므로 다른 결과가 나올 수 있습니다.
좋은 하루 되세요.
-
관리자2023-02-20 18:23:08
Private Sub cmd등록_Click()
입력행 = [B3].Row + [B3].CurrentRegion.Rows.Count
Cells(입력행, 2) = txt성명.Value
Cells(입력행, 3) = cmb수강과목.Value
Cells(입력행, 4) = txt결석일수.Value
Cells(입력행, 5) = txt1차.Value
Cells(입력행, 6) = txt2차.Value
Cells(입력행, 7) = txt3차.Value
Cells(입력행, 8) = Int((Cells(입력행, 5) + Cells(입력행, 6) + Cells(입력행, 7)) / 3)
End Sub
다르게 지정하셔도 지시사항에 맞게 지정하고 정확한 결과가 나오면 정답으로 인정 됩니다.
Cells(입력행, 8) = Int(Cells(입력행, 5) + Cells(입력행, 6) + Cells(입력행, 7) / 3)
괄호가 하나 없어서 다른 결과가 나온 것 같습니다.
Cells(입력행, 8) = Int((Cells(입력행, 5) + Cells(입력행, 6) + Cells(입력행, 7)) / 3)
와 같이 괄호를 해주지 않으면 값을 모두 더한 후 3으로 나누는 것이 아니라 마지막 값만 3으로 나누게 되므로 다른 결과가 나올 수 있습니다.
좋은 하루 되세요.