본 내용은 Excel 2019 버전 기준으로 작성되었습니다.
특정 열에는 목차가 작성되고, 연속된 열에서 목차의 내용이 들어가는 경우에
목차의 내용에 따른 들여 쓰기 여백을 계산하는 매크로 프로그램
주의사항 1 : 현재 활성화된 시트에서 동작하며, 목차와 목차 내용은 연달에 있어야 합니다.
주의사항 2 : 목차는 점(.)으로 입력되어 있어야 합니다.
| A | B | C | D |
| 1 | 제목 | ||
| 1.1 | 부제목 | ||
| 1.1.1 | 내용 | ||
| 2 | 제목 | ||
| 2.1 | 부제목 |
매크로 프로그램 실행방법
0. 파일 > 옵션 > 리본 사용자 지정 > 게발도구(선택) > 확인
1. 개발도구 > 매크로(선택)
2. 매크로 이름에 Indent 입력 후, 만들기 선택
3. 아래 내용 복사, 붙여 넣기
4. 엑셀 > 개발도구 > 매크로 > Indent > 실행(선택)
|
Public Sub Indent() Dim cellRange As Range Dim count, duplicationCheck Dim init, spaceCount
Dim inputCell, outoutCell, valueCell
'입력된 컬럼 정보 '컬럼은 순차적으로 붙여서 사용되어야 합니다. ex) A,B or B,C or C,D inputCell = "B" outputCell = "C"
init = 4 '공백 기준은 4칸
For Each cellRange In ActiveSheet.UsedRange.Columns(1).Cells
count = Len(cellRange.Value) - Len(WorksheetFunction.Substitute(cellRange.Value, ".", "")) duplicationCheck = Len(Trim(cellRange.Offset(0, 1).Text)) - Len(WorksheetFunction.Substitute(cellRange.Offset(0, 1).Text, " ", 1))
If (count > 0 And duplicationCheck >= 0) Then spaceCount = init * count cellRange.Offset(0, 1).NumberFormat = "@" cellRange.Offset(0, 1).Value = Space(spaceCount) + cellRange.Offset(0, 1).Text End If Next cellRange
End Sub |
'문서' 카테고리의 다른 글
| [MS Word] 표안에서 다단계 목록 수준 변경 (0) | 2016.10.28 |
|---|---|
| [MS Excel 2013] 꺾은선형 차트에서 특정 Data 강조 (0) | 2016.06.29 |
| [MS WORD 2013] 그림 글자처럼 취급하기 (0) | 2016.02.01 |
| [Excel] 엑셀 새창에서 열기 (0) | 2011.12.06 |
| [Excel] 엑셀 시트 통합 매크로 (0) | 2010.08.03 |
