시나공

시험에

나오는 것만

공부한다!

[2015] 컴퓨터활용능력 1급 실기

엑셀

기본모의고사 7회

문제4의 2번 통신요금 시트 VBA작성 응용

문제를 응용하여, 고객번호를 조회하여 삭제하는 프로시저를 만들었습니다.

삭제 프로시저는 문제가 없습니다.

질문>

현재시트인 통신요금 시트에서 한 데이터(레코드)를 삭제하면, 삭제될 때마다 그 해당 삭제된 데이터를

다른 시트(삭제명단)의 표에 자동으로차곡차곡 저장(입력)하려면

프로시저를 어떻게 만들어야 하나요?

현재 시트에서 입력(등록) 프로시저를 만들려면

입력 프로시저에 아래와 같이 하면 되는데요....

입력행 = [a1].Row + [A1].CurrentRegion.Rows.count

Cells(입력행,1)= txt고객번호

Cells(입력행,1)= txt종류명

Cells(입력행,1)= txt기본요금

Cells(입력행,1)= txt사용시간

Cells(입력행,1)= txt청구금액

다른 시트(삭제명단)에 삭제된 데이터를 옮겨 주려면 프로시저를 어떻게 만들어야하나요?

현재시트: 통신요금

현재 시트에서 삭제한 두개의 데이터를 다른 시트에 아래와 같이 옮기는 방법

다른 시트: 삭제명단

다른 시트에 입력하는 코딩을 아래와 같이 했는데 컴파일 에러가 나네요.....

Worksheets("삭제명단").[A1].Select
Worksheets("삭제명단").[A1].CurrentRegion.Select
입력행 = Worksheets("삭제명단").[A1].Row + Worksheets("삭제명단")._

[A1].CurrentRegion.Rows.Count
Worksheets("삭제명단").Range("A" & 입력행) = txt고객번호
Worksheets("삭제명단").Range("B" & 입력행) = txt종류명
Worksheets("삭제명단").Range("C" & 입력행) = txt기본요금
Worksheets("삭제명단").Range("D" & 입력행) = txt사용시간
Worksheets("삭제명단").Range("E" & 입력행) = txt청구금액