如何在10秒后自动停止Sub运行

Question

'为什么此代码在10秒后仍未停止     ``我现在按照建议做，这并没有停止     '10秒后          子测试（）     Application.OnTime Now + TimeValue（“ 00:00:08”），“ TerminateExecution”     ChangeDoubleToDate     结束子     子TerminateExecution（）     结束     结束子     子ChangeDoubleToDate（）     点心二     表格添加     ActiveSheet.Name =“示例”     Range（“ A：E”）。ColumnWidth = 15     Range（“ A：E”）。ClearContents     范围（“ A1”）。选择     对于ii = 20190101至20191234     ActiveCell.Value = ii     ActiveCell.Offset（0，1）.Range（“ A1”）。Select     ActiveCell.FormulaR1C1 =“ = MID（RC [-1]，1,4）”     ActiveCell.Offset（0，1）.Range（“ A1”）。Select     ActiveCell.FormulaR1C1 =“ = MID（RC [-2]，5,2）”             ActiveCell.Offset（0，1）.Range（“ A1”）。Select             ActiveCell.FormulaR1C1 =“ = MID（RC [-3]，7,2）”             ActiveCell.Offset（0，1）.Range（“ A1”）。Select             ActiveCell.FormulaR1C1 =“ = DATE（RC [-3]，RC [-2]，RC [-1]）”             ActiveCell.Offset（1，-4）.Range（“ A1”）。Select             事件             下一个             Application.DisplayAlerts = False             表格（“示例”）。删除             Application.DisplayAlerts = True         结束

Answer 1

https://preso.ch/safari.html


(I removed all css- und js-files)