Hướng dẫn viết code giấu cột cho file bên dưới giúp e

[viettho]

E có file đính kèm e định thêm code để loại hàng nào có đơn giá để trống thì giấu 2 cột số lượng, thành tiền của mặt hàng đó. e có thử viết bằng hàm if nhưng thấy dài quá nhờ ace giúp đỡ dùm.

đơn giá là dòng 2 có tô màu vàng. vd: secrown đơn giá là ô D2, các mặt hàng khác cũng tương tự.

 

[quocphuoc88]

Bạn chép vào 1 module rồi chạy thử xem đúng không nhóe !

Sub gpe()
Dim i As Long
For i = 4 To 21 Step 2
    If Cells(2, i).Value = "" Then
        Range(Cells(2, i), Cells(2, i + 1)).EntireColumn.Hidden = True
    End If
Next i
End Sub

 

[Quang_Hải]

E có file đính kèm e định thêm code để loại hàng nào có đơn giá để trống thì giấu 2 cột số lượng, thành tiền của mặt hàng đó. e có thử viết bằng hàm if nhưng thấy dài quá nhờ ace giúp đỡ dùm.

đơn giá là dòng 2 có tô màu vàng. vd: secrown đơn giá là ô D2, các mặt hàng khác cũng tương tự.

Thử code này

Sub Ancot()
Application.ScreenUpdating = False
Dim i As Long, VungAn As String
   For i = 4 To 21 Step 2
      If Cells(2, i).Value < 1 Then
         VungAn = VungAn & "," & Cells(1, i).Address
      End If
   Next
   VungAn = Replace(VungAn, ",", "", , 1)
   Range(VungAn).EntireColumn.Hidden = True
Application.ScreenUpdating = True
End Sub

 

[viettho]

cám ơn các bác đã giúp đỡ