发布时间：2019-07-29 16:09:49
请帮我把时间显示改为精确到毫秒，谢谢。Sub delay(T As Single)Dim T1 As SingleT1 = TimerDoDoEventsLoop While Timer - T1 < TEnd SubSub Tmm()DoFor i = 6 To 25If Cells(i, 4) = 1 ThenCells(i, 3) = Cells(i, 3) + TimeSerial(0, 0, 1)End IfNextdelay 1If [d26] = 0 Then Exit DoLoopEnd SubSub tstart()i = Application.CallerIf Sheet1.Cells(i + 5, 4) <> 1 ThenSheet1.Cells(i + 5, 4) = 1End IfTmmEnd SubSub tstop()i = Application.CallerSheet1.Cells(i - 100 + 5, 4) = 0End SubSub createbtn() '创建按钮f = 1 '仅首次使用If f = 1 Then Exit SubFor i = 1 To 20With ActiveSheet.Buttons.Add(200, 86 + (i - 1) * 30, 50, 25).Name = i.Caption = "开始".OnAction = "tstart"End WithWith ActiveSheet.Buttons.Add(260, 86 + (i - 1) * 30, 50, 25).Name = i + 100.Caption = "结束".OnAction = "tstop"End WithNextEnd SubSub removebtn() '删除按钮Sheet1.Buttons.DeleteEnd SubSub reset()[c6:d25] = 0End Sub
补充：链接：https://pan.baidu./s/13U8ym26uKYW_rsbZ4OPcxA 提取码：skwc 复制这段内容后打开百度网盘手机App，操作更方便哦源文件在百度网盘补充：链接：https://pan.baidu./s/1L2dK7_yGBrnFIKAFo2vJ3g 提取码：7x8b 复制这段内容后打开百度网盘手机App，操作更方便哦重修修改了一下，大神们帮帮忙