xin giúp sửa code ẩn cột trong excel (1 người xem)

[tommybull]

Chào anh chị, em có một file tìm được trên mạng về code ẩn dòng
Nhưng code này chọn cho cả nguyên sheet với điều kiện nếu cột nào sum=0 thì sẽ ẩn cột đó
Nhờ Anh chị giúp chỉnh lại để em có thể chọn vùng theo yêu cầu ạ

 

[giaiphap]

Chào anh chị, em có một file tìm được trên mạng về code ẩn dòng
Nhưng code này chọn cho cả nguyên sheet với điều kiện nếu cột nào sum=0 thì sẽ ẩn cột đó
Nhờ Anh chị giúp chỉnh lại để em có thể chọn vùng theo yêu cầu ạ

Thì sửa thế này xem sao.

Public Sub testSum()
  Dim rng As Range
 
  For Each rng In Selection
    If Application.WorksheetFunction.Sum(rng) = 0 Then
      rng.EntireColumn.Hidden = True
    End If
  Next rng
End Sub

 

[tommybull]

Thì sửa thế này xem sao.

Public Sub testSum()
  Dim rng As Range
 
  For Each rng In Selection
    If Application.WorksheetFunction.Sum(rng) = 0 Then
      rng.EntireColumn.Hidden = True
    End If
  Next rng
End Sub

Dạ, em nói cụ thể yêu cầu như này ạ:
Em muốn trong code anh (chị) cho chọn vùng (ví dụ: A3:E11), sau khi chạy lệnh thì những cột B;C;D sẽ ẩn, vì các cell trong đó chỉ có giá trị = 0 hoặc text
Chọn vùng như thế để em có thể tự chủ trong việc đặt vùng chọn ạ!
Anh (chị) xem lại giúp em với ạ
Trân trọng!

 

[befaint]

Dạ, em nói cụ thể yêu cầu như này ạ:
Em muốn trong code anh (chị) cho chọn vùng (ví dụ: A3:E11), sau khi chạy lệnh thì những cột B;C;D sẽ ẩn, vì các cell trong đó chỉ có giá trị = 0 hoặc text
Chọn vùng như thế để em có thể tự chủ trong việc đặt vùng chọn ạ!
Anh (chị) xem lại giúp em với ạ
Trân trọng!

Bạn gán phím tắt (*) cho Sub trên, rồi thực hiện đúng như bạn mô tả:
1- Chọn vùng mình thích,
2- Nhấn phím tắt ở (*) để chạy Sub.
Xong.

 

[tommybull]

Bạn gán phím tắt (*) cho Sub trên, rồi thực hiện đúng như bạn mô tả:
1- Chọn vùng mình thích,
2- Nhấn phím tắt ở (*) để chạy Sub.
Xong.

Dạ, em chưa hiểu ý của bác ạ!

 

[tommybull]

Bạn gán phím tắt (*) cho Sub trên, rồi thực hiện đúng như bạn mô tả:
1- Chọn vùng mình thích,
2- Nhấn phím tắt ở (*) để chạy Sub.
Xong.

Em làm được phím tắt rồi, nhưng khi em chọn vùng, thì toàn bộ vùng được chọn đều ẩn hết mà không theo điều kiện chọn vùng, bác giúp em xem lại với ạ!

 

[tommybull]

Bạn gán phím tắt (*) cho Sub trên, rồi thực hiện đúng như bạn mô tả:
1- Chọn vùng mình thích,
2- Nhấn phím tắt ở (*) để chạy Sub.
Xong.

Nghĩa là em dùng code của bác "giaiphap" , tạo phím tắt, và thử chọn vùng từ B3:E11, thì toàn bộ cột trong vùng này ẩn hết, mặc dù cột E có cell chứa giá trị sum>0 cũng ẩn theo luôn ạ!
Bác giúp em sửa lại với ạ!

 

[tommybull]

Thì sửa thế này xem sao.

Public Sub testSum()
  Dim rng As Range
 
  For Each rng In Selection
    If Application.WorksheetFunction.Sum(rng) = 0 Then
      rng.EntireColumn.Hidden = True
    End If
  Next rng
End Sub

Dạ em làm được rồi, ý của em là như thế này ạ, File chạy OK đúng theo ý
Gửi và báo cáo lại bác
Xin chân thành cảm ơn ạ!

 

[phulien1902]

Dạ em làm được rồi, ý của em là như thế này ạ, File chạy OK đúng theo ý
Gửi và báo cáo lại bác
Xin chân thành cảm ơn ạ!

Bạn thử:

Sub abc()
    Dim LC%, i&
    LC = Cells(1, Columns.Count).End(xlToLeft).Column
       For i = 2 To LC
        If Cells(11, i) = 0 Then
            Columns(i).EntireColumn.Hidden = True
        End If
       Next
End Sub