' [334.xls]



' [Module1] のコード
'★★☆　1秒間に10回マクロを実行する　☆★★

Option Explicit

'API関数の宣言
Public Declare Function timeGetTime Lib "winmm.dll" () As Long

Dim i As Integer

Sub start()
Dim 開始 As Long
Dim 待機 As Long
    
    '変数の初期化
    開始 = timeGetTime
    待機 = timeGetTime
        
        'For 〜 Next 間を 10 回転して 1 秒とする
        For i = 1 To 10
aaa:
            '理論的には数値を100で指定するのですが
            '書込ロス等を考慮して99にしてあります
                If timeGetTime - 待機 >= 99 Then
                    '1/10 秒間経過したらサブマクロ呼出
                    macro
                Else
                    '経過時間が 1/10 秒間に満たないときはやり直し
                    GoTo aaa
                End If
        
            '1/10 秒後に変数初期化
            待機 = timeGetTime
        Next i
    
    MsgBox "経過時間は" & (timeGetTime - 開始) / 1000 & "秒です"

End Sub

'セルに変数の値を書き込むマクロ
Sub macro()

    [E8] = i
    
End Sub