Cách Tạo buttton Ẩn Hiện thanh cột

[theone211984]

Mình muốn tạo 2 button ( đã tạo form có 2 nút click )

1 LÀ BẬT , 2 LÀ TẮT nguyên thanh cột mặc định excel của sheet hiện tại ( A B C D E ........ thanh trên cùng )

bật tắt thanh đó thôi chứ các cột vẫn ko bị ẩn nha

Cám ơn

 

[ketoanbamien]

Sub BatHeadings()
    ActiveWindow.DisplayHeadings = True
End Sub
Sub TatHeadings()
    ActiveWindow.DisplayHeadings = False
End Sub
Sub ToggleHeadings()
    ' Bật/tắt thanh tiêu đề (Headings) trong Excel
    Dim ws As Worksheet
    Set ws = ActiveSheet ' Hoặc thay bằng Worksheets("TênSheet") nếu muốn rõ sheet

    ' Kiểm tra trạng thái hiện tại và đảo ngược
    ws.Activate
    ws.DisplayHeadings = Not ws.DisplayHeadings
End Sub