Nhãn hữu ích cho chúng ta theo nhiều cách. Bạn có thể tạo nhãn trong Excel với sự giúp đỡ của Microsoft Word. Nhưng, trong một số trường hợp, điều này có thể gây nhiều phiền toái và tốn thời gian. Vì vậy, bạn có thể muốn tạo nhãn trong Excel mà không cần Word. Bài viết này trình bày hướng dẫn từng bước về cách tạo nhãn trong Excel không dùng Word.
Bạn có thể tải xuống sổ làm việc thực hành từ liên kết bên dưới.
Nhãn là gì?
Nói chung, nhãn là một miếng dán hoặc mảnh giấy mô tả đối tượng hoặc sản phẩm nó được dính vào. Nhãn được dùng trong nhiều ứng dụng rộng rãi. Ví dụ, mọi người cần tạo nhãn địa chỉ để dán lên phong bì. Cũng như, chúng ta thấy nhãn dán trên phần cứng máy tính để nhận diện và biết thông số kỹ thuật.
4 bước tạo nhãn không cần Word trong Excel dùng VBA
Việc tạo nhãn trong Excel mà không cần Microsoft Word rất thuận tiện. Hơn nữa, nó tiết kiệm rất nhiều thời gian và công sức.
Giả sử bạn có tập dữ liệu với danh sách Địa chỉ bạn muốn gửi thiệp Giáng sinh. Lúc này, bạn muốn tạo nhãn cho các Địa chỉ này trong Excel không dùng Word. Trong trường hợp này, bạn có thể làm theo các bước dưới đây.
Bước 01: Sao chép dữ liệu sang trang tính mới trong Excel
- Trước tiên, sao chép địa chỉ trong cột và dán vào Trang tính mới (New Sheet) bắt đầu từ ô A1.
Bước 02: Mở cửa sổ VBA và tạo Module trong Excel
- Sau đó, nhấn ALT + F11 để mở cửa sổ VBA.
- Bây giờ, chọn trang tính bạn đang làm việc và Chuột phải (Right-Click) vào nó. Trong trường hợp này, là Sheet 2.
- Tiếp theo, lần lượt chọn Insert (Chèn) > Module.
Cuối cùng, các bước này sẽ mở cửa sổ VBA và chèn một Module mới vào trang tính của bạn.
Bước 03: Chèn mã vào Excel
- Lúc này, sao chép mã sau và dán vào ô trống.
'Mã này sẽ 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 = 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 
💡 Giải thích mã:
Ở giai đoạn này, tôi sẽ giải thích mã dùng ở trên. Như bạn thấy, mã có hai phần. Phần một chứa sub AskForColumn () gọi là Phần 01, phần hai chứa sub Createlabels() gọi là Phần 02. Tôi sẽ giải thích từng phần.
Phần 01:
Tôi đã chia mã thành các mục khác nhau và đánh số từng mục trong ảnh chụp màn hình sau. Do đó, tôi sẽ giải thích từng mục theo số thứ tự.
- Mục 1: Tạo sub tên AskForColumn.
- Mục 2: Khai báo các biến khác nhau.
- Mục 3: Đếm số hàng trong cột.
- Mục 4: Tạo InputBox để hỏi số cột mong muốn.
- Mục 5: Chạy vòng lặp For. Dùng từ khóa Step để lặp số lần nhập trong InputBox.
- Mục 6: Phân phối ô cột thành các hàng, cột khác nhau dùng Transpose và thuộc tính Resize.
- Mục 7: Xóa nội dung thừa.
Phần 02:
Tương tự, tôi chia mã thành các mục và đánh số trong ảnh chụp. Giải thích theo số thứ tự.
- Mục 1: Tạo sub tên Createlabels().
- Mục 2: Gọi sub AskForColumn() để chạy.
- Mục 3: Định dạng Định dạng ô (Cell Format) cho tất cả ô dùng thuộc tính Cells.
Bước 04: Chạy mã để tạo nhãn không cần Word trong Excel
- Bây giờ, nhấn F5 để chạy sub Createlabels ().
- Kết quả, hộp thoại xuất hiện trên màn hình như ảnh chụp dưới.
- Lúc này, nhập số cột bạn muốn cho nhãn.
- Sau đó, nhấn OK.
- Cuối cùng, bạn sẽ có nhãn được tạo như ảnh chụp dưới.
💡 Lưu ý:
- Phương pháp này chỉ hoạt động nếu dữ liệu ở một cột đơn.
- Sau khi tạo nhãn, bạn có thể thêm viền dùng tùy chọn All Borders (Tất cả viền) trong tab Home (Trang chủ).
- Cũng đảm bảo bạn chạy sub Createlabels(). Nếu chạy sub AskForColumn () bạn sẽ không được kết quả mong muốn.
- Hơn nữa, không nhập gì ngoài địa chỉ ở cột A.
Đọc thêm: Cách tạo nhãn trong Word từ danh sách Excel (Hướng dẫn từng bước)
Cách in nhãn trong Excel không cần Word
Sau khi tạo nhãn bằng các bước trên, bạn có thể muốn in nhãn. Nếu muốn, hãy làm theo các bước dưới đây.
Các bước:
- Trước tiên, vào tab Page Layout (Bố cục trang) từ đầu trang.
- Tiếp theo, nhấp nút Page Setup (Thiết lập trang).
- Sau đó, vào Margins (Lề).
- Bây giờ, chỉnh Top (Trên) và Bottom (Dưới) thành 0.5 và Left (Trái) và Right (Phải) thành 0.215.
- Kết quả, nhấn OK.
- Bây giờ, nhấn CTRL + P để mở menu Print (In).
- Lúc này, nhấp vào No Scaling (Không co giãn) và 4 tùy chọn sẽ hiện ra.
- Tiếp theo, từ các tùy chọn chọn Fit All Columns on One Page (Vừa tất cả cột trên một trang).
- Cuối cùng, bạn đã sẵn sàng in.
- Trong trường hợp này, xem trước in sẽ như ảnh chụp dưới.
Đọc thêm: Cách Mail Merge nhãn từ Excel sang Word (Với các bước dễ dàng)
Kết luận
Cuối cùng, hy vọng bạn tìm thấy thứ mình cần từ bài viết này. Nếu có thắc mắc, hãy để bình luận bên dưới. Nếu muốn đọc thêm bài viết tương tự, truy cập trang web ExcelDemy.
Bài viết liên quan
- Cách in nhãn địa chỉ trong Excel (2 cách nhanh)
- Cách tạo nhãn thư từ trong Excel (với các bước dễ dàng)
- Cách hợp nhất file Excel vào nhãn thư từ (Với các bước dễ dàng)
- Cách in nhãn Avery từ Excel (2 phương pháp đơn giản)