시나공

시험에

나오는 것만

공부한다!

이 문제가 답이 원래 이거였는데

Private Sub cmd등록_Click()

입력행 = [B4].Row + [B4].CurrentRegion.Rows.Count

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

Cells(입력행, 3) = txt이름.Value

Cells(입력행, 4) = txt결석.Value

Cells(입력행, 5) = txt지각.Value

Cells(입력행, 6) = 20 - (Cells(입력행, 4) * 2) - Cells(입력행, 5)

Cells(입력행, 7) = txt과제.Value

Cells(입력행, 8) = txt중간.Value

Cells(입력행, 9) = txt기말.Value

If Cells(입력행, 6) <= 20 * 2 / 3 Then

Cells(입력행, 10) = "출석미달"

End If

End Sub

Private Sub cmd등록_Click()

입력행 = [B4].Row + [B4].CurrentRegion.Rows.Count

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

Cells(입력행, 3) = txt이름.Value

Cells(입력행, 4) = txt결석.Value

Cells(입력행, 5) = txt지각.Value

Cells(입력행, 6) = 20 - ( txt결석.Value * 2) - txt지각.Value

Cells(입력행, 7) = txt과제.Value

Cells(입력행, 8) = txt중간.Value

Cells(입력행, 9) = txt기말.Value

If Cells(입력행, 6) <= 20 * 2 / 3 Then

Cells(입력행, 10) = "출석미달"

End If

End Sub

이런 식으로도 써도 되나요?