'매크로' 태그의 글 목록

매크로

2021. 1. 9. 21:06

본 내용은 Excel 2019 버전 기준으로 작성되었습니다.

특정 열에는 목차가 작성되고, 연속된 열에서 목차의 내용이 들어가는 경우에

목차의 내용에 따른 들여 쓰기 여백을 계산하는 매크로 프로그램

주의사항 1 : 현재 활성화된 시트에서 동작하며, 목차와 목차 내용은 연달에 있어야 합니다.

주의사항 2 : 목차는 점(.)으로 입력되어 있어야 합니다.

매크로 프로그램 실행방법

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