vba - Excel プレゼンテーション用のタイマーのシートにデータを入れる

Question

特定のセルのシートに作業タイマーがあります。シートに事前定義された値 (マクロまたはセルへの参照のいずれか) を入力し、デモンストレーション用のテンプレートに入力する必要があります。誰もこれをやったことがありますか。私のコードは..「ええ」サブは完了していませんが、一部を機能させたいと思っていました。私はできません。

Sub timer()
Application.OnTime Now + TimeValue("00:00:01"), "Increment_count"
End Sub
Sub Increment_Count()
Range("AE5").Value = Range("AE5") + TimeValue("00:00:01")
timer

Application.Run ("yeah")

End Sub
Sub STOPtimer()
Application.OnTime Now + TimeValue("00:00:01"), "Increment_count", Schedule:=False
End Sub

Sub yeah()

Dim i As Integer

For i = 2 To 31
If IsError(Cells(i, 39)) = False And IsError(Cells(32, 5)) = False Then
If Cells(i, 38) = Cells(31, 5) Then
Cells(1, 8) = Cells(i, 39)
End If
End If

Next i

End Sub