Tự động ẩn hàng trong Excel

Tự động ẩn hàng trong Excel Xin chào, tôi muốn tự động ẩn các hàng khi có dấu "X" được đặt vào một cột của hàng đó. Bạn có thể giúp tôi không? Cảm ơn!


Trả lời:
>1) Sao chép mã này. >2) Nhấp chuột phải vào tab trang tính cần xem. >3) Chọn "Xem mã" >4) Dán mã vào cửa sổ xuất hiện. >5) Lưu tệp dưới dạng tệp .xlsm hỗ trợ macro. >6) Thực hiện các thay đổi nếu cần. >
>Private Sub Worksheet_Change(ByVal Target As Range) > > If Target.Cells.Count > 1 Then Exit Sub > ' If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub 'nếu bạn muốn chỉ định cột, hãy thực hiện điều đó tại đây
> Nếu UCase(Target.Value) <> "X" Thì Exit Sub > > 'Tắt sự kiện để tránh vòng lặp > Application.EnableEvents = False > > Target.EntireRow.Hidden = True >
> 'Bật lại sự kiện để chuẩn bị cho thay đổi tiếp theo > Application.EnableEvents = True >End Sub >

Comments

Popular posts from this blog

Xử lý hàng loạt các tệp Excel được bảo vệ bằng mật khẩu

Thu hẹp và mở rộng cột trong Excel

Excel 2016 - mở tất cả các tệp trong MỘT phiên bản