레이블은 여러 면에서 우리에게 유용합니다. Microsoft Word를 사용하여 Excel에서 레이블을 만들 수 있습니다. 그러나 어떤 경우에는 많은 번거로움과 시간이 소요될 수 있습니다. 따라서 Word 없이 Excel에서 레이블을 만들 수 있습니다. 이 문서에서는 Word 없이 Excel에서 레이블을 만드는 방법에 대한 단계별 가이드를 보여줍니다.
아래 링크에서 연습용 워크북을 다운로드할 수 있습니다.
라벨이란 무엇입니까?
일반적으로 라벨은 부착된 대상 또는 제품을 설명하는 스티커 또는 종이입니다. 라벨은 다양한 응용 분야에서 사용됩니다. 예를 들어, 사람들은 봉투에 첨부할 수 있도록 주소에 대한 레이블을 만들어야 합니다. 또한 컴퓨터의 하드웨어에 부착된 레이블을 볼 수 있으므로 하드웨어를 식별하고 사양을 알 수 있습니다.
VBA를 사용하여 Excel에서 Word 없이 레이블을 만드는 4단계
Microsoft Word의 도움 없이 Excel에서 레이블을 만드는 것은 매우 편리합니다. . 게다가 시간과 번거로움을 많이 줄여줍니다.
이제 주소 목록이 있는 데이터세트가 있다고 가정해 보겠습니다. 크리스마스 카드를 보내고 싶습니다. 이 시점에서 이 주소에 대한 레이블을 만들려고 합니다. Word를 사용하지 않고 Excel에서 이 경우 아래 단계에 따라 수행할 수 있습니다.
01단계 :Excel의 새 시트에 데이터 복사
- 먼저 열의 주소를 복사하여 새 시트에 붙여넣습니다. A1 셀에서 시작 .
02단계 :VBA 창을 열고 Excel에서 모듈 만들기
- 그런 다음 ALT + F11 을 누릅니다. VBA 열기 창.
- 이제 현재 작업 중인 시트를 선택하고 오른쪽 클릭 그 위에. 이 경우 시트 2입니다. .
- 다음으로 순차적으로 삽입을 선택합니다.> 모듈 .
결국 이러한 일련의 단계는 VBA를 엽니다. 창을 열고 새 모듈 삽입 시트에 있습니다.
03단계 :Excel에 코드 삽입
- 이 시점에서 다음 코드를 복사하여 빈 상자에 붙여넣습니다.
'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() 이 포함됩니다. 이를 파트 01이라고 합니다. , 그리고 다른 하나는 하위 Createlabels() 를 포함합니다. 이를 파트 02라고 합니다. . 이제 이 두 부분을 하나씩 설명하겠습니다.
01부 :
이 시점에서 코드를 여러 섹션으로 나누고 다음 스크린샷에서 각 섹션에 번호를 매겼습니다. 따라서 여기서는 번호에 따라 각 섹션을 설명하겠습니다.
- 섹션 1: 이 섹션은 AskForColumn이라는 하위 항목을 만듭니다. .
- 섹션 2: 여기에서 다양한 변수를 선언합니다.
- 섹션 3: 이 섹션에서는 열의 행 수를 계산합니다.
- 섹션 4: 이제 여기에서 InputBox를 만듭니다. 열 수를 요청합니다.
- 섹션 5: 이 섹션에서는 For를 실행합니다. 고리. 또한 단계 를 사용합니다. InputBox에 넣은 횟수만큼 루프를 실행하는 키워드 .
- 섹션 6 :이 단계에서 이 섹션을 사용하여 Transpose 애플리케이션을 사용하여 열의 셀을 다른 행과 열로 분배합니다. 및 속성 크기 조정 .
- 섹션 7: 마지막으로 이 섹션의 추가 내용을 삭제합니다.
2부 :
이 경우에도 코드를 다른 섹션으로 나누고 다음 스크린샷에서 각 섹션에 번호를 매겼습니다. 따라서 여기서는 번호에 따라 각 섹션을 설명하겠습니다.
- 섹션 1: 이 섹션은 Createlabels()라는 하위 항목을 만듭니다. .
- 섹션 2: 이 섹션에서는 태양을 AskForColumn() 이라고 부릅니다. 실행합니다.
- 섹션 3: 이 시점에서 이 섹션은 셀 형식 을 정의합니다. 셀을 사용하는 모든 셀에 대해 재산.
04단계 :Excel에서 Word 없이 레이블을 만드는 코드 실행
- 이제 F5 키를 누릅니다. 하위 Createlabels() 실행 .
- 결과적으로 아래 스크린샷과 같은 상자가 화면에 나타납니다.
- 이 시점에서 라벨을 삽입할 열 수를 삽입하세요.
- 그런 다음 확인을 클릭합니다. .
- 마침내 아래 스크린샷과 같이 라벨이 생성됩니다.
💡 참고 :
- 이 방법은 데이터가 단일 열에 있는 경우에만 작동합니다.
- 라벨을 만든 후 모든 테두리를 사용하여 테두리를 추가할 수 있습니다. 홈 의 옵션 탭.
- 또한 하위 Createlabels()를 실행해야 합니다. . 이 때 서브를 실행하면 AskForColumn() 원하는 결과를 얻지 못할 것입니다.
- 또한 A 열의 주소 외에는 아무 것도 입력하지 마십시오. .
자세히 알아보기: Excel 목록에서 Word의 레이블을 만드는 방법(단계별 지침)
Word 없이 Excel에서 레이블을 인쇄하는 방법
위에서 언급한 단계를 사용하여 라벨을 만든 후 이제 라벨을 인쇄할 수 있습니다. . 이제 그렇게 하려면 아래 단계를 따르세요.
단계 :
- 먼저 페이지 레이아웃 으로 이동합니다. 탭을 탭하세요.
- 다음으로 페이지 설정 을 클릭하십시오. 버튼.
- 그 후 여백으로 이동합니다. .
- 이제 상단 을 수정합니다. 및 하단 여백을 0.5로 그런 다음 왼쪽 및 오른쪽 여백을 0.215로 .
- 결과적으로 확인을 클릭합니다. .
- 이제 CTRL + P 를 누르십시오. 인쇄 열기 메뉴.
- 이 시점에서 크기 조정 없음 을 클릭합니다. 4가지 옵션이 표시됩니다.
- 다음으로 해당 옵션에서 모든 열을 한 페이지에 맞춤을 선택합니다. .
- 드디어 인쇄할 준비가 되었습니다.
- 이 경우 인쇄 미리보기는 아래 스크린샷과 같습니다.
자세히 알아보기: Excel에서 Word로 레이블을 편지 병합하는 방법(간단한 단계 사용)
결론
마지막으로 이 기사에서 원하는 것을 찾으셨기를 바랍니다. 질문이 있으시면 아래에 댓글을 남겨주세요. 또한 이와 같은 기사를 더 읽고 싶다면 ExcelDemy 웹사이트를 방문하세요. .
관련 기사
- Excel에서 주소 레이블을 인쇄하는 방법(2가지 빠른 방법)
- Excel에서 우편물 레이블을 만드는 방법(간단한 단계 사용)
- Excel 파일을 우편물 레이블에 병합하는 방법(간단한 단계 사용)
- Excel에서 Avery 라벨을 인쇄하는 방법(2가지 간단한 방법)