검색어 입력폼
평가점수B

엑셀 VBA를 이용한 성적관리 프로그램

저작시기 2003.05 |등록일 2004.12.17 엑셀파일MS 엑셀 (xls) | 가격 7,000원

소개글

4개의 시트로 구성되어져 있으며,
개요시트는 설명이고
전체성적 시트는 전체성적을 입력,삭제,
총점,평균,학점,순위 매기는 폼을 이용한 성적처리,
그리고 성적 정렬 버튼과 입력 매크로와 삭제 매크로
두개를 버튼으로 연결한 버튼이 있습니다.
개인성적 시트는 전체평균과 특정 개인의 성적을 비교
해 볼수 있도록 구성했습니다.
그래프 시트는 전체성적을 그래프화한것과
전체평균과 개인성적을 비교하는 그래프 두가지가
콤보박스에 의해 선택적으로 실행되도록
구성했습니다.

컴파일 실행환경

엑셀 2000에서 만들어졌습니다.엑셀 매크로와 VBA를 이용해 만들었고요.실행은 파일 다운로드 후 매크로 포함 열기를선택해 열면 됩니다.

본문내용

개요시트
- 이 프로그램은 엑셀 매크로와 VBA를 이용한 성적처리 프로그램입니다.
- 이 프로그램은 엑셀 2000에서 제작되었기에 그 이하 버전에서는 작동하지 않을 수도 있습니다.
- 이 프로그램은 총 4개의 시트로 구성되어 있습니다. 각각 개요, 전체성적, 개인성적, 그래프 시트입니다.

전체성적시트의 성적정력 버튼의 소스

Private Sub 성적정렬_Click()

If 성적정렬.Value = True Then
성적정렬.Caption = "번호순 정렬"
Range("A11").Select
ActiveCell.CurrentRegion.Select
Selection.Sort Key1:=Range("I11"), Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
Else
성적정렬.Caption = "성적순 정렬"
Range("A11").Select
ActiveCell.CurrentRegion.Select
Selection.Sort Key1:=Range("A11"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
End If

End Sub
다운로드 맨위로