Page 224 - 3-3

' 학생정보의 첫번째 숫자가 3 이면
If (Mid(lblRstu.Text, 1, 1) = 3) Then
' 엑셀 시트 선택 함수 호출 - 통신과
SelectSheet(0, lblRstu.Text, xlsSheet50m_ts, RowRun50_ts)

' 학생정보의 첫번째 숫자가 2 이면
ElseIf (Mid(lblRstu.Text, 1, 1) = 2) Then
' 엑셀 시트 선택 함수 호출 - 회로과
SelectSheet(0, lblRstu.Text, xlsSheet50m_hr, RowRun50_hr)

' 학생정보의 첫번째 숫자가 1 이면
Else
' 엑셀 시트 선택 함수 호출 - 제어과
SelectSheet(0, lblRstu.Text, xlsSheet50m_je, RowRun50_je)
End If

'PF 라는 문자열을 수신했거나
' 에러 박스 텍스트가 Go Excel 이면
ElseIf Mid(rtbError.Text, 1, 2) = "PF" Or rtbError.Text = "Go Excel" Then
' 학생정보의 첫번쨰 숫자가 3 이면
If (Mid(lblPstu.Text, 1, 1) = 3) Then
' 엑셀 시트 선택 함수 호출 - 통신과
SelectSheet(1, lblPstu.Text, xlsSheetPushUp_ts, RowPushUp_ts)

' 학생정보의 첫번쨰 숫자가 2 이면
ElseIf (Mid(lblPstu.Text, 1, 1) = 2) Then
' 엑셀 시트 선택 함수 호출 - 회로과
SelectSheet(1, lblPstu.Text, xlsSheetPushUp_hr, RowPushUp_hr)

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

'FF 라는 문자열을 수신했거나
' 에러 박스 텍스트가 Go Excel 이면
ElseIf Mid(rtbError.Text, 1, 2) = "FF" Or rtbError.Text = "Go Excel" Then
' 학생정보의 첫번쨰 숫자가 3 이면
If (Mid(lblFstu.Text, 1, 1) = 3) Then
' 엑셀 시트 선택 함수 호출 - 통신과
SelectSheet(2, lblFstu.Text, xlsSheetFlex_ts, RowFlex_ts)

' 학생정보의 첫번쨰 숫자가 2 이면
ElseIf (Mid(lblFstu.Text, 1, 1) = 2) Then

- 224 -