APIについて

質問

只今APIを使って、マクロを書いていますが、コンパイルエラーが発生してしまい、うまく動作出来ません。
どのようにしたらよいのでしょうか。

マクロのコードは

Option Explicit

Sub sample5()
Dim i As Long, Start As Long
Start = GetTickCount
For i = 1 To 1000
Range("A1").Value = i
Next i
MsgBox (GetTickCount - Start) / 1000 & "秒"
End Sub

です。
実行ボタンを押しても、Start = GetTickCountの"GetTickCount"の部分でコンパイルエラーが発生して、変数が定義されておりませんと出てしまいます。
"GetTickCount"の変数を定義すればよろしいのでしょうか。
どなたかお分かりの方がいらしゃいましたら、お答えお願い致します。

回答No.1

samtomsan

GetTickCountが定義されていませんね。
「VBA GetTickCount」で検索してみてください。多くの例が見つかります。
下記の定義を入れる必要があります。
Private Declare Function GetTickCount Lib "kernel32" () As Long