標題: Application.ScreenUpdating 問題 [打印本頁]

---

作者: mdr0465    時間: 2017-9-28 18:25     標題: Application.ScreenUpdating 問題

各位師兄:

請問以下的程式有什麼問題?? 我次移動滑鼠, 螢幕都會還會在跳?? 謝謝

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)