Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
我目前正在尝试在 VBA 中安装计时器 - 我正在做一个测验。
有几个问题需要回答。我想知道的是有人花在回答每个问题上的时间。所以计时器应该在每次有人点击问题时启动,然后在有人点击问题 2 时停止并立即重新开始。
您可以使用定时器功能。它将为您提供高达 1/1000 秒的精度:
Dim myTime as variant myTime = Timer ... Debug.Print "Process duration", Timer - myTime
OnClick 事件。只需使用 DateDiff 来计算花费的时间。当然,他们必须点击一个按钮才能开始考试,或者打开包含考试的表格,所以有一个初始参考点。但是将时间戳写入表格并计算每次单击按钮时的差异应该只需要几毫秒。