A01042 - 停止屏幕刷新 - P26

admin

1. Public Sub 技巧1_042()
   / j" M7 l. [- q9 `5 F! ?5 t
2.     ActiveSheet.Buttons.Delete    '删除工作表中的按钮
   
3.     ActiveSheet.Buttons.Add(150, 10, 120, 30).Select    '添加一个按钮
   
4.     Selection.Characters.Text = "停止屏幕刷新"
   
5.     Selection.OnAction = "技巧1_042"
   
6.     Range("A1") = 0
   # P, Q4 k4 u" ?% J5 a0 O% x! D" H) t! }
7.     Application.ScreenUpdating = False
   
8.     MsgBox "屏幕刷新功能被停止!"
   
9.     Call 计算
   ; P3 _$ x$ D; s5 h+ j: q) \) b
10.     Selection.Characters.Text = "继续屏幕刷新"
    / K/ A2 u0 `1 D9 k1 u8 U
11.     Application.ScreenUpdating = True
    $ O3 d1 o+ y8 l- v% R! c
12.     MsgBox "屏幕刷新功能被重新启用!"
    
13.     Call 计算
    
14.     Selection.Characters.Text = "停止屏幕刷新"
    
15.     Range("A1").Select
    , O1 u+ N, G. [- m& Y9 V( h
16. End Sub
    $ r' t% R" f( _
17. Public Sub 计算()
    
18.     Range("A1") = 0
    
19.     For i = 1 To 2000
    
20.         Range("A1") = i
    4 G" f" s# }( C+ J; m; s
21.     Next i
    ( S4 ]2 F6 D& K  A
22. End Sub

复制代码