■ 엑셀에서 특정 영역 셀을 조작하는 방법을 보여준다.
1. 엑셀 시트 데이터가 아래와 같이 있다.
▶ 데이터
|
1 2 3 4 5 6 7 8 9 10 |
─────────────────────── A B C D ─ ─── ─────── ───── ─── 1 성명 주민등록번호 이미지 수 파일명 2 강남구 7101012222222 3 3 강동구 8101013333333 2 4 관악구 9101014444444 1 ─────────────────────── |
2. 작업 실행 후 "파일명" 항목 데이터를 아래와 같이 생성하고자 한다.
▶ 데이터
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
──────────────────────────── A B C D ─ ─── ─────── ───── ──────── 1 성명 주민등록번호 이미지 수 파일명 2 강남구 7101012222222 3 7101012222222_01 7101012222222_02 7101012222222_03 3 강동구 8101013333333 2 8101013333333_01 8101013333333_02 4 관악구 9101014444444 1 9101014444444_01 ──────────────────────────── |
3. "도구(T)/매크로(M)/Visual Basic Editor(V)" 메뉴를 클릭하고 비주얼 베이직 에디터에 모듈을 추가하고 아래 코드를 추가한다.
▶ 예제 코드
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
Sub 주민등록번로리스트생성하기() Dim 주민등록번호 As String Dim 이미지수 As Integer With Selection If .Cells.Count < 3 Then MsgBox "3개 컬럼으로 구성된 범위를 선택해 주시기 바랍니다.", 64, "확인" Exit Sub End If For 행 = 1 To .Rows.Count 주민등록번호 = CStr(.Cells(행, 1)) 이미지수 = CInt(.Cells(행, 2)) .Cells(행, 3) = 주민등록번호리스트구하기(주민등록번호, 이미지수) Next 행 End With End Sub Function 주민등록번호리스트구하기(주민등록번호 As String, 이미지수 As Integer) Dim 주민등록번호리스트 As String For I = 1 To 이미지수 주민등록번호리스트 = 주민등록번호리스트 & 주민등록번호 & "_" & Right("00" & I, 2) If I < 이미지수 Then 주민등록번호리스트 = 주민등록번호리스트 & Chr(10) End If Next 주민등록번호리스트구하기 = 주민등록번호리스트 End Function |
4. 엑셀 시트에서 아래와 같이 범위를 선택한다.
5. "도구(T)/매크로(M)/매크로(M)" 메뉴를 클릭해 매크로 대화 상자에서 해당 함수를 실행한다.