ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

Application.ScreenUpdating °ÝÃD

Application.ScreenUpdating °ÝÃD

¦U¦ì®v¥S:

½Ð°Ý¥H¤Uªºµ{¦¡¦³¤°»ò°ÝÃD?? §Ú¦¸²¾°Ê·Æ¹«, ¿Ã¹õ³£·|ÁÙ·|¦b¸õ?? ÁÂÁÂ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False

With Range("a1048576")

    If Range("a1048576") = "198635" Then
   
    Columns("L").EntireColumn.Hidden = False

Else
    Columns("L").EntireColumn.Hidden = True

End If

End With

Application.ScreenUpdating = True

End Sub

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD