Page 225 - 3-3

' 엑셀 시트 선택 함수 호출 - 회로과
SelectSheet(2, lblFstu.Text, xlsSheetFlex_hr, RowFlex_hr)

' 학생정보의 첫번쨰 숫자가 1 이면
Else
' 엑셀 시트 선택 함수 호출 - 제어과
SelectSheet(2, lblFstu.Text, xlsSheetFlex_je, RowFlex_je)
End If

End If

' 예외 검출시
Catch ex As Exception
' 메시지 박스 출력
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
' 엑셀 시트 선택 메서드
Private Sub SelectSheet(ByVal num As Integer, ByVal stu As String, ByVal ws As
Microsoft.Office.Interop.Excel.Worksheet, ByVal row As Integer)

'A 열에 학과 데이터 전송
ws.Cells(row, "A") = IIf(Mid(stu, 1, 1) = "3", " 통신과", IIf(Mid(stu, 1, 1) = "2", " 회로과",
" 제어과"))
'B 열에 학번 데이터 전송
ws.Cells(row, "B") = Mid(stu, 2, 5)
'C 열에 이름 데이터 전송
ws.Cells(row, "C") = Mid(stu, 7)

' 종목 번호가 0 이면
If num = 0 Then
'D 열에 50m 달리기 기록 데이터 전송
ws.Cells(row, "D") = Val(Rsec & "." & IIf(Rmsec <= 9, "0" & Rmsec, Rmsec))

' 종목 번호가 1 이면
ElseIf num = 1 Then
'D 열에 팔굽혀펴기 기록 데이터 전송
ws.Cells(row, "D") = Val(Pcount)

' 종목 번호가 2 이면
Else
'D 열에 유연성 기록 데이터 전송
ws.Cells(row, "D") = Val(Fdist)
End If

- 225 -