[스프레드시트] 컴활 1급 실기 문제 풀기 (프로시저, CurrentRegion, Cells)

 

(문제 출처 : https://m.cafe.daum.net/hermingway/ZYwR/39?listURI=%2Fhermingway%2FZYwR )

 

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

 

프로시저 작성해보기

 

 

===

 

폼 초기화 + cmb대상 설정

 

먼저 Alt+F11이나 VisualBasic 클릭

 

다음과 같이

현재 작업중 시트를 선택하고

코드보기 실행

 

다음과 같이

cmd신청 이란 객체 선택하고

Click이란 이벤트를 선택해주면 다음과 같이 Sub프로시저 생성

 

참가신청이란 폼을 나타내야 하므로

Show메소드 호출해준다.

 

역시 폼 개체를 코드보기를 통해 열면

UserForm객체 선택, Initialize이벤트 선택해주면

폼 초기화 관련 코드를 짤 수 있는 Sub프로시저가 생성된다.

 

 

다음과 같이

RowSource란 메소드 호출하고

들어갈 옵션값의 범위를 ["시작:끝"]으로 설정해준다.

 

 

 

 

 

===

등록 단추 설정

 

 

다음과 같이 cmd등록과 Click을 선택하면

Sub프로시저가 생성되고

입력될 행의 위치 = [테이블 시작 셀위치].CurrentRegion.Rows.Count() + 위 여백 개수

위의 성질을 잘 이용하고

Cells(입력될 행의 위치, 입력될 열 위치) = 입력할 값

위의 성질 역시 잘 이용하자.

 

 

Private Sub cmd등록_Click()
    i = [A3].CurrentRegion.Rows.Count() + 2
    
    Cells(i, 1) = txt신청자.Value
    
    tmpstr = ""
    If opt회원.Value = True Then
        tmpstr = "회원"
    ElseIf opt비회원.Value = True Then
        tmpstr = "비회원"
    End If
    Cells(i, 2) = tmpstr
    
    Cells(i, 3) = cmb대상.Value
    Cells(i, 4) = txt이벤트날짜.Value
    Cells(i, 5) = txt신청인원.Value
End Sub

 

 

 

===

종료 설정

 

이번 문제는 unload me 호출 전

msgBox의 속성을 알면 되는 문제다.

현재 날짜 : Date함수 호출

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

 

 

 

<완성>