A01044 - 使取消键无效 - P28

admin

1. Public Sub 技巧1_044()
   
2.     Dim i As Long
   3 k6 z, _2 r: O. o! a8 t: I
3.     MsgBox "完全禁用取消键捕获功能"
   
4.     Application.EnableCancelKey = xlDisabled
   : l* |" K& a! L% ^$ u
5.     For i = 1 To 5000
   $ S8 @8 W2 r: F; s% Z
6.         Cells(1, 1) = i
   
7.     Next i
   6 n* n" r$ Z- V. _
8.     MsgBox "可以使用取消键捕获功能"
   7 u* H' V3 [$ D/ }
9.     Application.EnableCancelKey = xlInterrupt
   2 o" m! ~- }4 W' Z5 ~: P3 }
10.     For i = 1 To 5000
      ~( w2 W) X+ P6 [" ]4 v. c! I
11.         Cells(1, 1) = i
    * _' H* {0 w' z' A, `( P; E! h
12.     Next i
    
13. End Sub

复制代码