ªð¦^¦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®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD