Excel单元格中的公式计算值

请帮我毁了我儿子的假期！（我让他学习数学）。

他必须做大量的几何练习，所以我以为我会用Excel来跟踪进度：对于他所做的每个问题，我都会使用两个单元格：一个用于跟踪他开始处理问题的时间，以及另外还可以存储他在这个问题上工作的持续时间。通过这种方式，我可以跟踪他的进度，并且通过向他的老师证明他确实投入了一些精力，我也能够做一点社会工程。

现在，假设我们有第一个问题的A1，B1和C1单元格。我的想法是，当他开始研究这个问题时，他会将当前时间输入到单元格A1。当他停止处理问题时，他会将当前时间输入到单元格B1。然后，C1将通过从B1中减去A1来计算和存储持续时间。（版本2可能会在单元格中托管一个按钮，以便单击它一次将填充A1，再次单击它会将值存储在B1中并计算C1 :)）

但是，如果我执行A1 = NOW（），则时间不是值，而是“不断更新”的公式。我想要的是做A1 =我儿子开始处理问题时NOW的返回值。

我该怎么做呢？

Ctrl+ ;将当前日期作为固定值插入单元格。结合Shift以获得当前时间。

资料来源：http：//office.microsoft.com/en-us/excel-help/insert-the-current-date-and-time-in-a-cell-HP003056107.aspx#BMinsert_a_static_date_or_time

注意：

这适用于标准的美式键盘布局。在其他键盘布局上，组合可能不同; 例如，使用标准的德语键盘布局.而不是;。

我更喜欢使用按钮的想法，所以这里有一些代码可以使用：

Global i As Integer
Sub Button1_Click()
ActiveSheet.Shapes(1).Select
If Selection.Characters.Text = "Start" Then
    i = 1
    Do Until IsEmpty(Range("A" & i).Value)
        i = i + 1
    Loop
    Range("A" & i).Value = Now()
    ActiveSheet.Shapes(1).Select
    Selection.Characters.Text = "Stop"
    Range("A" & i).Select
ElseIf Selection.Characters.Text = "Stop" Then
    Range("B" & i).Value = Now()
    Range("C" & i).Value = DateDiff("s", Range("A" & i).Value, Range("B" & i).Value)
    ActiveSheet.Shapes(1).Select
    Selection.Characters.Text = "Start"
    Range("C" & i).Select
End If

End Sub

我的excel编程技巧可能不完美或有效，但为了这个目的，它应该足够了。确保不要忘记全局变量。这也假设您的第一个按钮是持有此代码的按钮（并且它上面有文本“开始”）。自动计算以秒为单位的时间。