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

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

 

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

 

 

 

===

 

폼 띄우고

초기화 시키는 문제

 

 

 

[개발도구] -> [디자인 모드] 실행 후

버튼 클릭해서 해당 이벤트 프로시저 생성

 

 

그리고 Sub프로시저에

폼.show 기입

 

그리고 해당 폼의

코드 창 띄우고

Initialize관련 프로시저 생성시킨다.

 

 

그리고 문제에서 요구하는 초기화 과정을

적용해준다.

Private Sub UserForm_Initialize()

    cmb수급자유형.RowSource = "J5:J7"
    cmb서비스명.RowSource = "J10:J13"
    opt남.Value = True

End Sub

 

 

 

===

 

CurrentRegion.Rows.Count 이용하기

 

 

 

버튼 개체 및 이벤트 선택해

Sub프로시저 생성

 

 

CurrentRegion.Rows.Count와 여백 행 개수를 파악해

Sub프로시저의 코딩을 다음과 같이 완성시킨다.

Private Sub cmd신청_Click()

    삽입행 = [b4].CurrentRegion.Rows.Count + 3
    
    Cells(삽입행, 2) = txt환자번호.Value
    Cells(삽입행, 3) = txt이름.Value
       
    If opt남.Value = True Then
        Cells(삽입행, 4) = "남자"
    ElseIf opt여.Value = True Then
        Cells(삽입행, 4) = "여자"
    End If
    
    Cells(삽입행, 5) = txt나이.Value
    Cells(삽입행, 6) = txt수급자등급.Value
    Cells(삽입행, 7) = cmb수급자유형.Value
    Cells(삽입행, 8) = cmb서비스명.Value
    
End Sub

 

 

 

===

 

Date함수 호출시키고

폼 닫기

 

 

 

개체와 이벤트 선택해서

Sub프로시저 생성

 

 

메세지박스 띄우고

폼을 닫는 스크립트 만든다.

 

Private Sub cmd닫기_Click()
    
    MsgBox Date, , "폼종료"
    Unload Me
    
End Sub

 

 

 

 

 

테스트 해보자