giúp code Reser chạy tất cả các Sheet (1 người xem)

[minhtuan55]

Chào cả nhà Gpe !
Mình có làm đoạn code sau để Remove split và xem chế độ bình thường trong excel, nhưng chỉ áp dụng cho Sheet hiện hành thôi, giờ mình muốn tất cả các sheet đều áp dụng thì phải làm sao. Mong mọi người giúp đỡ

Sub resetdata()
ActiveWindow.View = xlNormalView ' xem che do binh thuong
With ActiveWindow ' remove split
.SplitColumn = 0
.SplitRow = 0
End With
End sub

 

[vu_tuan_manh_linh]

Chào cả nhà Gpe !
Mình có làm đoạn code sau để Remove split và xem chế độ bình thường trong excel, nhưng chỉ áp dụng cho Sheet hiện hành thôi, giờ mình muốn tất cả các sheet đều áp dụng thì phải làm sao. Mong mọi người giúp đỡ

Sub resetdata()
ActiveWindow.View = xlNormalView ' xem che do binh thuong
With ActiveWindow ' remove split
.SplitColumn = 0
.SplitRow = 0
End With
End sub

Bạn khai báo 1 biến Sh as Worksheet, sau đó dùng vòng lặp For each Sh in Activeworkbook.Worksheet, chèn nội dung đoạn code của bạn vào trong vòng lặp for.

 

[phulien1902]

Chào cả nhà Gpe !
Mình có làm đoạn code sau để Remove split và xem chế độ bình thường trong excel, nhưng chỉ áp dụng cho Sheet hiện hành thôi, giờ mình muốn tất cả các sheet đều áp dụng thì phải làm sao. Mong mọi người giúp đỡ

Sub resetdata()
ActiveWindow.View = xlNormalView ' xem che do binh thuong
With ActiveWindow ' remove split
.SplitColumn = 0
.SplitRow = 0
End With
End sub

Bạn thử với Code bên dưới:

Sub abc()
    Dim n As Long
    For n = 1 To Sheets.Count
        Sheets(n).Activate
        ActiveWindow.View = xlNormalView
    Next
End Sub

 

[minhtuan55]

Bạn khai báo 1 biến Sh as Worksheet, sau đó dùng vòng lặp For each Sh in Activeworkbook.Worksheet, chèn nội dung đoạn code của bạn vào trong vòng lặp for.

dạ e cảm ơn anh em ghép đi ghép lại gần 10 lần nó chạy ok roi a. Thank a

Sub ada()


Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets


Sh.Select
ActiveWindow.View = xlNormalView
With ActiveWindow ' remove split
.SplitColumn = 0
.SplitRow = 0
End With




Next Sh
End Sub