Ẩn hiện cột theo ô có giá trị thỏa mãn (1 người xem)

[hungdiep85]

Chào các Thầy

Ẩn hiện cột theo ô có giá trị thỏa mãn , em mới học tập làm mãi không được ,

Chúc Giáng Sinh An Lành

 

[Quang_Hải]

Chào các Thầy

Ẩn hiện cột theo ô có giá trị thỏa mãn , em mới học tập làm mãi không được ,

Chúc Giáng Sinh An Lành

Bạn xem file đính kèm coi đúng ý chưa

 

[hungdiep85]

Bạn xem file đính kèm coi đúng ý chưa

Cảm ơn Thầy nhiều ah
đúng như ý em luôn ah

Chúc Thầy Giáng Sinh An Lành

 

[concogia]

Tham gia một code cho đỡ buồn

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cot, Thang, I
    Application.ScreenUpdating = False
    If Target.Address = "$D$3" Then
        Columns("H:XFD").EntireColumn.Hidden = True
        Thang = Array("2013", "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
        Cot = Array("H:NH", "H:AL", "AM:BN", "BO:CS", "CT:DW", "DX:FB", "FC:GF", "GG:HK", "HL:IP", "IQ:JT", "JU:KY", "KZ:MC", "MD:NH")
            For I = LBound(Thang) To UBound(Thang)
                If Thang(I) = CStr(Target.Value) Then
                    Columns(Cot(I)).EntireColumn.Hidden = False
                    Exit For
                End If
            Next I
    End If
    Application.ScreenUpdating = True
End Sub

Híc, sao Quang Hải viết nhiều "Eo Íp, Eo Ơi" thế nhỉ ????
Thân

 

[hungdiep85]

Tham gia một code cho đỡ buồn

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cot, Thang, I
    Application.ScreenUpdating = False
    If Target.Address = "$D$3" Then
        Columns("H:XFD").EntireColumn.Hidden = True
        Thang = Array("2013", "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
        Cot = Array("H:NH", "H:AL", "AM:BN", "BO:CS", "CT:DW", "DX:FB", "FC:GF", "GG:HK", "HL:IP", "IQ:JT", "JU:KY", "KZ:MC", "MD:NH")
            For I = LBound(Thang) To UBound(Thang)
                If Thang(I) = CStr(Target.Value) Then
                    Columns(Cot(I)).EntireColumn.Hidden = False
                    Exit For
                End If
            Next I
    End If
    Application.ScreenUpdating = True
End Sub

Híc, sao Quang Hải viết nhiều "Eo Íp, Eo Ơi" thế nhỉ ????
Thân

Mới nhậu về hả Thầy , kakaka

 

[Quang_Hải]

Tham gia một code cho đỡ buồn

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cot, Thang, I
    Application.ScreenUpdating = False
    If Target.Address = "$D$3" Then
        Columns("H:XFD").EntireColumn.Hidden = True
        Thang = Array("2013", "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
        Cot = Array("H:NH", "H:AL", "AM:BN", "BO:CS", "CT:DW", "DX:FB", "FC:GF", "GG:HK", "HL:IP", "IQ:JT", "JU:KY", "KZ:MC", "MD:NH")
            For I = LBound(Thang) To UBound(Thang)
                If Thang(I) = CStr(Target.Value) Then
                    Columns(Cot(I)).EntireColumn.Hidden = False
                    Exit For
                End If
            Next I
    End If
    Application.ScreenUpdating = True
End Sub

Híc, sao Quang Hải viết nhiều "Eo Íp, Eo Ơi" thế nhỉ ????
Thân

Nếu anh không thích eo éo thì em chơi món này, không thèm chơi vòng lặp và cũng không eo éo gì cả.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim cot
Columns("H:NH").Hidden = True
cot = Switch([D3] = 2013, "H:NH", [D3] = "January", "H:AL", [D3] = "February", "AM:BN", [D3] = "March", "BO:CS", _
[D3] = "April", "CT:DW", [D3] = "May", "DX:FB", [D3] = "June", "FC:GF", [D3] = "July", "GG:HK", [D3] = "August", "HL:IP", _
[D3] = "September", "IQ:JT", [D3] = "October", "JU:KY", [D3] = "November", "KZ:MC", [D3] = "December", "MD:NH")
Range(cot).EntireColumn.Hidden = False
Application.ScreenUpdating = True
End Sub