[ 엑셀VBA 11 ] 불량관리 프로그램 만들기 - 데이터베이스 입력 행삽입 모듈 만들기

 

 

 

[ 엑셀VBA 11 ] 불량관리 프로그램 만들기 - 데이터베이스 입력 행삽입 모듈 만들기

 

데이터베이스를 만들때 가장 중요한 것은 똑 같은 포멧으로 같은 방식으로 일정한 모드나 불량을 입력해

야 비슷한 모드들을 쉽게 모아서 내용을 분석하거나 하는데 사용할 수 있다.

 

그래서, 데이터베이스를 만드는 것은 목적에 맞게 모드나 유형을 지속적으로 정의 하고 분류하고 정리해

나가는 것이 좋은 데이터 베이스를 만드는 것이라 하겠다.

 

아래는 전 시간에 만들었던 유효성 검사를 통하여 만들었던 데이터베이스를 입력항목별로 선택하여 붙

여넣기 매크로 및 셀 선택 매크로를 사용하여 새로 입력할 행을 삽입하는 매크로를 만들어 본다.

 

 

 

 

 

먼저 시트를 선택한 다음 우측마우스 버튼을 눌러 코드보기를 선택한다.

 

 

왼쪽 모듈을 선택 후 우측마우스 버튼을 눌러 모듈을 추가한다.

 

insertRows 프로시져를 만든 다음

 

 

r = ActiveCell.Row                                                       ' r을 선태된 행으로 지정
ActiveCell.EntireRow.Insert                                            ' 전체 행을 삽입

ActiveSheet.Range(Cells(r - 1, 1), Cells(r - 1, 12)).Copy  ' 이전행을 복사
ActiveSheet.Range(Cells(r, 1), Cells(r, 12)).PasteSpecial Paste:=xlPasteFormats

                                                                              '형식을 새로 삽입한 행에 붙어넣기

ActiveSheet.Range(Cells(r - 1, 6), Cells(r - 1, 6)).Copy    ' 이전행을 6열 복사
ActiveSheet.Range(Cells(r, 6), Cells(r, 6)).PasteSpecial Paste:=xlPasteFormulas '6열의 다음에 수식붙이기

ActiveSheet.Range(Cells(r, 4), Cells(r, 4)).Select              ' 4번셀 선택
Application.CutCopyMode = False  복사 붙여넣기 모드 종료

 

 

insert.txt

 

 

 

다음은 버튼을 만들어 볼텐데요... 개발도구에서 삽입을 누른다.

 

개발도구가 없는 경우는 도구 기능에서 개발기능을 삽입한다.

 

 

삽입을 누르면 아래와 같은 양식 컨트롤 창이 나타난다.

 

 

하기와 같이 버튼을 만들고 행삽입이라고 이름을 입력한다.

 

행삽입 버튼을 선택한다음 우측마우스 버튼을 눌러 매크로지정을 선택한다.

 

 

insertRows 매크로를 선택한다.

 

 

자 인제 위의 매크로를 기준으로 위의 9열을 선택한 다음 행삽입 버튼을 누르면

 

9열에 위에서 입력한 서식과 유효성검사 목록, 수식만 복사하여 새로운

 

데이터를 입력할 수 있게 된다.

 

자세한 내용은 아래 첨부된 엑셀파일을 다운받아 확인해 보시길....

 

 

다음 강좌는 SQL을 활용한 분석 데이터 집게에 대하여 강의을 포스팅 할 예정이다.

 

 

Q-분석_데이터베이스_2014.12.17.xlsm

 

 

불량율관리 프로그램 만들기 시리즈

 

1. 매크로의 이해

2. 절대참조와 상대참조

3. 조건절 if

4. 반복문 for - next

 

5. 조건문 select case

6. 데이터베이스의 구성

7. 유효성검사를 통한 입력 규칙만들기

8. 이중유효성검사 적용

 

9. 엑셀 데이터베이스 사용설정 적용하기

10. 분석툴 만들기

11. 데이터입력 행삽입 모듈만들기

12. 대용량 DB사용을 위한 SQL함수 알아보기

13. SQL 합수 프로그램에 적용하기