使用vba內置函數timer函數. Sub a(). t = Timer '記下開始時刻,秒級別的. While Timer < t + 3. DoEvents '釋放控制權. Wend. Cells(1, 1) = 1.
確定! 回上一頁