|
9. VBA로
성적 관리 프로그램 만들기 2 
계속해서 성적관리기를 만들겠습니다.
앞에서
배웠던 VBA 프로그래밍의 순서를 잘 생각하면서 따라오시기 바랍니다.
2-2> 2 단계 - 속성 지정하기
① 이제 VBA 프로그래밍의 첫 번째 단계인 "컨트롤
작성"이 끝났습니다.
다음으로 컨트롤에 속성을 지정해주어야 합니다.
학과 입력은 "목록상자"를 이용할 것이므로 연결되는 목록이
미리 만들어져 있어야 합니다. Sheet1의 이름을 "목록"으로
변경한 후 셀에 다음과 같은 목록을 입력합니다.
② 다시 "대화상자"
시트로 돌아옵니다. 학과입력란의 목록 상자를 선택하고 마우스 오른쪽을
클릭합니다. 단축메뉴가 나타나면 "컨트롤 서식"을 선택합니다.
③ 컨트롤 서식 대화상자가 나타납니다. 입력범위 항목의 참조
버튼을 클릭합니다. "목록" 시트를 선택한 후 입력된 목록의
범위를 선택합니다.
④ 목록 입력이 끝났으면 다시 참조 버튼( )을
클릭합니다. 컨트롤 서식 대화상자가 나타나면, 입력된 목록을 확인한
후 [확인]을 클릭합니다.
⑤ 대화상자의 목록 컨트롤에 입력 범위의 항목들이
나타납니다.
2-3> 3 단계(마지막 단계) - 코드
작성하기
① 이제 VBA 프로그래밍의
2단계까지 끝났습니다. 남은 것은 각 컨트롤에 연계된 코드를 작성하는
과정입니다.(코딩) 코드를 작성하기 위해 + 을 눌러서 Visual Basic
Editor를 실행합니다.
② 코딩을 하려면 모듈(Module)을 삽입해두어야
합니다. 모듈이란 코드의 내용을 포함하고 있는 시트라고 생각하면 됩니다.
[삽입-모듈]을 클릭합니다.
③ 다음 그림과 같이 모듈이 삽입되었습니다.
삽입된 모듈에 코드를 작성하면 됩니다.
④ 지금부터 각각의
이벤트에 해당하는 코드를 만들겠습니다. 이러한 코드를 프로시져(Procedeur)라고
합니다. 제일 먼저 만들 것은 학과를 입력하는 것입니다. 대화상자에서
입력받은 학과명을 정해진 시트에 되돌리는 작업입니다. 모듈에 다음과
같이 코드를 입력합니다.
지금 입력한 프로시저의 내용을 조금 더 알아보겠습니다.
Sub 학과입력()
<-
학과입력이라는 프로시저를 시작한다. Sub와 End Sub 사이의 내용이
하나의 프로시저로 인식된다.
Sheets("성적결과").Select
<- "성적결과"라는
시트를 선택한다.
Range("a3").Select
<- a3 셀을 선택한다.
학과명 = DialogSheets("대화상자").EditBoxes("학과입력란").Text
<- 대화상자의 학과입력란이라는
텍스트 박스(Editbox)에 입력받은 값을
"학과명"이라는
변수에 담는다.
ActiveCell.FormulaR1C1
= 학과명
<- 현재 선택된
셀에 "학과명" 변수의 내용을 출력한다.
End Sub
<- 학과입력이라는
프로시저를 끝낸다.
Visual Basic은
다른 프로그래밍 언어와는 달리 사람이 알아보기 쉬운 구문으로 되어
있습니다. 비쥬얼 베이직을 처음 접하는 분들도 크게 어려움이 없을
것입니다.
⑤ 모든 결과를 "성적결과"라는 시트에
되돌릴 것이므로 Sheet 2의 이름을 성적결과로 변경합니다. 참고로 시트탭을
더블클릭하면 시트이름을 쉽게 변경할 수 있습니다. 지금까지 작업으로
모두 3개의 시트가 필요합니다.
⑥ 계속해서 이름과 학번 입력,
그리고 각 점수를 입력하는 프로시저를 작성합니다. 일일이 코드를 입력해도
되지만, 거의 비슷하기 때문에 복사해서 붙여넣기를 하는 것이 효율적입니다.
그 후 필요한 부분만 변경해주는 것입니다.
"성적결과"
시트에 되돌려지는 셀만 차이가 있을 뿐 모두 같은 구문이므로 쉽게
이해할 수 있습니다.
⑦ 지금까지 만든 프로시저가 제대로
작동하는지를 확인해보겠습니다. "대화상자" 시트로 돌아온
후 양식 도구모음에서 대화상자 실행 버튼을 클릭합니다. 다음과 같이
대화상자가 실행될 것입니다.
⑧ 학과와 학번, 그리고 각 과목을
점수를 입력한 후 [확인]을 클릭합니다.
[확인]을 클릭해도 아무런 결과가 생기지 않는 것은 현재
[확인] 버튼과 연결된 프로시저가 없기 때문입니다.
⑨ "성적결과" 시트를 선택한 후 [도구-매크로-매크로]를
선택하면 매크로 대화상자에 지금까지 작성한 프로시저가 나타납니다.
⑩ "학번입력" 매크로를 선택하고 [실행] 버튼을 클릭합니다.
그러면 학번입력 프로시저에 의해서 대화상자에 입력된 학번에 "성적결과"
시트의 B3셀에 되돌려지게 됩니다.
⑪ 지금까지 작성한 프로시저는 이상없이
잘 작동하는 것을 알았습니다. 계속해서 총점, 평균, 수준을 나타내는
프로시저를 작성하겠습니다. Visual Basic Editor로 돌아와서 다음 코드를
입력합니다.
총점_평균_수준 프로시저의 내용은 다음과 같습니다.
Sub 총점_평균_수준()
행정사점수 = Int(DialogSheets("대화상자").EditBoxes("행정사점수").Text)
<-대화상자의 행정사점수 텍스트란에
입력된 점수를 "행정사점수"라는 변수에 담는다
정수로 인식시키기
위해서 Int 함수를 사용했다.
정치학점수
= Int(DialogSheets("대화상자").EditBoxes("정치학점수").Text)
헌법학점수 = Int(DialogSheets("대화상자").EditBoxes("헌법학점수").Text)
총점 = 행정사점수 + 정치학점수 + 헌법학점수
<-행정사점수와 정치학점수, 헌법학점수를 합한 값을
"총점"이라는 변수에 담는다.
DialogSheets("대화상자").EditBoxes("총점").Text
= 총점
<-"총점"을
대화상자의 "총점"입력란에 나타낸다.
Sheets("성적결과").Select
Range("g3").Select
ActiveCell.FormulaR1C1 = 총점
<-성적결과 시트의 g3셀을 선택한
후 "총점"을 출력한다.
평균 =
총점 / 3
<-총점에서 3을
나눈 값을 "평균"이라는 변수에 담는다.
DialogSheets("대화상자").EditBoxes("평균").Text
= 총점
Range("h3").Select
ActiveCell.FormulaR1C1
= 평균
If 평균 >= 85 Then
DialogSheets("대화상자").EditBoxes("수준").Text
= "A"
<-만약
평균이 85점 이상이면 대화상자의 수준 텍스트 입력란에 A를 표시한다.
ElseIf 평균 >= 60 Then
DialogSheets("대화상자").EditBoxes("수준").Text
= "B"
<-평균이
65점에서 85점 사이이면 대화상자의 수준 텍스트 입력란에 B를 표시한다.
Else
DialogSheets("대화상자").EditBoxes("수준").Text
= "C"
End If
Range("i3").Select
결과 = DialogSheets("대화상자").EditBoxes("수준").Text
<-대화상자의 수준 입력란의
값을 "결과"라는 변수에 담는다.
ActiveCell.FormulaR1C1
= 결과
<-i3셀을 선택한
후 "결과"를 출력한다.
End Sub
⑫ 모든 하위 프로시저가 만들어졌습니다. 이제 이 프로시저들을
한번에 실행할 수 있는 프로시저를 만들어야 합니다. 이 프로시저의
이름은 "전체실행"으로 합니다.
전체실행 프로시저가
만들어졌으므로, 앞으로는 "전체실행" 프로시저만 실행하면
모든 하위 프로시저가 자동으로 실행되게 됩니다.
⑬ 전체실행
프로시저가 올바로 작동하는지 테스트해보겠습니다. "성적결과"
시트를 선택합니다. [도구-매크로-매크로]를 선택한 후 "전체실행"
매크로를 선택하고 [실행]을 클릭합니다.
⑭ 3행에 대화상자에
입력된 값이 그대로 되돌려졌습니다.
⑮ 이제 대화상자가
항상 실행되게끔 소스를 수정해주어야 합니다. 대화상자가 계속 실행되어야만
다른 사람들의 정보도 입력할 수 있습니다. "전체실행" 프로시져의
소스를 다음과 같이 변경합니다.
이 소스의 의미는 다음과 같습니다.
Sub 전체실행()
재실행:
If DialogSheets("대화상자").Show
Then
<- 만약 대화상자가
계속 보여진다면 (즉, 사용자가 취소 버튼을 누르지 않는다면)
학과입력
학번입력
이름입력
행정사점수입력
정치학점수입력
헌법학점수입력
총점_평균_수준
GoTo
재실행
<- 반복해서 프로시저를
실행한다.
Else
End If
<- 그렇지 않으면(즉, 사용자가 취소버튼을
눌러 대화상자를 없앤다면)
프로시저를 종료한다.
End Sub
다시 프로시저를 확인해 봅니다. "성적결과"
시트에서 "전체실행" 매크로를 실행합니다.
대화상자가
없어지지 않고 계속해서 생기는 것을 볼 수 있습니다. 사용자가 [취소]
버튼을 클릭해야만 전체 매크로가 중지됩니다.
그런데 이상한 점을
발견했을 것입니다. 새로운 데이터를 입력해도 계속해서 3행에만 입력이되죠?
이 문제를 해결하기 위해 전체 프로시저를 변경해주어야 합니다. 입력되는
데이터를 계속해서 다음행에 입력하기 위해서 "현재 셀의 영역(Current
Region)"이라는 개념을 이용하게 됩니다. 시트에 다음과 같이 항목을
입력합니다.
A1셀을 선택한 후 [편집-이동]을 선택합니다. 이동 대화상자가
나타나면 [옵션] 버튼을 클릭합니다. 이동 옵션 대화상자가 나타나면
"현재 셀이 있는 영역"을 선태하고 [확인]을 누릅니다.
A1셀을 기준으로 현재 셀이 있는 영역의 범위가 선택되었습니다.
현재 셀이 있는 영역은 현재 셀 주위의 사각형 셀 범위를 선택하게 됩니다.
즉, 빈 행과 빈 열을 경계로 범위가 선택되어지는 것입니다.
사각형으로 범위가 선택되기 때문에 A1:I4의 범위가 모두 선택된다.
다음 그림은 A4셀에 데이터가 들어있는 경우에 현재 셀이 있는 영역을
선택한 모습입니다.
항상 데이터가 입력된 다음행에 데이터를 추가적으로
입력할 수 있다.
이러한 "현재 셀이 있는 영역"을 이용해서
"학과입력" 프로시저의 내용을 다음과 같이 변경합니다.
이 프로시저의 의미는 다음과 같습니다.
Sub 학과입력()
Sheets("성적결과").Select
'Range("a3").Select
<- 구문앞에 '를 입력하면 이
구문은 실행되지 않는다.
Set 현재셀영역
= Sheets("성적결과").Range("a1").CurrentRegion
<- 현재셀영역을 설정하는데,
성적결과 시트의 a1셀을 기준으로 현재 셀이 있는 영역을
선택한다.
학과행 = 현재셀영역.Rows.Count
+ 1
<-현재셀영역에 1칸을
증가시킨 행을 학과행으로 지정한다.
Range(Cells(학과행,
1), Cells(학과행, 1)).Select
<-학과행을
기준으로 첫 번째 행, 첫 번째 열을 선택한다.
학과명
= DialogSheets("대화상자").EditBoxes("학과입력란").Text
ActiveCell.FormulaR1C1 = 학과명
End Sub
이 방법은 대화상자로
데이터를 입력하는 기본적인 방법이므로 잘 알아두시기 바랍니다.
21) 나머지 하위 프로시져도 같은 방법으로 현재셀영역을 지정합니다.
단, 주의할 것은 이미 학과행에서 한행을 증가시켜 놓았기 때문에 이후에는
1칸을 증가시킬 필요는 없다는 것입니다. 다음은 완성된 전체 프로시저입니다.
Sub 전체실행()
재실행:
If DialogSheets("대화상자").Show
Then
학과입력
학번입력
이름입력
행정사점수입력
정치학점수입력
헌법학점수입력
총점_평균_수준
GoTo
재실행
Else
End If
End Sub
---------------------------------------------------------------------------
Sub 학과입력()
Sheets("성적결과").Select
'Range("a3").Select
Set 현재셀영역 = Sheets("성적결과").Range("a1").CurrentRegion
학과행 = 현재셀영역.Rows.Count + 1
Range(Cells(학과행, 1), Cells(학과행,
1)).Select
학과명 = DialogSheets("대화상자").EditBoxes("학과입력란").Text
ActiveCell.FormulaR1C1 = 학과명
End Sub
---------------------------------------------------------------------------
Sub 학번입력()
Sheets("성적결과").Select
'Range("b3").Select
Set 현재셀영역 = Sheets("성적결과").Range("a1").CurrentRegion
학번행 = 현재셀영역.Rows.Count + 0
Range(Cells(학번행, 2), Cells(학번행,
2)).Select
학번 = DialogSheets("대화상자").EditBoxes("학번입력란").Text
ActiveCell.FormulaR1C1 = 학번
End Sub
---------------------------------------------------------------------------
Sub 이름입력()
Sheets("성적결과").Select
'Range("c3").Select
Set 현재셀영역 = Sheets("성적결과").Range("a1").CurrentRegion
이름행 = 현재셀영역.Rows.Count + 0
Range(Cells(이름행, 3), Cells(이름행,
3)).Select
이름 = DialogSheets("대화상자").EditBoxes("이름입력란").Text
ActiveCell.FormulaR1C1 = 이름
End Sub
---------------------------------------------------------------------------
Sub 행정사점수입력()
Sheets("성적결과").Select
'Range("d3").Select
Set 현재셀영역 = Sheets("성적결과").Range("a1").CurrentRegion
행정사행 = 현재셀영역.Rows.Count + 0
Range(Cells(행정사행, 4),
Cells(행정사행, 4)).Select
행정사점수 = DialogSheets("대화상자").EditBoxes("행정사점수").Text
ActiveCell.FormulaR1C1 = 행정사점수
End Sub
---------------------------------------------------------------------------
Sub 정치학점수입력()
Sheets("성적결과").Select
'Range("e3").Select
Set 현재셀영역 = Sheets("성적결과").Range("a1").CurrentRegion
정치학행 = 현재셀영역.Rows.Count + 0
Range(Cells(정치학행, 5),
Cells(정치학행, 5)).Select
정치학점수 = DialogSheets("대화상자").EditBoxes("정치학점수").Text
ActiveCell.FormulaR1C1 = 정치학점수
End Sub
---------------------------------------------------------------------------
Sub 헌법학점수입력()
Sheets("성적결과").Select
'Range("f3").Select
Set 현재셀영역 = Sheets("성적결과").Range("a1").CurrentRegion
헌법학행 = 현재셀영역.Rows.Count + 0
Range(Cells(헌법학행, 6),
Cells(헌법학행, 6)).Select
헌법학점수 = DialogSheets("대화상자").EditBoxes("헌법학점수").Text
ActiveCell.FormulaR1C1 = 헌법학점수
End Sub
----------------------------------------------------------------------------
Sub 총점_평균_수준()
행정사점수 = Int(DialogSheets("대화상자").EditBoxes("행정사점수").Text)
정치학점수 = Int(DialogSheets("대화상자").EditBoxes("정치학점수").Text)
헌법학점수 = Int(DialogSheets("대화상자").EditBoxes("헌법학점수").Text)
총점 = 행정사점수 + 정치학점수 + 헌법학점수
DialogSheets("대화상자").EditBoxes("총점").Text
= 총점
Sheets("성적결과").Select
'Range("g3").Select
Set 현재셀영역 = Sheets("성적결과").Range("a1").CurrentRegion
총점행 = 현재셀영역.Rows.Count + 0
Range(Cells(총점행, 7), Cells(총점행,
7)).Select
ActiveCell.FormulaR1C1 = 총점
평균 = CInt(총점
/ 3)
DialogSheets("대화상자").EditBoxes("평균").Text
= 총점
'Range("h3").Select
Set 현재셀영역 = Sheets("성적결과").Range("a1").CurrentRegion
평균행 = 현재셀영역.Rows.Count + 0
Range(Cells(평균행, 8), Cells(평균행,
8)).Select
ActiveCell.FormulaR1C1 = 평균
If 평균 >= 85
Then
DialogSheets("대화상자").EditBoxes("수준").Text
= "A"
ElseIf 평균 >= 60 Then
DialogSheets("대화상자").EditBoxes("수준").Text
= "B"
Else
DialogSheets("대화상자").EditBoxes("수준").Text
= "C"
End If
'Range("i3").Select
Set 현재셀영역 = Sheets("성적결과").Range("a1").CurrentRegion
수준행 = 현재셀영역.Rows.Count + 0
Range(Cells(수준행, 9), Cells(수준행,
9)).Select
결과 = DialogSheets("대화상자").EditBoxes("수준").Text
ActiveCell.FormulaR1C1 = 결과
End Sub
---------------------------------------------------------------------------
22) 마지막으로 매크로 단추와 전체 실행 매크로를 연결시키겠습니다.
양식 도구모음에서 [단추]를 클릭한 후 시트에 적당한 크기로 그려줍니다.
매크로 지정 대화상자가 나타납니다. "전체실행" 매크로를
선택하고 [확인]을 클릭합니다.
23) 이제 모든 작업이 끝났습니다.
적절하게 서식을 지정한 후 "단추"를 클릭해서 올바르게 작동하는지
확인해 봅니다.
이렇게 VBA를 통해 프로그래밍을 하면, 각자의
상황에 맞는 엑셀 프로그램을 만들 수 있습니다. VBA에 대해서는 이
정도로 줄이기로 합니다. 더 자세한 내용을 원하는 독자들은 "엑셀관련
웹사이트"의 내용을 참고해서 정보를 얻을 수 있습니다.
[예제 다운로드 하기]
이전(VBA로
성적 관리 프로그램 만들기 1)
| 다음(엑셀과
네트워크 1 - 문서 공유로 작업하기)
|
