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

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

Điều tôi muốn làm trong Excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy nhập nhanh và chạy một macro cụ thể.

Không thể hạn chế quyền trên tệp MS excel cho mac