文書番号: 401684
最終更新日: 1998/02/06
Option Explicit Sub CancelKeySample() Dim c, r As Integer Application.EnableCancelKey = xlDisabled For r = 1 To 20 For c = 1 To 4 Worksheets("Sheet1").Cells(r, c).Value = 1 Next c Next r Application.EnableCancelKey = xlInterrupt End Sub
Keywords: KBHOWTO KB401684
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch