VBA代碼實現毫秒級延時及打開網頁方案

題記：春節期間，情況特殊，希望大家儘可能待在家裡，靜下心，多學習有用的知識，多提高自己的水平和能力，這才是正道。

分享成果，隨喜真能量。大家好，今日內容仍是和大家分享VBA編程中常用的簡單「積木」過程代碼，這些內容大多是取至我編寫的「VBA代碼解決方案」教程中內容。NO.199-NO.200內容是：

NO. 199：在VBA代碼中使用API函數，實現毫秒級別的延時效果

NO. 200：在VBA代碼中實現打開頭條的主頁。

VBA過程代碼199：在VBA代碼中使用API函數，實現毫秒級別的延時效果

Sub mynz ()

Dim time1 As Long

time1 = timeGetTime

Range("A2").Value = time1

Do

Range("A3").Value = timeGetTime

DoEvents

Loop While timeGetTime - time1 < 1000

MsgBox "時間到！"

End Sub

代碼解析：Mynz過程延時時間單位是毫秒。由於延時函數中使用了 DoEvents語句交出了系統控制權，所以不會影響用戶的其它操作。

VBA過程代碼200：在VBA代碼中實現打開頭條的主頁

Sub mynz ()

ActiveWorkbook.FollowHyperlink _

Address:="https://mp.toutiao.com", _

NewWindow:=True

End Sub

代碼解析：Mynz過程用FollowHyperlink方法打開頭條的主頁。

VBA是實現自己小型辦公自動化的有效手段，我根據自己20多年的VBA實際利用經驗，現推出了四部VBA教程，這些是我多年編程經驗的記錄，也是我「積木編程」思想的體現。每一講都是較大塊的「積木」，可以獨立地完成某些或者某類的過程。利用這些可以提高自己的編程效率。

其一：「VBA代碼解決方案」PDF教程，是VBA中各個知識點的講解，覆蓋了絕大多數的知識點，是初學及中級以下人員必備；

其二「VBA資料庫解決方案」PDF教程，資料庫是數據處理的利器，對於中級人員應該掌握這個內容了。

其三「VBA數組與字典解決方案」PDF教程，講解VBA的精華----字典，是我們打開思路，提高代碼水平的必備。

其四「VBA代碼解決方案」視頻教程。目前正在錄製，「每天20分鐘，半年精進VBA」，越早參與，回饋越多。現在錄製到第三冊的118講，以上各教程的代碼都是經過實測，可以拿來即用。

春節期間，情況特殊，大家儘可能待在家裡，多學習有用的知識，多提高自己，這才是正道。