千库网vip破解:请问怎么在excel里做一个时间开始按钮（点一下就记下系统当前时间），或者做一个钞表功能的东西也行。

我写了两个宏，一个是开始计时，一个是计时结束
分开两个按钮的，你试试。
大概思路是：在A2单元格里=now(),复制并选择性粘贴数值，将时间固定下来，然后第二个宏在B2单元格做一样的事，C2单元格=B2-A2

Sub 开始计时()
'
' 计时 Macro
' ST 记录的宏 2006-5-18
'

'清除
Cells.Select
Application.CutCopyMode = False
Selection.ClearContents
'设定时间格式
Cells.Select
Selection.NumberFormatLocal = "h""时""mm""分""ss""秒"";@"
Range("A1").Select
ActiveCell.FormulaR1C1 = "开始时间"
Range("B1").Select
ActiveCell.FormulaR1C1 = "结束时间"
Range("C1").Select
ActiveCell.FormulaR1C1 = "总用时"
Range("A2").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("A2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub 计时结束()
'
' 计时结束 Macro
' ST 记录的宏 2006-5-18
'

Range("B2").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("B2").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]"
Range("C3").Select
Range("C2").Select
Selection.Font.ColorIndex = 3
End Sub