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ự trợ giúp của Microsoft Word. Tuy nhiên, trong một số trường hợp, điều này có thể rất phức tạp 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 mà không cần Word.
Bạn có thể tải xuống sách bài tập 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 nhãn dán hoặc một mảnh giấy mô tả đối tượng hoặc sản phẩm mà nó được gắn vào. Nhãn được sử dụng trong nhiều mảng ứng dụng. Ví dụ, mọi người cần tạo nhãn cho địa chỉ để có thể đính kèm chúng vào phong bì. Ngoài ra, chúng tôi có thể thấy các nhãn được gắn vào phần cứng trong máy tính của mình để chúng tôi có thể xác định chúng và biết về thông số kỹ thuật của chúng.
4 bước để tạo nhãn mà không cần Word trong Excel bằng VBA
Rất thuận tiện để tạo nhãn trong Excel mà không cần sự trợ giúp của Microsoft Word . Hơn nữa, nó tiết kiệm rất nhiều thời gian và không phức tạp.
Bây giờ, 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 của bạn. Tại thời điểm này, bạn muốn tạo nhãn cho các Địa chỉ này trong Excel mà không cần sử dụng Word. Trong trường hợp này, bạn có thể làm theo các bước dưới đây để thực hiện.
Bước 01 :Sao chép dữ liệu sang một trang tính mới trong Excel
- Đầu tiên, sao chép địa chỉ trong cột và dán chúng vào Trang tính mới bắt đầu từ ô A1 .
Bước 02 :Mở cửa sổ VBA và tạo mô-đun trong Excel
- Sau đó, nhấn ALT + F11 để mở VBA cửa sổ.
- Bây giờ, chọn trang tính bạn hiện đang làm việc và Nhấp chuột phải trên đó. Trong trường hợp này, đó là Trang tính 2 .
- Tiếp theo, chọn tuần tự Chèn > Mô-đun .
Cuối cùng, tập hợp các bước này sẽ mở VBA cửa sổ và chèn một Mô-đun mới trong trang tính của bạn.
Bước 03 :Chèn mã trong Excel
- Tại thời điểm này, hãy sao chép mã sau và dán vào ô trống.
'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
💡 Giải thích mã:
Ở giai đoạn này, tôi sẽ giải thích mã được sử dụng ở trên. Như bạn có thể thấy, có hai phần của mã này. Một phần chứa phụ AskForColumn () sẽ được gọi là Phần 01 và cái kia chứa phụ Createlabels () sẽ được gọi là Phần 02 . Bây giờ, tôi sẽ giải thích từng phần một.
Phần 01 :
Tại thời điểm này, tôi đã chia mã thành các phần khác nhau và đánh số từng phần trong ảnh chụp màn hình sau. Do đó, ở đây tôi sẽ giải thích từng phần theo số lượng của chúng.
- Phần 1: Phần này tạo một phụ có tên AskForColumn .
- Phần 2: Ở đây, chúng tôi khai báo các biến khác nhau.
- Phần 3: Trong phần này, chúng tôi đếm số hàng trong cột.
- Phần 4: Bây giờ, ở đây chúng tôi tạo InputBox để yêu cầu số lượng cột.
- Phần 5: Trong phần này, chúng tôi chạy Đối với vòng. Ngoài ra, chúng tôi sử dụng Bước từ khóa để chạy vòng lặp với số lần chúng tôi đặt trong InputBox .
- Phần 6 :Ở giai đoạn này, ở đây chúng tôi sử dụng phần này để phân phối ô của cột thành các hàng và cột khác nhau bằng cách sử dụng ứng dụng Transpose và thuộc tính Thay đổi kích thước .
- Phần 7: Cuối cùng, chúng tôi xóa các nội dung thừa trong phần này.
Phần 02 :
Ngoài ra, trong trường hợp này, tôi đã chia mã thành các phần khác nhau và đánh số từng phần trong ảnh chụp màn hình sau. Do đó, ở đây tôi sẽ giải thích từng phần theo số lượng của chúng.
- Phần 1: Phần này tạo một phụ có tên Createlabels () .
- Phần 2: Trong phần này, chúng tôi gọi mặt trời là AskForColumn () để chạy.
- Phần 3: Tại thời điểm này, phần này xác định Định dạng ô cho tất cả các ô bằng cách sử dụng Ô tài sản.
Bước 04 :Chạy mã để tạo nhãn mà không cần Word trong Excel
- Bây giờ, nhấn F5 để chạy phụ Createlabels () .
- Do đó, bạn sẽ thấy một hộp xuất hiện trên màn hình của mình giống như ảnh chụp màn hình bên dưới.
- Tại thời điểm này, hãy chèn số cột bạn muốn gắn nhãn của mình vào.
- Sau đó, nhấp vào OK .
- Cuối cùng, bạn sẽ có các nhãn của mình được tạo giống như ảnh chụp màn hình bên dưới.
💡 Ghi chú :
- Phương pháp này sẽ chỉ hoạt động nếu bạn có dữ liệu của mình trong một cột.
- Sau khi tạo nhãn, bạn có thể thêm đường viền bằng cách sử dụng Tất cả đường viền các tùy chọn trong Trang chủ tab.
- Ngoài ra, hãy đảm bảo bạn chạy Createlabels () phụ . Trong trường hợp này, nếu bạn chạy phụ, AskForColumn () bạn sẽ không nhận được kết quả mong muốn.
- Ngoài ra, không nhập bất kỳ điều gì khác ngoài địa chỉ trong 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 mà không cần Word
Sau khi tạo nhãn bằng các bước nêu trên, bây giờ bạn có thể muốn in nhãn . Bây giờ, nếu bạn muốn làm như vậy, bạn có thể làm theo các bước bên dưới.
Các bước :
- Đầu tiên, hãy chuyển đến Bố cục Trang từ đầu trang.
- Tiếp theo, nhấp vào Thiết lập trang nút.
- Sau đó, chuyển đến Lề .
- Bây giờ, hãy chỉnh sửa Trên cùng và Dưới cùng lợi nhuận thành 0,5 và sau đó chỉnh sửa Bên trái và Đúng lợi nhuận thành 0,215 .
- Do đó, nhấp vào OK .
- Bây giờ, nhấn CTRL + P để mở In menu.
- Tại thời điểm này, hãy nhấp vào Không chia tỷ lệ và 4 tùy chọn sẽ hiển thị.
- Tiếp theo, từ các tùy chọn đó, hãy chọn Điều chỉnh tất cả cá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, bản xem trước khi in của bạn sẽ giống như ảnh chụp màn hình bên dưới.
Đọc thêm: Cách kết hợp thư từ Excel sang Word (Với các bước dễ dàng)
Kết luận
Cuối cùng nhưng không kém phần quan trọng, tôi hy vọng bạn tìm thấy những gì bạn đang tìm kiếm từ bài viết này. Nếu bạn có bất kỳ thắc mắc nào, vui lòng để lại bình luận bên dưới. Ngoài ra, nếu bạn muốn đọc thêm các bài viết như thế này, bạn có thể truy cập trang web ExcelDemy của chúng tôi .
Các 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 gửi thư trong Excel (với các bước đơn giản)
- Cách hợp nhất tệp Excel vào nhãn gửi thư (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)