如何形成自动计数啊？

andy800529

我想在excel中形成一个能够动画起来的图表。希望能够自动动起来（一般我看到的都是手动调整数值）我原来是想用now这个函数来获取不同数值，但好像效果不是非常好。
不知道excel有没有这样的函数，就是能够自动在单元格里显示1，2，3，4，5……
有什么好办法吗？

Jaofuan

随机  RANDBETWEEN 函数呢

zhangwangvc

row函数可以

丢丢表格

用函数是不可能成功的，必须写一个时间 VBA。

andy800529

Jaofuan 发表于 2019-6-20 10:19
随机  RANDBETWEEN 函数呢

要随时间动态变化。randbetween只能一次性产生一个随机值，不能达到我的需求。

andy800529

丢丢表格 发表于 2019-6-20 10:21
用函数是不可能成功的，必须写一个时间 VBA。

有没有前人做过这个事情啊？

andy800529

我从网上找了以下这段代码，运行的时候发现出现了错误
我不知道为什么。


Dim n '公用变量，记住下一个任务执行的时间
Dim a '开始时间
Dim b '结束时间
Sub 计时()
n = Now + TimeValue("00:00:01") '设定时间间隔为一秒
If Now() > b Then MsgBox "倒计时结束": Call 停止: Exit Sub
[c4] = Format(b - Now(), "h:mm:ss") '设置单元格格式
Application.OnTime n, "计时" '到指定时间后再执行本过程
End Sub
Sub 开始()
[c2] = Format([c2], "h:mm:ss") '设置单元格格式
a = [c2] '设定时间
b = Now() + a '计算结束时间
[c3] = Format(b, "yyyy-m-d h:mm:ss") '设置单元格格式
Call 计时
End Sub
Sub 停止()
On Error Resume Next
Application.OnTime n, "计时", , False '停止任务的执行
End Sub


Sub kk()
    n = Now + TimeValue("00:00:01")
    Cells(1, 1) = n
    Application.OnTime n, "计时"
End Sub