Cách giữ dòng 1 đến dòng 6 và cột A cộng cột B của File có nhiều Sheet (2 người xem)

[Rùa Con 1080]

Chào mọi người, em có file Excel có tời 87 sheet, em muốn giữ lại dòng số 1->6 và cột A->B của mỗi sheet để khi in ra luôn giữ dòng và cột đó, em có biết vào Page Layout-> Page Setup-> sheet-> Row to repeat at Top và Column to repaet at Left, nhưng cứ phải chỉnh vào từng sheet thì lâu quá. Mong mọi người có cách nào nhanh chỉ em với. Em cám Ơn.

 

[giaiphap]

Chào mọi người, em có file Excel có tời 87 sheet, em muốn giữ lại dòng số 1->6 và cột A->B của mỗi sheet để khi in ra luôn giữ dòng và cột đó, em có biết vào Page Layout-> Page Setup-> sheet-> Row to repeat at Top và Column to repaet at Left, nhưng cứ phải chỉnh vào từng sheet thì lâu quá. Mong mọi người có cách nào nhanh chỉ em với. Em cám Ơn.

Đưa cái file đó lên đây sẽ có kết quả ngay.

 

[huuthang_bd]

Chào mọi người, em có file Excel có tời 87 sheet, em muốn giữ lại dòng số 1->6 và cột A->B của mỗi sheet để khi in ra luôn giữ dòng và cột đó, em có biết vào Page Layout-> Page Setup-> sheet-> Row to repeat at Top và Column to repaet at Left, nhưng cứ phải chỉnh vào từng sheet thì lâu quá. Mong mọi người có cách nào nhanh chỉ em với. Em cám Ơn.

Bạn dùng Macro này

Sub SetPrintTitles()
Dim Ws As Worksheet
For Each Ws In Worksheets
    With Ws.PageSetup
        .PrintTitleRows = "$1:$6"
        .PrintTitleColumns = "$A:$B"
    End With
Next
End Sub

87 sheet làm thủ công chắc cũng không đến 5'. Gửi lên đây thì hôm qua tới giờ rồi

 

[Rùa Con 1080]

Cám Ơn Anh giaiphap va Anh huuthang_bd, em chưa thử code của Anh huuthang_bd(vì không có máy in). Em phải ngồi chỉnh 3 tiếng đồng hồ đó Anh. Đó là dữ liệu cơ quan(in ra để đối chiếu với khách hàng) nên em đưa lên không được.