giúp em về vấn đề căn chỉnh lề trong excel (1 người xem)

[vuanhmy123]

chào mọi người, trong workbook của em có rất nhiều các worksheet, có cách nào giúp e mà căn chỉnh lề cho toàn bộ bảng tính đc ko ạ?
ví dụ tại sheet 1 của e căn chỉnh là top 1.5, bottom 1.0, left 1.5, right 0.8.
làm từng sheet 1 như vậy thì rất lâu, mọi người chỉ cho e cách nào mà căn chỉnh toàn bộ các sheet với đúng tỉ lệ (top 1.5, bottom 1.0, left 1.5, right 0.8.) được không ạ ?
cảm ơn mọi người

 

[giaiphap]

chào mọi người, trong workbook của em có rất nhiều các worksheet, có cách nào giúp e mà căn chỉnh lề cho toàn bộ bảng tính đc ko ạ?
ví dụ tại sheet 1 của e căn chỉnh là top 1.5, bottom 1.0, left 1.5, right 0.8.
làm từng sheet 1 như vậy thì rất lâu, mọi người chỉ cho e cách nào mà căn chỉnh toàn bộ các sheet với đúng tỉ lệ (top 1.5, bottom 1.0, left 1.5, right 0.8.) được không ạ ?
cảm ơn mọi người

Bạn chọn nhiều sheet cùng một lúc và thực hiện điều chỉnh lề sẽ có tác dụng cho tất cả các sheet đang chọn.

 

[phulien1902]

chào mọi người, trong workbook của em có rất nhiều các worksheet, có cách nào giúp e mà căn chỉnh lề cho toàn bộ bảng tính đc ko ạ?
ví dụ tại sheet 1 của e căn chỉnh là top 1.5, bottom 1.0, left 1.5, right 0.8.
làm từng sheet 1 như vậy thì rất lâu, mọi người chỉ cho e cách nào mà căn chỉnh toàn bộ các sheet với đúng tỉ lệ (top 1.5, bottom 1.0, left 1.5, right 0.8.) được không ạ ?
cảm ơn mọi người

Bạn chép Code dưới đây vào Module và cho chạy:

Sub ABC()
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In ActiveWorkbook.Sheets
        With sh.PageSetup
            .LeftMargin = Application.InchesToPoints(1.5)
            .RightMargin = Application.InchesToPoints(0.8)
            .TopMargin = Application.InchesToPoints(1.5)
            .BottomMargin = Application.InchesToPoints(1)
        End With
    Next
    Application.ScreenUpdating = True
End Sub

Tất cả các Sheets của bạn sẽ được Setup đúng như mong muốn của bạn.

 

[vuanhmy123]

cảm ơn các pro rất nhiều, e sẽ thử ạ