레이블은 우리 생활에서 다양하게 활용되는 유용한 도구입니다. 보통은 Microsoft Word의 도움을 받아 Excel 데이터로 레이블을 만들지만, 경우에 따라 이 과정이 번거롭고 시간이 많이 걸릴 수 있습니다. 그래서 Word 없이 Excel만으로 레이블을 만들고 싶어지는 것이죠. 이 글에서는 VBA를 활용해 Word 없이 Excel에서 레이블을 만드는 방법을 단계별로 자세히 안내해 드립니다.
레이블이란 무엇일까요?
일반적으로 레이블(label)은 물건이나 제품에 부착하여 내용을 설명하는 스티커 또는 종이 조각을 의미합니다. 레이블은 매우 폭넓게 사용되는데, 예를 들어 편지 봉투에 붙이기 위해 주소 레이블을 만들거나, 컴퓨터 하드웨어 부품에 사양을 확인할 수 있도록 레이블을 붙여 관리하기도 합니다.
VBA로 Word 없이 Excel에서 레이블 만들기: 4단계
Microsoft Word의 도움 없이 Excel만으로 레이블을 만들면 훨씬 편리할 뿐만 아니라 시간과 수고도 크게 절약할 수 있습니다.
예를 들어 크리스마스 카드를 보낼 주소 목록이 담긴 데이터셋이 있다고 가정해 보겠습니다. Word를 사용하지 않고 Excel에서 이 주소들로 레이블을 만들고 싶다면, 아래 단계를 순서대로 따라 해보세요.
1단계: 데이터를 새 시트로 복사
- 먼저 열에 정리된 주소 데이터를 복사한 뒤, 새 시트(New Sheet)의 A1 셀부터 시작해서 붙여넣습니다.
2단계: VBA 창을 열고 모듈 생성
- ALT + F11 키를 눌러 VBA 창을 엽니다.
- 현재 작업 중인 시트(예: Sheet 2)를 선택하고 마우스 오른쪽 버튼으로 클릭합니다.
- 이어서 삽입(Insert) > 모듈(Module)을 차례대로 선택합니다.
이 과정을 마치면 VBA 창이 열리고 새로운 모듈이 삽입됩니다.
3단계: 코드 입력
- 아래 코드를 복사하여 빈 모듈 창에 붙여넣습니다.
'This Code Will Create Labels in Excel
Sub Createlabels()
Application.Run "AskForColumn"
Cells.Select
Selection.RowHeight = 75.75
Selection.ColumnWidth = 34.14
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
Sub AskForColumn()
Dim refrg As Range
Dim vrb As Long
Dim dat As Long
Set refrg = Cells(Rows.Count, 1).End(xlUp)
dat = 1
On Error Resume Next
incolno = InputBox("Enter Number of Columns Desired")
For vrb = 1 To refrg.Row Step incolno
Cells(dat, "A").Resize(1, incolno).Value = _
Application.Transpose(Cells(vrb, "A").Resize(incolno, 1))
dat = dat + 1
Next
Range(Cells(dat, "A"), Cells(refrg.Row, "A")).ClearContents
End Sub
💡 코드 설명:
위에서 사용된 코드는 두 부분으로 구성되어 있습니다. 하나는 AskForColumn() 서브 프로시저(Part 01), 다른 하나는 Createlabels() 서브 프로시저(Part 02)입니다. 각 부분을 나누어 살펴보겠습니다.
Part 01:
코드를 여러 섹션으로 나누고 번호를 매겼습니다. 번호별로 각 섹션이 어떤 역할을 하는지 설명합니다.
- 섹션 1: AskForColumn이라는 이름의 서브 프로시저를 생성합니다.
- 섹션 2: 다양한 변수를 선언하는 부분입니다.
- 섹션 3: 열의 행 개수를 계산합니다.
- 섹션 4: 원하는 열 개수를 입력받기 위한 InputBox(입력 상자)를 생성합니다.
- 섹션 5: For 루프를 실행하며, Step 키워드를 사용해 InputBox에 입력한 횟수만큼 반복합니다.
- 섹션 6: Transpose 메서드와 Resize 속성을 활용해 한 열에 있던 셀들을 여러 행과 열로 재배치합니다.
- 섹션 7: 마지막으로 남는 불필요한 내용을 삭제합니다.
Part 02:
이 부분 역시 섹션별로 나누어 번호를 매겼습니다. 번호에 따라 각각 설명합니다.
- 섹션 1: Createlabels()라는 이름의 서브 프로시저를 생성합니다.
- 섹션 2: AskForColumn() 서브 프로시저를 호출하여 실행합니다.
- 섹션 3: Cells 속성을 사용해 모든 셀의 셀 서식(Cell Format)을 지정합니다.
4단계: 코드 실행으로 레이블 만들기
- F5 키를 눌러 Createlabels() 서브 프로시저를 실행합니다.
- 그러면 아래 스크린샷과 같은 입력 상자가 화면에 나타납니다.
- 원하는 열 개수를 입력합니다.
- 확인(OK) 버튼을 클릭합니다.
- 이제 아래 스크린샷처럼 레이블이 완성됩니다.
💡 참고 사항:
- 이 방법은 데이터가 한 개의 열에만 정리되어 있을 때 작동합니다.
- 레이블 생성 후에는 홈 탭의 모든 테두리 옵션으로 테두리를 추가할 수 있습니다.
- 반드시 Createlabels() 서브 프로시저를 실행해야 합니다. 만약 AskForColumn()만 실행하면 원하는 결과를 얻을 수 없습니다.
- 또한 A열에는 주소 외의 데이터를 입력하지 않도록 주의하세요.
함께 읽으면 좋은 글: Excel 목록으로 Word에서 레이블 만들기(단계별 가이드)
Word 없이 Excel에서 레이블 인쇄하는 방법
위 단계를 통해 레이블을 만들었다면, 이제 인쇄를 해야 할 차례입니다. 인쇄하려면 아래 단계를 따르세요.
인쇄 단계:
- 먼저 상단 메뉴에서 페이지 레이아웃(Page Layout) 탭으로 이동합니다.
- 다음으로 페이지 설정(Page Setup) 버튼을 클릭합니다.
- 여백(Margins) 항목으로 이동합니다.
- 위쪽(Top)과 아래쪽(Bottom) 여백을 0.5로, 왼쪽(Left)과 오른쪽(Right) 여백을 0.215로 수정합니다.
- 그런 다음 확인(OK)을 클릭합니다.
- CTRL + P 키를 눌러 인쇄(Print) 메뉴를 엽니다.
- 배율 조정 없음(No Scaling)을 클릭하면 4가지 옵션이 나타납니다.
- 그중에서 모든 열을 한 페이지에 맞춤(Fit All Columns on One Page)을 선택합니다.
- 이제 인쇄할 준비가 완료되었습니다.
- 이때 인쇄 미리보기는 아래 스크린샷과 같이 표시됩니다.
함께 읽으면 좋은 글: Excel에서 Word로 우편 레이블 메일 병합하기(쉬운 단계)
마무리
이 글이 찾으시던 정보를 얻는 데 도움이 되었기를 바랍니다. 궁금한 점이 있다면 아래 댓글로 남겨주세요. 또한 이와 같은 유용한 글을 더 보고 싶다면 저희 웹사이트 ExcelDemy를 방문해 보세요.
관련 글
- Excel에서 주소 레이블 인쇄하는 방법(2가지 빠른 방법)
- Excel에서 우편 레이블 만들기(쉬운 단계)
- Excel 파일을 우편 레이블로 병합하는 방법(쉬운 단계)
- Excel에서 Avery 레이블 인쇄하기(2가지 간단한 방법)