불친절한자수씨

엑셀로 테이블 데이터를 작성하는 경우가 많은데, 간단한 사용자 함수를 정의하면 INSERT 쿼리를 생성할 수 있습니다.

아래와 같이 USERS 테이블에 다음과 같은 데이터를 INSERT 할 예정입니다.

사용자 정의함수 만들기

"Alt + F11" 을 누르면 Microsoft Visual Basic for Applications 라는 프로그램이 뜨게 됩니다.

다음과 같이 "삽입 > 모듈" 을 선택하여 새로운 모듈을 생성합니다.


새로운 모듈에 아래와 같이 함수를 추가합니다.
Function CREATE_QUERY(테이블명, 컬럼범위, 데이터범위) Dim colTemp() As String Dim valTemp() As String Dim rng As Range Dim i As Integer For Each rng In 컬럼범위 ReDim Preserve colTemp(i) colTemp(i) = rng.Value i = i + 1 Next rng i = 0 For Each rng In 데이터범위 ReDim Preserve valTemp(i) valTemp(i) = rng.Value i = i + 1 Next rng CREATE_QUERY = "INSERT INTO " & 테이블명 & "(" & Join(colTemp, ", ") & ") VALUES ('" & Join(valTemp, "', '") & "')" End Function

해당 모듈을 저장하면 사용자 정의 함수 생성이 완료됩니다.

적용해보기

특정 셀을 선택한 후 새로 생성한 함수를 이용하여 수식을 작성합니다.


테이블 명과 컬럼 명 셀에 '$' 를 붙이는 이유는 다른 셀에도 적용 시에 row 쪽은 고정시키기 위해 사용합니다.




수식을 입력하고 엔터를 누르면!!! 쿼리가 나옵니다. 다른 행도 적용시키기 위해 아래로 쭉 끌면~


쿼리가 완성됩니다.



엑셀에서 주어진 함수만으로 만들어보려고 했는데... 잘 안되서 사용자 정의 함수까지 건들게 되네요 -ㅁ-...

어떤 내용을 취합하다보면 특정 속성 (처리사항) 에 대해서 시각적으로 보고 싶을 때가 있습니다.
이럴 때 "조건부 서식" 을 이용하면 됩니다.


아래와 같은 요구사항 정의서가 있습니다. 처리사항에 따라서 해당 행에 시각적 효과를 주려고 합니다.



제목행을 제외한 나머지 영역을 설정한 후, "조건부 서식" 에서 "새 규칙" 을 선택합니다.



규칙 유형은 "수식을 사용하여 서식을 지정할 셀 결정" 을 선택하고
서식 지정은 "=EXACT($E2,"완료")"
원하는 서식은 서식 버튼을 클릭하여 지정합니다.

EXACT 함수는 파라미터1, 2 가 동일할 때 TRUE 를 반환하는 함수 입니다. 영역을 "$E2" 로 주는 이유는 E2 셀의 값을 비교하며, "$" 는 행 지정을 의미합니다.(하는 것 같습니다;;;)




확인을 누르게 되면 아래와 같이 E열이 "완료" 인 경우 배경색이 회색으로 바뀌게 됩니다.




여러가지 서식을 추가해보았습니다.




여러가지 서식이 적용된 결과 입니다.




이 중에서 "진행중" 인 것을 "완료" 로 고치면~


자동으로 바뀌게 됩니다.




이상입니다.