[스프레드시트] 실기 컴활문제 풀어보기 (프로시저, CurrentRegion, Time)

(문제 출처 : https://m.cafe.daum.net/hermingway/ZYwR/38 )

 

 

​​​​액셀 컴활 실기문제를 계속해서 풀어보자.

 

 

 

===

 

폼 띄우기

Initialize 설정

 

 

 

먼저 [개발도구]->[디자인 모드] 띄우고

[성적 등록] 클릭해서 VBA Sub프로시저 생성하자

 

다음과 같이 서브프로시저에 스크립트 만든다.

 

 

그 다음

개체와 이벤트를 선택해서 Sub프로시저를 만들어야 하는데

학원생성적 선택후

코드 보기 클릭하고

개체와 이벤트를 선택해주면 된다.

 

그리고

RowSource메소드 이용해서

다음과 같이 초기화 스크립트를 적는다.

 

 

===

 

CurrentRegion.Rows.Count함수 이용해서 연속 입력

평균 구할 때 Int함수 쓰기

 

 

 

다음과 같이 서브프로시저 만든 후

 

 

[B4]를 기준으로

위의 공백이 3개라는 것을 염두해서

CurrentRegion메소드를 활용한다.

 

Int가 정수를 리턴한다는 성질을 이용해서

다음과 같이 스크립트 만든다.

Private Sub cmd등록_Click()
    i = [B4].CurrentRegion.Rows.Count + 3
    
    Cells(i, 2) = txt성명.Value
    Cells(i, 3) = cmb수강과목.Value
    Cells(i, 4) = txt결석일수.Value
    Cells(i, 5) = txt1차.Value
    Cells(i, 6) = txt2차.Value
    Cells(i, 7) = txt3차.Value
    Cells(i, 8) = Int((Int(txt1차.Value) + Int(txt2차.Value) + Int(txt3차.Value)) / 3)
    
End Sub

 

 

===

 

시간 표시 함수

종료(창 닫기) 실행

MsgBox의 1번재 인자가 메시지를 나타내고

3번째 인자가 타이틀을 나타낸다는 점,

Time이 시간을 나타낸다는 점까지 익히자

Private Sub cmd닫기_Click()

    MsgBox Time, , "폼종료"
    Unload Me
    
End Sub