Tự động ẩn hàng trong Excel
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
Post a Comment