[스프레드시트] 컴활 1급 실기 문제 풀기 (프로시저 작성하기)

 

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

 

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

 

열 추가시키는 프로시저 만들기

 

 

 

 

===

 

 

먼저 cmd등록 버튼을 클릭했을 때 프로시저 작동할 수 있게끔

구현

 

 

이때 넣고자 하는 위치 설정이 중요한데,

위의 공백이 4칸이라는 사실 염두하자.

 

 

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

Sub프로시저가 생성되고

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

위의 성질을 잘 이용하고

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

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

 

 

Private Sub cmd등록_Click()
    i = [B5].CurrentRegion.Rows.Count() + 4
    
    Cells(i, 2) = cmb구분.Column(0)
    Cells(i, 3) = txt아동명.Value
    
    If opt유.Value = True Then
        tmp보호자동반 = "유"
    Else
        tmp보호자동반 = "무"
    End If
    Cells(i, 4) = tmp보호자동반
    
    Cells(i, 5) = cmb구분.Column(1)
    Cells(i, 6) = txt입장시간.Value
    Cells(i, 7) = txt퇴장시간.Value
    
    Cells(i, 8) = (Hour(txt퇴장시간.Value) - Hour(txt입장시간.Value)) * cmb구분.Column(1)
    
    
    
End Sub

 

 

 

이때 Hour를 통해 시간을 추출하고

이 결과에 요금을 곱해야하는 과정이 복잡한 점 유의한다.

 

<결과>