Tạo toolbar tự động ẩn hàng

[thiennx]

Trước nay em vẫn dùng cách tự động ần hàng theo cách các pác đã giúp em (file đính kèm, và em dùng cột A để làm căn cứ để ẩn).Nhưng hiện nay có vấn đề là em có rất nhiều sheet fải ẩn như thế và các cột làm căn cứ ẩn ở các sheet là khác nhau.Ý em định nhờ các pác tạo cho em cái toolbar để khi em ấn vào đấy nó sẽ hỏi lấy cột nào làm căn cứ để ẩn và sau khi mình lựa chọn nó sẽ tự động ẩn các dòng = 0 đi. Hoặc pác nào có kao kiến hơn để giả quyết vấn đề đó thì giúp em với.
Xin cảm ơn!

 

[ndu96081631]

Trước nay em vẫn dùng cách tự động ần hàng theo cách các pác đã giúp em (file đính kèm, và em dùng cột A để làm căn cứ để ẩn).Nhưng hiện nay có vấn đề là em có rất nhiều sheet fải ẩn như thế và các cột làm căn cứ ẩn ở các sheet là khác nhau.Ý em định nhờ các pác tạo cho em cái toolbar để khi em ấn vào đấy nó sẽ hỏi lấy cột nào làm căn cứ để ẩn và sau khi mình lựa chọn nó sẽ tự động ẩn các dòng = 0 đi. Hoặc pác nào có kao kiến hơn để giả quyết vấn đề đó thì giúp em với.
Xin cảm ơn!

Tôi nghĩ chỉ cần viết code thành 1 sub là được ---> Khi muốn chạy code, bấm Alt + F8 và chọn tên sub là xong

Sub Filter()
  On Error GoTo Thoat
  ActiveSheet.AutoFilterMode = False
  With Application.InputBox("Chon vung", Type:=8)
    .AutoFilter 1, "<>", , , False
  End With
Thoat:
End Sub

Sub Reset()
  ActiveSheet.AutoFilterMode = False
End Sub

 

[thiennx]

Cám ơn bác ndu, cái bác làm em chạy được trên file mới, nhưng em đưa vào 1 cái file của bọn bên Hà Nội làm có khoảng 90 sheet thì nó không cho chạy, Vào tool -> macro thì chỗ microsof script editor bị mờ đi không ấn được. Nhờ bác chỉ cách để chạy được macro trên file đấy.
cám ơn nhiều

Đã để macro security ở mức low, tuy nhiên vào data->filter thì cũng bị khoá nốt, chắc vậy nên cái macro của bác không chạy được

Vào Tool -> Protection cũng không thấy protec sheer or workbook

 

[ndu96081631]

Cám ơn bác ndu, cái bác làm em chạy được trên file mới, nhưng em đưa vào 1 cái file của bọn bên Hà Nội làm có khoảng 90 sheet thì nó không cho chạy, Vào tool -> macro thì chỗ microsof script editor bị mờ đi không ấn được. Nhờ bác chỉ cách để chạy được macro trên file đấy.
cám ơn nhiều

Bạn chạy microsof script editor làm gì chứ ---> Sau không bấm Alt + F8 để chạy code?

 

[thiennx]

Nhưng vấn đề là cái file đấy nó bị khoá mất tính năng filter nên không thể chạy được macro đấy, bình thường cái của bác làm trên 1 file mới thì được nhưng đưa vào cái file của bọn bên Hà nội làm thì không được vì thế mới hòi cách để bỏ khoá tính năng filter để có thể chạy được macro