60进制的递加，谢谢liulang0808和ykcbf1100、zxsea_7426老师！

ykcbf1100

时间递增。。。

ykcbf1100

参与一下。。。

ynzsvt

lhj323323 发表于 2024-10-18 08:29
老师，这个怎么运用在按纽里？

自定义函数，不用按钮的。就函数的用法。注意单元格使用的绑定与非绑定即可。

likaiyihou

没有使用内嵌时间函数，从数学角度出发写了一个计算函数，望能帮助理解：

lhj323323

ykcbf1100 发表于 2024-10-18 08:42
参与一下。。。

太不可思议了！
我今天都抄了3遍了，仍报错

老师能否帮我看看，我到底错在哪儿了




我抄的源码，如下

1. Sub TEST3() 'by EH ykcbf1100
   
2.                 'https://club.excelhome.net/thread-1704002-1-1.html
   
3.    num = [a1].Value
   
4. t = TimeValue(Format(CStr(num), "00:00:00"))
   
5.     k = Val([b1].Value)
   
6.     ReDim brr(1 To 50, 1 To 1)
   
7. For i = 1 To 50
   
8.       brr(i,1)=val(cdbl(format(dateadd("s",k*i,t),"hhmmss"))
   
9. Next
   
10. [a2].Resize(50, 1) = brr
    
11. End Sub

复制代码

lhj323323

liulang0808 发表于 2024-10-18 08:01
不知道，理解对不对的

别恭喜了，没资格。
就让我呆在【初级】里吧

一招秒杀

1句全搞定，简单到让人 目瞪口呆 。

zxsea_7426

lhj323323 发表于 2024-10-19 09:36
太不可思议了！
我今天都抄了3遍了，仍报错

你抄的括号不成对。

lhj323323

zxsea_7426 发表于 2024-10-19 14:06
你抄的括号不成对。

太感谢了！
我在抄的时候，每一组还是套写的，结果还是出错。

ykcbf1100

lhj323323 发表于 2024-10-19 09:36
太不可思议了！
我今天都抄了3遍了，仍报错

不好意思，才看到。

忘了你是用xls文件的，现把我代码上传。

1. Sub ykcbf()   '//2024.10.18
   
2.     num = [a1].Value
   
3.     t = TimeValue(Format(CStr(num), "00:00:00"))
   
4.     k = Val([b1].Value)
   
5.     ReDim brr(1 To 50, 1 To 1)
   
6.     For i = 1 To 50
   
7.         brr(i, 1) = Val(Format(DateAdd("s", k * i, t), "hhmmss"))
   
8.     Next
   
9.     [a2].Resize(50, 1) = brr
   
10. End Sub
    
11. 
    

复制代码