中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

NO.148：利用VBA代碼實(shí)現(xiàn)'定時(shí)器'功能

NO.149：利用VBA代碼取消實(shí)現(xiàn)'定時(shí)器'功能

NO.150：改變<Ctrl +C>組合鍵的功能

VBA過程代碼148：利用VBA代碼實(shí)現(xiàn)'定時(shí)器'功能

Sub mynz()

Sheets('31').Cells(1, 2) = Sheets('31').Cells(1, 2) + 1

Application.OnTime Now + TimeValue('00:00:01'), 'mynz'

End Sub

代碼的解析說明：上述mynz過程，使用Application對象的OnTime方法循環(huán)調(diào)用MyStartTimer過程實(shí)現(xiàn)每隔一秒鐘運(yùn)行一次mynz過程，從而在B1單元格中不斷地顯示程序累計(jì)運(yùn)行時(shí)間，

VBA過程代碼149：利用VBA代碼取消實(shí)現(xiàn)'定時(shí)器'功能

Sub mynz()

On Error GoTo 100

Application.OnTime Now + TimeValue('00:00:01'), 'mynz', , False

Sheets('31').Cells(1, 2) = 0

Exit Sub

100:

MsgBox '請先按[ON]按鈕!'

End Sub

代碼的解析說明：上述mynz過程，使用取消mynz過程的計(jì)時(shí)。

VBA過程代碼150：改變<Ctrl +C>組合鍵的功能

Private Sub Workbook_Activate()

Application.OnKey '^{c}', 'mynz'

End Sub

代碼的解析說明：上述過程在工作簿打開時(shí)使用OnKey方法改變<Ctrl +C>組合鍵的功能。

VBA實(shí)現(xiàn)自己小型辦公自動(dòng)化的有效手段，我根據(jù)自己20多年的VBA實(shí)際利用經(jīng)驗(yàn)，現(xiàn)推出了四部VBA教程，這些是我多年編程經(jīng)驗(yàn)的記錄，也是我'積木編程'思想的體現(xiàn)。每一講都是較大塊的'積木'，可以獨(dú)立的完成某些或者某類的過程，有需要的朋友可以聯(lián)絡(luò)（WeChat:NZ9668）分享。利用這些可以提高自己的編程效率。'VBA代碼解決方案'PDF教程，是VBA中各個(gè)知識(shí)點(diǎn)的講解，覆蓋了絕大多數(shù)的知識(shí)點(diǎn)，是初學(xué)及中級以下人員必備；'VBA數(shù)據(jù)庫解決方案'PDF教程，數(shù)據(jù)庫是數(shù)據(jù)處理的利器，對于中級人員應(yīng)該掌握這個(gè)內(nèi)容了。'VBA數(shù)組與字典解決方案'PDF教程，講解VBA的精華----字典，是我們打開思路，提高代碼水平的必備。'VBA代碼解決方案'視頻教程。目前正在錄制，'每天20分鐘，半年精進(jìn)VBA'，越早參與，回饋越多。現(xiàn)在錄制到第二冊的84講。