ªð¦^¦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 : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD