Application.ScreenUpdating °ÝÃD
- ©«¤l
- 163
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 246
- ÂI¦W
- 27
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- ie
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-7-8
- ³Ì«áµn¿ý
- 2024-9-14
|
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 |
|
|
|
|
|
|