Tự động ẩn một số cột được xác định trước

[chedauden]

Chào các bạn,
Xin hỏi cách làm ẩn một số cột được xác định trước trong excel. Ví dụ trong 1 sheet mình muốn tự động ẩn cột thứ 5 và cột thứ 7, hoặc bất kỳ 1 cột nào được xác định trước. Nhờ các bạn giúp đỡ dùm.
Mình có gởi kèm file ví dụ.
Xin cảm ơn mọi người.

 

[langthangmang]

Chào bạn
Mình chỉ biết ABC về VBA nhưng cũng thử làm giúp, bạn xem thử file này nhé
Thân chào

 

[TrungChinhs]

Chào các bạn,
Xin hỏi cách làm ẩn một số cột được xác định trước trong excel. Ví dụ trong 1 sheet mình muốn tự động ẩn cột thứ 5 và cột thứ 7, hoặc bất kỳ 1 cột nào được xác định trước. Nhờ các bạn giúp đỡ dùm.
Mình có gởi kèm file ví dụ.
Xin cảm ơn mọi người.

Bạn muốn ẩn cột nào thì đặt tên cho cột đó. Ví dụ ở đây là các cột có tên là "Hide"
Khi bạn kích đúp chuột vào 1 ô bất kỳ tại dòng 1 thì các cột có tên là "Hide" sẽ ẩn
Khi bạn kích đúp chuột vào 1 ô bất kỳ tại dòng 2 thì các cột ẩn sẽ hiện trở lại bình thường

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheet_BeforeDoubleClick_Resume:
If Not Intersect(Target, Range("A1:AZ1")) Is Nothing Then
  For j = 1 To 100
    If Cells(1, j) = "hide" Then Cells(1, j).EntireColumn.Hidden = True
  Next
End If
If Not Intersect(Target, Range("A2:AZ2")) Is Nothing Then Cells.EntireColumn.Hidden = False
End Sub

 

[ChanhTQ@]

Thêm một macro nữa để cùng nhau tham khảo, xin mời

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("Cot")) Is Nothing Then
   On Error Resume Next
   Cells.Columns.Hidden = False
   Dim Col As Variant:                          Col = Target.Value
   If IsNumeric(Col) Then
      Col = Target.Value Mod 257:               Columns(Col).Hidden = True
   Else
      If Len(Col) <= 2 And Col < "IV" Then _
         Columns(Col).Hidden = True
 End If:                                        End If
End Sub

Chú í Cot là tên đã được gán cho 1 ô nào đó trên trang tính. Cũng là nơi ta có thể nhập vô số hay chuổi biểu thị cột trang tính để cột đó ần đi;

Ví dụ ta nhập vô số 258 - Sẽ ẩn cột 'B ;
Nếu ta nhập chuỗi 'AB' sẽ ẩn cột thứ 28 của trang tính!

 

[chedauden]

Xin cảm ơn hướng dẫn của các bạn, mình sẽ áp dụng thử cac code mà các bạn đã nêu.
Chúc mọi người cuối tuần vui vẻ.