Computer >> Hướng Dẫn Máy Tính >  >> Phần Mềm >> Office

In nhãn trực tiếp từ Excel – Không cần Word

Quy trình in nhãn thông thường từ Excel liên quan mail merge với Word. Nhưng nhiều người muốn làm hết trong Excel. May mắn thay, có cách in nhãn trong Excel không cần Word. Hướng dẫn tập trung vào cách thực hiện.

Cách in nhãn trong Excel không dùng Word: Quy trình từng bước

Để in nhãn trực tiếp từ Excel không dùng Word, chỉ cần in spreadsheet với kích thước nhãn phù hợp. Có thể điều chỉnh kích thước ô cho vừa nhãn. Sẽ dùng code VBA thực hiện.

Giả sử có bộ dữ liệu sau:

In nhãn trực tiếp từ Excel – Không cần Word

Sẽ chuyển từng dữ liệu thành nhãn rồi in trong Excel không dùng Word.

Để dùng VBA trong Excel, cần tab Developer trên Ribbon. Xem cách hiện tab Developer. Khi đã có, làm theo các bước in nhãn không dùng Word.

Bước 1: Copy dữ liệu sang sheet mới

Code VBA ở đây chỉ chạy đúng nếu dữ liệu bắt đầu từ ô A1. Vậy phải sắp xếp dữ liệu nhãn bắt đầu từ A1. Nếu dữ liệu bắt đầu ở chỗ khác (như ví dụ ở B5), copy sang sheet mới đặt ngay từ đầu. Trông như sau:

In nhãn trực tiếp từ Excel – Không cần Word

Giờ sẵn sàng chạy code VBA.

Bước 2: Chèn code VBA

Tiếp theo, chèn code VBA điều chỉnh nhãn kích thước, hình dáng mong muốn. Chèn code VBA:

  • Tab Developer > Visual Basic nhóm Code.

In nhãn trực tiếp từ Excel – Không cần Word

  • Cửa sổ VBA mở. Chọn tab Insert > Module.

In nhãn trực tiếp từ Excel – Không cần Word

  • Vào module, viết code sau:
'Code này tạo nhãn trong Excel Sub Createlabels() Application.Run "AskForColumn" Cells.Select Selection.RowHeight = 75.75 Selection.ColumnWidth = 34.14 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .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

🔎 Giải thích code

Code có 2 phần (Sub): CreateLabels và AskForColumn. Giải thích AskForColumn trước, rồi CreateLabels.

Phần 1:

Chia thành các section để hiểu dễ. Xem hình cuối phần.

👉 Section 1: Khai báo tên Sub AskForColumn.

👉 Section 2: Khai báo 3 biến: refrg, vrb, dat.

👉 Section 3: Gán giá trị cho refrg và dat.

👉 Section 4: Hiện hộp InputBox trên spreadsheet.

👉 Section 5: Vòng lặp For chạy theo số nhập InputBox.

👉 Section 6: Section này resize ô.

👉 Section 7: Cuối cùng, xóa nội dung thừa.

In nhãn trực tiếp từ Excel – Không cần Word

Phần 2:

Tương tự chia section. Theo dõi hình cuối phần.

👉 Section 1: Khai báo Sub Createlabels.

👉 Section 2: Chạy Sub trước tại điểm này.

👉 Section 3: Định dạng từng ô dùng thuộc tính VBA Cells.

In nhãn trực tiếp từ Excel – Không cần Word

Bước 3: Chạy code VBA

Sau khi nhập code, đóng cửa sổ VBA. Chạy code theo bước:

  • Tab Developer > Macros nhóm Code.

In nhãn trực tiếp từ Excel – Không cần Word

  • Hộp Macro, chọn Createlabels dưới Macro name.

In nhãn trực tiếp từ Excel – Không cần Word

  • Nhấp Run.
  • Chọn số cột mong muốn. Demo chọn 3 > OK.

In nhãn trực tiếp từ Excel – Không cần Word

Spreadsheet tự động biến thành:

In nhãn trực tiếp từ Excel – Không cần Word

Nhãn sẵn sàng in trong Excel không dùng Word.

Đọc thêm: Cách in nhãn Avery từ Excel

Bước 4: Thiết lập lề tùy chỉnh (Custom Margins)

Để in nhãn, cần lề trang in phù hợp. Chọn kích thước sao không ảnh hưởng vị trí nhãn hoặc cắt nhãn. Thiết lập lề tùy chỉnh:

  • Tab Page Layout > nút Page Setup (góc dưới phải mỗi nhóm).

In nhãn trực tiếp từ Excel – Không cần Word

  • Hộp Page Setup hiện. Tab Margins.
  • Chọn độ dài lề mong muốn. Chọn như sau.

In nhãn trực tiếp từ Excel – Không cần Word

  • Xong, nhấp OK.

Bước 5: Chọn tùy chọn Scale (Tỷ lệ) cho in

Tỷ lệ quan trọng cho in nhãn. Ví dụ, làm đến đây in ra như sau:

In nhãn trực tiếp từ Excel – Không cần Word

Không phải mục tiêu. Cần fit sheet trên 1 trang. Làm:

  • Nhấn Ctrl+P vào Print Preview.
  • Góc dưới trái, Settings. Dưới cùng, tùy chọn Scaling.

In nhãn trực tiếp từ Excel – Không cần Word

  • Nhấp Scaling > chọn Fit Sheet on One Page.

In nhãn trực tiếp từ Excel – Không cần Word

Tỷ lệ in nhãn hoàn tất.

Đọc thêm: Cách in nhãn địa chỉ trong Excel

Bước 6: In spreadsheet

Vẫn ở Print Preview, nhấp Print góc trên trái.

In nhãn trực tiếp từ Excel – Không cần Word

Nhấp in, tất cả nhãn in ra không dùng Word.

In nhãn trực tiếp từ Excel – Không cần Word

Lưu ý quan trọng

👉 Trước khi chạy VBA, đảm bảo tất cả nhãn bắt đầu từ ô A1.

👉 Chọn lề và tỷ lệ phù hợp trước in để nhãn vừa trang. Ngược lại một số bị cắt.

👉 Hành động VBA không thể hoàn tác. Hãy backup dữ liệu cần thiết trước khi chạy.

Tải file thực hành

File chứa nhãn có thể in.

Kết luận

Đây là các bước in nhãn trong Excel không dùng hay mail merge Word. Hy vọng bạn hiện có thể in nhãn không cần Word. Mong hướng dẫn hữu ích. Thắc mắc, góp ý hãy comment.

Để thêm hướng dẫn tương tự, truy cập Exceldemy.

Bài viết liên quan

  • Cách in nhãn từ Excel trong Word
  • Cách in nhãn Avery 5160 từ Excel
  • Cách in nhãn Avery 8160 từ Excel

<< Quay lại: In nhãn trong Excel | Nhãn thư trong Excel | Mail Merge Excel | Học Excel

Nhận miễn phí bài tập Excel nâng cao có lời giải!