題記:非常期間,希望大家靜下心,多學習有用的知識,多提高自己的水平和能力,這才是正道。適當節制自我的各種慾望,誰都逃不過時間的歷練,誰都是命運的行者,誰都是在人生的道路上一步一趨,把生活與工作打理好,不負年華。欲成大事者,必先修其身。欲修其身者,先正其心。小成靠智,大成靠德。身不修則德不立,德不立則無以成事。
今日內容是和大家分享VBA編程中常用的 "積木"過程代碼,這些內容大多是取至我編寫的"VBA代碼解決方案"教程中內容。今日分享的是NO.207-NO.207,內容是:
NO. 207:在VBA代碼運行期間禁用"取消"鍵的捕獲功能
VBA過程代碼207:在VBA代碼運行期間禁用"取消"鍵的捕獲功能
Sub mynz ()
Dim i As Integer
Application.EnableCancelKey = xlDisabled
For i = 1 To 3000
Sheets("90").Cells(i, 1).Select
Sheets("90").Cells(i, 1) = i
Next
Application.EnableCancelKey = xlInterrupt
Sheets("90").Cells(1, 1).Select
End Sub
代碼解析:
MyNz過程在代碼運行期間禁用"取消"鍵的捕獲功能。
只要Microsoft Excel返回空閒狀態並且沒有程序處於運行狀態,EnableCancelKey屬性都會重置為xlInterrupt。若要在程序運行中捕獲或者禁用取消過程,則每次在程序被調用時必須明確更改EnableCancelKey屬性。
VBA是實現自己小型辦公自動化的有效手段,我根據自己20多年的VBA實際利用經驗,現推出了四部VBA學習教程,這些是我多年編程經驗的記錄,也是我"積木編程"思想的體現。每一講都是一塊"積木",可以獨立的完成某些或者某類的過程。利用這些可以大大提高自己的編程效率。
第一套:"VBA代碼解決方案"是PDF教程,是VBA中各個知識點的講解,覆蓋了絕大多數的知識點,是初學及中級以下人員必備;
第二套:"VBA數據庫解決方案"是PDF教程,數據庫是數據處理的利器,對於中級人員應該掌握這個內容了。
第三套:"VBA數組與字典解決方案"是PDF教程,講解VBA的精華----字典,是我們打開思路,提高代碼水平的必備。
第四套:"VBA代碼解決方案"視頻教程。目前正在錄製,"每天20分鐘,精進VBA",越早參與,回饋越多。現在錄製到第三冊的124講,以上各教程的代碼都是經過實測,可以拿來即用。
懶惰是很奇怪的東西,它使你以為那是安逸,是休息,是福氣;但實際上它所給你的是無聊,是倦怠,是消沉。
不要懶惰還是多學習些有用的知識吧,哪怕只是點滴。
閱讀更多 VBA專家 的文章