Quá trình in nhãn thông thường từ Microsoft Excel bao gồm bảng tính hợp nhất thư với Microsoft Word. Nhưng một số người thích hoàn thành tất cả công việc trong Excel. May mắn thay, có một cách để in nhãn trong Excel mà không cần dùng tới Word. Hướng dẫn này sẽ tập trung vào cách thực hiện điều đó.
Cách in nhãn trong Excel không cần Word:Quy trình từng bước
Để in nhãn trực tiếp từ Excel mà không cần sử dụng Microsoft Word, chúng ta chỉ cần in ra bảng tính Excel với kích thước nhãn phù hợp. Chúng ta có thể chuyển đổi kích thước ô phù hợp với kích thước nhãn. Chúng tôi sẽ sử dụng mã VBA để thực hiện nhiệm vụ cho chúng tôi.
Đầu tiên, giả sử chúng ta có tập dữ liệu sau.
Trước tiên, chúng tôi sẽ chuyển đổi từng dữ liệu thành nhãn rồi in chúng trong Excel mà không cần sử dụng bất kỳ trợ giúp nào từ Word.
Với mục đích sử dụng Microsoft Visual Basic for Application (VBA) trong Excel, trước tiên bạn cần có Nhà phát triển tab trên dải băng của bạn. Nhấp vào đây để xem cách bạn có thể hiển thị tab Nhà phát triển trên dải băng của mình . Khi bạn đã hoàn tất, hãy tiếp tục làm theo các bước mà chúng tôi đã hướng dẫn để in các nhãn này trong Excel mà không cần Word.
Bước 1:Sao chép dữ liệu sang trang tính mới
Lựa chọn mã VBA ở đây chỉ có thể hoạt động bình thường nếu các mục nhập ô bắt đầu từ ô A1 . Vì vậy, trước tiên chúng ta phải sắp xếp tập dữ liệu chứa tất cả các nhãn theo cách như vậy. Trong trường hợp, tập dữ liệu của bạn bắt đầu ở bất kỳ đâu ngoài ô A1 , giống như của chúng tôi, bắt đầu ở ô B5 , trước tiên hãy sao chép chúng vào một bảng tính mới và đặt chúng vào đầu. Nó sẽ trông giống như thế này.
Bây giờ nó đã sẵn sàng hoạt động với mã VBA.
Bước 2:Chèn mã VBA
Tiếp theo, chúng ta cần chèn mã VBA để điều chỉnh nhãn theo kích thước và hình dạng mong muốn. Để chèn mã VBA-
- Trước tiên, hãy truy cập Nhà phát triển trên dải băng của bạn.
- Sau đó chọn Visual Basic từ Mã nhóm.
- Kết quả là cửa sổ VBA sẽ mở ra. Bây giờ chọn Chèn tab trong đó và chọn Mô-đun từ trình đơn thả xuống.
- Sau đó, đi tới mô-đun và viết đoạn mã sau.
'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 = 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 mã
Có hai phần hoặc phần phụ trong mã VBA này- CreateLabel phụ và AskForColumn phụ. Đầu tiên, chúng ta sẽ giải thích những gì đang diễn ra trong phần phụ AskForColumn, sau đó chuyển sang phần phụ CreateLabel để giải thích cách hoạt động của mã.
Phần 1:
Để hiểu rõ hơn, chúng tôi đã chia phần này thành các phần khác nhau. Hãy nhìn vào hình ở cuối cuộc thảo luận.
👉 Phần 1: Phần này khai báo tên của sub AskForColumn .
👉 Phần 2: Chúng ta đã sử dụng phần này để khai báo ba biến- refrg, vrb và data.
👉 Phần 3: Trong phần này, chúng tôi đã đặt giá trị cho refrg và dữ liệu.
👉 Phần 4: Tại thời điểm này, mã hiển thị hộp nhập liệu trên bảng tính.
👉 Phần 5: Trong phần này, Dành cho vòng lặp được chạy cho số được nhập vào hộp nhập.
👉 Phần 6: Phần mã này bây giờ sẽ thay đổi kích thước các ô.
👉 Phần 7: Cuối cùng, phần này sẽ xóa các nội dung bổ sung.
Phần 2:
Tương tự như phần trước, chúng tôi cũng đã chia sub này thành nhiều phần khác nhau. Hãy theo dõi hình ảnh ở cuối phần thảo luận để biết phần trực quan.
👉 Phần 1: Phần mã này khai báo tên phụ Creatlabels .
👉 Phần 2: Lệnh này chạy phần phụ trước đó tại điểm này của mã.
👉 Phần 3: Phần này định dạng từng ô bằng cách sử dụng Ô VBA tài sản.
Bước 3:Chạy mã VBA
Khi bạn đã nhập mã, hãy đóng cửa sổ VBA. Để chạy mã bây giờ hãy làm theo các bước sau.
- Đầu tiên, hãy truy cập Nhà phát triển trên dải băng của bạn.
- Thứ hai, chọn Macro từ Mã nhóm.
- Hiện có trong Macro hộp, chọn Có thể tạo dưới Tên macro .
- Sau đó nhấp vào Chạy .
- Tiếp theo, chọn số cột bạn muốn. Chúng tôi đang chọn 3 cho cuộc biểu tình. Sau đó nhấp vào OK .
Bây giờ bảng tính sẽ tự động trông như thế này.
Các nhãn hiện đã sẵn sàng để in trong Excel mà không cần sử dụng Word.
Đọc thêm: Cách in nhãn Avery từ Excel
Bước 4:Đặt lề tùy chỉnh
Để in nhãn chúng ta cần đặt lề đúng cho trang in. Vì vậy, chúng ta nên chọn kích thước phù hợp sao cho không ảnh hưởng đến vị trí nhãn hoặc ảnh hưởng đến bất kỳ nhãn nào trên trang tính. Để đặt lề tùy chỉnh, hãy làm theo các bước sau.
- Trước hết, hãy đi tới Bố cục trang trên dải băng của bạn.
- Sau đó chọn Thiết lập trang nút như trong hình. Bạn có thể tìm thấy nó ở dưới cùng bên phải của mỗi nhóm.
- Kết quả là Thiết lập trang hộp sẽ bật lên. Bây giờ hãy đi tới Lề tab trong đó.
- Sau đó chọn độ dài lề mong muốn cho trang in của bạn. Chúng tôi đã chọn những điều sau đây.
- Sau khi bạn hoàn tất, hãy nhấp vào OK .
Bước 5:Chọn tùy chọn chia tỷ lệ để in
Việc chia tỷ lệ thích hợp cũng rất quan trọng đối với việc in nhãn. Ví dụ:những gì chúng tôi đã làm cho đến nay sẽ in trang như thế này.
Đó chắc chắn không phải là mục tiêu của chúng tôi. Vì vậy chúng ta cần đặt tờ giấy vừa khít trên một trang. Để làm được điều đó-
- Trước tiên, hãy đi tới phần xem trước bản in bằng cách nhấn Ctrl+P trên bàn phím của bạn.
- Ở phía dưới bên trái của chế độ xem, bạn có thể tìm thấy Cài đặt . Theo đó, bạn sẽ tìm thấy Tỷ lệ các tùy chọn ở cuối.
- Bây giờ hãy nhấp vào tùy chọn chia tỷ lệ và chọn Trang tính vừa vặn trên một trang từ trình đơn thả xuống.
Việc chia tỷ lệ cho nhãn sẽ hoàn tất vào thời điểm này.
Đọc thêm: Cách in nhãn địa chỉ trong Excel
Bước 6:In bảng tính
Trong khi bạn vẫn đang ở màn hình xem trước bản in, hãy nhấp vào In ở phía trên bên trái của chế độ xem.
Nhấp vào nó và thao tác này sẽ in tất cả các nhãn trong Excel mà không cần bất kỳ sự trợ giúp nào từ Word.
Những điều cần nhớ
👉 Trước khi chạy mã VBA, hãy đảm bảo tất cả các nhãn của bạn bắt đầu ở ô A1 .
👉 Chọn lề và tỷ lệ phù hợp trước khi in sao cho tất cả các nhãn vừa khít trên trang. Nếu không, một số có thể bị cắt.
👉 Các hành động của mã VBA là không thể đảo ngược. Vì vậy, hãy đảm bảo bạn đã sao lưu dữ liệu cần thiết trước khi chạy.
Tải xuống sổ tay thực hành
Đây là tập tin chứa các nhãn có thể in được.
Kết luận
Đây là các bước cần thực hiện để in nhãn trong Excel mà không cần sử dụng hoặc trộn thư Microsoft Word. Hy vọng rằng bây giờ bạn có thể in nhãn trong Excel mà không cần Word. Tôi hy vọng bạn thấy hướng dẫn này hữu ích và mang tính thông tin. Nếu bạn có bất kỳ câu hỏi hoặc đề xuất nào, hãy cho chúng tôi biết trong phần bình luận bên dưới.
Để biết thêm hướng dẫn như thế này, hãy 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
<