求大神帮我注释下下面代码（VBA excel）

Public StopIt AsBoolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("b8") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If

StartIt:
DoEvents
If StopIt = True Then
LastTime= TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime= FinishTime - StartTime + LastTime - PauseTime
TTime =TotalTime * 100
HM =TTime Mod 100
TTime =TTime \ 100
hh =TTime \ 3600
TTime =TTime Mod 3600
MM =TTime \ 60
SS =TTime Mod 60
Range("b8").Value = Format(hh, "00") & ":"& Format(MM, "00") & ":" & Format(SS,"00") & "." & Format(HM, "00")
IfResetIt = True Then
Range("b8") = Format(0, "00") & ":"& Format(0, "00") & ":" & Format(0,"00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoToStartIt
End If
End Sub
Private SubCommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByValX As Single, ByVal Y As Single)
StopIt = True
End Sub
Private SubCommandButton3_Click()
Range("b8").Value = Format(0, "00") & ":"& Format(0, "00") & ":" & Format(0,"00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub

举报该问题

其他回答

第1个回答推荐于2016-08-15

是一个计时程序呢。

Public StopIt AsBoolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("b8") = 0 Then
StartTime = Timer '点下开始时间
PauseTime = 0 '暂停时间
LastTime = 0 '结束时间
Else
StartTime = 0
PauseTime = Timer
End If

当开始点下时，开始时间为目前时间

StartIt:
DoEvents
If StopIt = True Then ‘ 停止
LastTime= TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime= FinishTime - StartTime + LastTime - PauseTime ’
TTime =TotalTime * 100
HM =TTime Mod 100
TTime =TTime \ 100
hh =TTime \ 3600
TTime =TTime Mod 3600
MM =TTime \ 60
SS =TTime Mod 60
Range("b8").Value = Format(hh, "00") & ":"& Format(MM, "00") & ":" & Format(SS,"00") & "." & Format(HM, "00")
IfResetIt = True Then
Range("b8") = Format(0, "00") & ":"& Format(0, "00") & ":" & Format(0,"00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoToStartIt
End If
End Sub
Private SubCommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByValX As Single, ByVal Y As Single)
StopIt = True
End Sub
Private SubCommandButton3_Click()
Range("b8").Value = Format(0, "00") & ":"& Format(0, "00") & ":" & Format(0,"00") & "." & Format(0, "00") ‘显示的格式
LastTime = 0
ResetIt = True
End Sub追问

能不能更详细点啊，把主要功能都注释下，谢谢啊！！

追答

你需要那一部分的吧，一行一行的来还是一功能一个功能的来？

追问

整个程序，按一个功能一个功能的来，谢谢了！

追答

Public StopIt AsBoolean
Public ResetIt As Boolean
Public LastTime

Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("b8") = 0 Then
StartTime = Timer '点下开始时间
PauseTime = 0 '暂停时间
LastTime = 0 '结束时间
以上为当开始点下时，开始时间为目前时间，就是开始计时。
Else
StartTime = 0
PauseTime = Timer
End If
以上为暂停

StartIt:
DoEvents
If StopIt = True Then ‘ 停止
LastTime= TotalTime
Exit Sub
以上为停止计时
Else
FinishTime = Timer
TotalTime= FinishTime - StartTime + LastTime - PauseTime ’
总共时间
TTime =TotalTime * 100
HM =TTime Mod 100
TTime =TTime \ 100
hh =TTime \ 3600
TTime =TTime Mod 3600
MM =TTime \ 60
SS =TTime Mod 60
Range("b8").Value = Format(hh, "00") & ":"& Format(MM, "00") & ":" & Format(SS,"00") & "." & Format(HM, "00")
以上为显示用时
IfResetIt = True Then
Range("b8") = Format(0, "00") & ":"& Format(0, "00") & ":" & Format(0,"00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
以上为计时归零

追问

谢谢

本回答被提问者采纳

相似回答

请各位老师帮我注释一下EXCEL VBA,我一点不懂现在工作中要用,着急呀...答：Sub Macro1()Dim arr, brr, crr, d As Object, i&, j&Set d = CreateObject("scripting.dictionary")arr = Sheet1.Range("a1").CurrentRegion '当前区域，既A到I列数据brr = Sheet2.Range("a1").CurrentRegion '当前区域，既A到H列数据，I列必须为空白。ReDim crr(1 To UBound(brr) ...

求一个vba(excel)命令,请按功能标注以下注释哈!答：Private Sub CommandButton1_Click()Dim OldSheet As Worksheet Dim NewSheet As Worksheet Set OldSheet = ActiveSheet Dim N As String Do While True N = InputBox("请输入一个日期")If IsDate(N) = False Then MsgBox "日期格式不合法", vbCritical Else Exit Do End If Loop Dim TimeLine...

请好心人帮忙写一下下面这段excel vba 代码注释。答：Dim MyRng As Range "定义MyRang、DesRng、cell为域变量 Dim DesRng As Range, cell As Range Set MyRng = Range("B2,B3,B7:G7") “给 MyRng 赋值 Set DesRng = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)”给 DesRng 赋值 For Each cell In MyRng ...

excel VBA语句注释答：1. Sub 计算()Dim a as Integer ；定义变量 a 为整数型 a=Val(InputBox(“请输入一整数a”) ；将对话框中输入的值转化为数值并赋值给变量a If a>=0 Then ；条件语句，如果a大于等于零 a=a+10 ；则，变量a等于原变量值+10 Else ...

excel vba 求大神给写一段代码,找出相同的单元格,填充底色,并汇总出 ...答：以下是一段 Excel VBA 代码，用于找出相同单元格，填充底色并汇总结果。假设您的数据位于 A1 到 C3 区域，您可以根据实际需要修改范围。```vba Sub FindSameCellsAndFill()Dim ws As Worksheet Dim rng As Range Dim cell As Range Dim color As Integer ' 设置查找范围 Set ws = ThisWorkbook....

Excel VBA 代码答：打开一个Excel文件，鼠标右击下面的工作表（如sheet1）。选择“查看代码”，就可以打开VBA编辑界面。选择如下图所示的下拉菜单，选择“worksheet”。选择如下图所示的下拉菜单，选择对应的触发模式。这里我们选择BeforeDoubleClick，意思就是说：在本工作表鼠标双击（之前），将触发下面的代码程序。（activate...

求助Excel VBA高手,请帮我把代码翻译成中文,告诉我此代码是什么意思!请...答：'循环 For j = 1 To index - 1 If Cells(i, 1) = goodname(j) Then '条件 Cells(i, 7).value = "滞销" '满足条件执行语句 Cells(i, 7).Font.ColorIndex = 3 '设置单元格字体颜色 End If Next j Next i esc: Exit Sub '标签下的代码"退出过程"End Sub 过程结束 ...

大家正在搜

excel vba 注释快捷键 EXCEL用VBA注释一片代码 excel 注释 excel宏注释 excel添加注释 excel编程注释 excel添加注释快捷方式 c注释代码多行 vba代码注释符号