Nếu bạn có nhiều sổ làm việc đã tích lũy trong nhiều năm, bạn có thể cần in một số trang tính ra khỏi mỗi trang. Ví dụ: bạn có thể có một thư mục chứa sổ làm việc cho từng bộ phận của công ty bạn trong thập kỷ trước. Nếu công ty của bạn có tám bộ phận, điều đó có nghĩa là bạn có 80 sổ làm việc trong thư mục. Bây giờ, nếu bạn cần in các số liệu của quý thứ hai và quý thứ ba (từ trang tính thứ hai và thứ ba ra khỏi mỗi sổ làm việc), bạn bắt đầu thấy vấn đề. Việc tải từng sổ làm việc và sau đó in các trang đã chọn có thể mất rất nhiều thời gian.

Một cách nhanh hơn là tạo một macro sẽ thực hiện việc in cho bạn.

Macro sau bắt đầu bằng cách yêu cầu bạn cung cấp đường dẫn thư mục. Với điều kiện bạn chỉ định một đường dẫn, macro sau đó bắt đầu tải từng tệp sổ làm việc trong thư mục, rồi in trang tính thứ hai và thứ ba từ mỗi tệp. (Macro không thực sự quan tâm đến loại tệp sổ làm việc nào trong thư mục — chúng có thể là tệp XLS, XLSX hoặc XLSM. Nó sẽ tải tất cả chúng.) Sau khi được in, sổ làm việc sẽ được đóng.

Public Sub PrintWorkbooks()

Dim sCurFile As String     Dim sPath As String

'Get the path     sPath = InputBox("Starting path?", "PrintWorkbooks")

If sPath <> "" Then         On Error Resume Next         Application.ScreenUpdating = False         If Right(sPath, 1) <> "\" Then             sPath = sPath & "\"

End If         sCurFile = Dir(sPath & ".xls", vbNormal)

Do While Len(sCurFile) <> 0             Workbooks.Open sPath & sCurFile, , True             With Workbooks(sCurFile)

.Worksheets(2).PrintOut                 .Worksheets(3).PrintOut                 .Close SaveChanges:=False             End With             sCurFile = Dir             DoEvents         Loop         Application.ScreenUpdating = True         On Error GoTo 0     End If End Sub

Rõ ràng, nếu bạn có khá nhiều sổ làm việc trong thư mục, việc in có thể mất khá nhiều thời gian. Bạn có thể muốn tìm một lúc nào đó khi bạn không có việc gì khác để làm, và sau đó chỉ cần để macro bắt đầu chạy.

_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 (11316) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: