Madhabi muốn in bốn bản sao của trang tính, nhưng giá trị của ô A7 thay đổi cho mỗi bản sao. Bốn giá trị là “Original,”

“Nhân bản”, “Tệp” và “Trình điều khiển”. Tất cả các dữ liệu khác đều giống nhau, Madhabi tự hỏi làm thế nào anh ta có thể thay đổi văn bản của ô A7 trong khi in.

Một cách tiếp cận khả thi là tạo bốn trang tính khác nhau có chứa thông tin về cơ bản giống nhau. Các trang tính từ 2 đến 4 có thể tham chiếu tất cả các ô trên trang tính 1, ngoại trừ ô A7 có thể được đặt trên mỗi trang tính thành một giá trị khác nhau (“Original,”

“Duplicate,” v.v.).

Tuy nhiên, một cách tiếp cận tốt hơn sẽ là tạo một macro nhanh mà bạn có thể sử dụng cho việc in ấn của mình. Macro có thể xử lý việc thay đổi giá trị của ô A7 ngay trước khi trang tính được in mỗi lần. Đây là một ví dụ đơn giản:

Sub PrintCopies()

Dim i As Integer     Dim VList As Variant

VList = Array("Original", "Duplicate", "File", "Driver")

For i = LBound(VList) To UBound(VList)

Range("A7") = VList(i)

ActiveSheet.PrintOut      Next End Sub

Macro đặt bốn giá trị dành cho ô A7 vào một mảng. Sau đó, macro sẽ bước qua từng phần tử trong số bốn phần tử của mảng, đặt giá trị vào ô A7, rồi in trang tính. Việc in được thực hiện trên bất kỳ máy in mặc định nào trên hệ thống.

Có thể dễ dàng gán macro cho một phím tắt hoặc cho Thanh công cụ Truy nhập Nhanh (như được mô tả trong ExcelTips khác) để bạn có thể in tất cả bốn bản sao một cách nhanh chóng.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (9962) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365.