Tự động ẩn dòng khi giá trị bằng 0 trong excel

[Kieu Cong Vo]

Khi Protect Sheet, bạn chọn thêm các thuộc tính sau:

Format cells
Format columns
Format rows

Như vậy, bạn có thể Format tất cả trên đó mà không phải sợ mất dữ liệu.

Còn không thì trong code của nghiaphuc bạn thêm như vầy:

Private Sub Worksheet_Activate()
  ActiveSheet.Unprotect ("Learning_Excel")
  Dim Rng As Range
  Application.ScreenUpdating = False
    For Each Rng In [I19:I42]
      Rng.EntireRow.Hidden = Rng.Value = ""
    Next Rng
  ActiveSheet.Protect ("Learning_Excel")
End Sub

Với ("Learning_Excel") là password của bạn!

Nhìn vào code của NghiaPhuc tôi thấy chỉ có ẩn dòng trống tại cột I, còn giá trị = 0 thì không bị ẩn, nên tôi bổ sung lại như sau:

Private Sub Worksheet_Activate()
  ActiveSheet.Unprotect ("Learning_Excel")
  Dim Rng As Range
  Application.ScreenUpdating = False
    For Each Rng In [I19:I42]
      If Rng.Value = "" Or Rng.Value = 0 Then Rng.EntireRow.Hidden = True
    Next Rng
  Application.ScreenUpdating = True
  ActiveSheet.Protect ("Learning_Excel")
End Sub

Xin chào các anh chị, các bạn. Mình không biết cách hỏi trên diễn đàn nên hỏi ở đây: Do phải điều chỉnh nhiều lần số thứ tự thanh tà vẹt cần phải thay thế nên lúc nhập không sắp xếp ngay được theo tăng dần (Vị trí tà vẹt được đánh số từ đầu đến cuối của 1 bộ ghi từ 1 đến 60). Muốn xin các anh, chị, các bạn code để sau khi nhập thì tự sắp xếp tăng dần. Để bản in ra từ cột A đến cột V thì số tà vẹt tại các ô trong cột V theo thứ tự tăng dần. Trân thành cảm ơn anh chị và các bạn.

Bài đã được tự động gộp: 22/8/23

Bạn sửa chỗ [I20:I120] thành Sh.[I20:I120] là được.