테이블 명세서 한 시트로 합치기

CUBRID Manager에는 테이블 명세서를 엑셀로 출력해주는 편리한 기능이 있다.

결과 파일은 첫 번째 시트에 테이블 리스트가 나오고 추가 시트들은 각 테이블 별 테이블 명세서가 나온다.

출력용으로 사용 시에 매우 편리하다.

하지만 테이블의 수가 많을 경우 검수를 위한 자료를 만들려고 할 때 워크 시트가 너무 많아서

일일히 보기가 힘들 때가 있다.

이때 엑셀의 매크로 기능을 이용 하면 1개의 시트로 편리하게 합칠 수 있다.

순서는 다음과 같다.

1. 엑셀로 명세서 저장

2. 엑셀에서 저장 된 테이블 명세서를 오픈 후 첫 번째 시트를 지운다.

(지우는 이유는 테이블 명세서 통합 본을 만들기 위해 동일한 현식 저장을 위해서 이다.)

3. 엑셀 합치기 매크로(VB) 입력을 위해서 코드 보기 창을 오픈 후 매크로를 입력 한다.

4. 엑셀시트 합치는 매크로를 실행하기 위한 도형을 아무거나 만든 후 입력된 매크로를 선택한다.

5. 도형을 클릭 하면 해당 시트에 모든 테이블 명세서가 짠 모여 있게 된다.

자 이제 해당 시트를 보기 좋게 정리 하면 한개의 시트로 모든 테이블의 명세 정보를 사용 할 수 있다.

여기에서 사용 된 매크로는 다음과 같습니다.

Sub SheetUnit()

Dim i As Integer

Dim ShtA As Worksheet

Dim rngB As Range

Set ShtA = Sheets(1)

For i = 2 To Sheets.Count

    Set rngB = ShtA.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

    Sheets(i).UsedRange.Copy rngB

    Next i

End Sub