ªð¦^¦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 : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD