정답은
Private Sub cmd등록_Click()
i = Range("b5").CurrentRegion.Rows.Count + 4
Cells(i, 2) = cells(cmb수강자.Listindex+6, 15)
Cells(i, 3) = cells(cmb수강자.Listindex+6, 16)
Cells(i, 4) = txt결석.Value
Cells(i, 5) = txt지각.Value
Cells(i, 6) = 20 - (Cells(i, 4) * 2 + Cells(i, 5) * 1)
Cells(i, 7) = txt과제.Value
Cells(i, 8) = txt평가.Value
If Cells(i, 6) < 12 Then
Cells(i, 9) = "출석미달"
End If
End Sub
이렇게 돼있는데
Private Sub cmd등록_Click()
i = Range("b5").CurrentRegion.Rows.Count + 4
참조행 = cmb수강자.ListIndex
Cells(i, 2) = cmb수강자.List(참조행, 0)
Cells(i, 3) = cmb수강자.List(참조행, 1)
Cells(i, 4) = txt결석.Value
Cells(i, 5) = txt지각.Value
Cells(i, 6) = 20 - (Cells(i, 4) * 2 + Cells(i, 5) * 1)
Cells(i, 7) = txt과제.Value
Cells(i, 8) = txt평가.Value
If Cells(i, 6) < 12 Then
Cells(i, 9) = "출석미달"
End If
End Sub
이런식으로 참조행 써서 풀어도 맞는건가요??
문제의 지시사항에 맞게 지정하고 정확한 결과가 나왔다면 정답으로 인정 됩니다.
문제에서 list,listindex 를 이용하라고 했는지 listindex 를 이용하라고 했는지 등을 확인 한 후 사용하세요.
좋은 하루 되세요.
-
관리자2021-06-08 19:22:16
문제의 지시사항에 맞게 지정하고 정확한 결과가 나왔다면 정답으로 인정 됩니다.
문제에서 list,listindex 를 이용하라고 했는지 listindex 를 이용하라고 했는지 등을 확인 한 후 사용하세요.
좋은 하루 되세요.