Excel里能否编出一个秒表显示的程序出来？

这个EXCEL按钮是如何实现的文档中的

不知道你有没有计算机语言编程的基础，这个使用VBA编写的，按钮是在【开发工具】菜单（我用的是OFFICE2007，2003的菜单名字可能有所不一样）里面的【插入表单控件】添加的，然后进入设计模式编辑按钮点击的事件。 下面的是你所给宏的处理代码，希望你先了解一下VBA，然后在看这个。 Sub Macro1() ' ' Macro1 Macro ' ºêÓÉ None ¼ÖÆ£¬Ê±¼ä: 2006-12-7 ' ' Range("A2:B5")。 ...全部

  不知道你有没有计算机语言编程的基础，这个使用VBA编写的，按钮是在【开发工具】菜单（我用的是OFFICE2007，2003的菜单名字可能有所不一样）里面的【插入表单控件】添加的，然后进入设计模式编辑按钮点击的事件。
  下面的是你所给宏的处理代码，希望你先了解一下VBA，然后在看这个。 Sub Macro1() ' ' Macro1 Macro ' ºêÓÉ None ¼ÖÆ£¬Ê±¼ä: 2006-12-7 ' ' Range("A2:B5")。
  Select Selection。Copy Sheets("Ò»°à")。Select Range("A2")。Select ActiveSheet。
  Paste Range("A2")。Select Sheets("×ܱí")。Select Range("A2:C5")。Select Application。
  CutCopyMode = False Selection。Copy Sheets("¶þ°à")。Select Range("A2")。Select ActiveSheet。
  Paste Range("B2:B5")。Select Application。CutCopyMode = False Selection。Delete Shift:=xlToLeft Range("A2")。
  Select Sheets("×ܱí")。Select Range("A2:D5")。Select Selection。Copy Sheets("Èý°à")。
  Select Range("A2")。Select ActiveSheet。Paste Range("B2:C5")。Select Application。
  CutCopyMode = False Selection。Delete Shift:=xlToLeft Range("A2")。Select Sheets("×ܱí")。
  Select Range("A2:E5")。Select Selection。Copy Sheets("ËÄ°à")。Select Range("A2")。
  Select ActiveSheet。Paste Range("B2:D5")。Select Application。CutCopyMode = False Selection。
  EntireRow。Delete Range("A2")。Select Sheets("×ܱí")。Select Selection。Copy Sheets("ËÄ°à")。
  Select ActiveSheet。Paste Range("B2:D5")。Select Application。CutCopyMode = False Selection。
  Delete Shift:=xlToLeft Range("A2")。Select Sheets("×ܱí")。Select Range("A1:D1")。
  Select End Sub Sub Macro3() ' ' Macro3 Macro ' ºêÓÉ None ¼ÖÆ£¬Ê±¼ä: 2006-12-7 ' ' Sheets("Ò»°à")。
  Select Cells。Select Selection。ClearContents Selection。Borders(xlDiagonalDown)。LineStyle = xlNone Selection。
  Borders(xlDiagonalUp)。LineStyle = xlNone Selection。Borders(xlEdgeLeft)。LineStyle = xlNone Selection。
  Borders(xlEdgeTop)。LineStyle = xlNone Selection。Borders(xlEdgeBottom)。LineStyle = xlNone Selection。
  Borders(xlEdgeRight)。LineStyle = xlNone Selection。Borders(xlInsideVertical)。LineStyle = xlNone Selection。
  Borders(xlInsideHorizontal)。LineStyle = xlNone Range("A1")。Select Sheets("¶þ°à")。
  Select Cells。Select Selection。ClearContents Selection。Borders(xlDiagonalDown)。LineStyle = xlNone Selection。
  Borders(xlDiagonalUp)。LineStyle = xlNone Selection。Borders(xlEdgeLeft)。LineStyle = xlNone Selection。
  Borders(xlEdgeTop)。LineStyle = xlNone Selection。Borders(xlEdgeBottom)。LineStyle = xlNone Selection。
  Borders(xlEdgeRight)。LineStyle = xlNone Selection。Borders(xlInsideVertical)。LineStyle = xlNone Selection。
  Borders(xlInsideHorizontal)。LineStyle = xlNone Range("A1")。Select Sheets("Èý°à")。
  Select Cells。Select Selection。ClearContents Selection。Borders(xlDiagonalDown)。LineStyle = xlNone Selection。
  Borders(xlDiagonalUp)。LineStyle = xlNone Selection。Borders(xlEdgeLeft)。LineStyle = xlNone Selection。
  Borders(xlEdgeTop)。LineStyle = xlNone Selection。Borders(xlEdgeBottom)。LineStyle = xlNone Selection。
  Borders(xlEdgeRight)。LineStyle = xlNone Selection。Borders(xlInsideVertical)。LineStyle = xlNone Selection。
  Borders(xlInsideHorizontal)。LineStyle = xlNone Range("A1")。Select Sheets("ËÄ°à")。
  Select Cells。Select Selection。ClearContents Selection。Borders(xlDiagonalDown)。LineStyle = xlNone Selection。
  Borders(xlDiagonalUp)。LineStyle = xlNone Selection。Borders(xlEdgeLeft)。LineStyle = xlNone Selection。
  Borders(xlEdgeTop)。LineStyle = xlNone Selection。Borders(xlEdgeBottom)。LineStyle = xlNone Selection。
  Borders(xlEdgeRight)。LineStyle = xlNone Selection。Borders(xlInsideVertical)。LineStyle = xlNone Selection。
  Borders(xlInsideHorizontal)。LineStyle = xlNone Range("A1")。Select Sheets("×ܱí")。
  Select Range("A1:D1")。Select End Sub Sub Macro2() ' ' Macro2 Macro ' ºêÓÉ I ¼ÖÆ£¬Ê±¼ä: 2006-9-16 ' ' Range("A2:A5")。
  Select Selection。Copy Sheets("Sheet2")。Select Range("A2")。Select ActiveSheet。
  Paste Sheets("Sheet1")。Select Range("B2:B5")。Select Application。CutCopyMode = False Selection。
  Copy Sheets("Sheet2")。Select Range("B2")。Select ActiveSheet。Paste Sheets("Sheet2")。
  Select Sheets。Add Sheets("Sheet1")。Select Range("A2:A5")。Select Sheets("Sheet3")。
  Select Range("A2")。Select End Sub 。收起