用VBA或数学下面小时方式计算

laoau138

用VBA或数学下面小时方式计算

grf1973

共96次，第一次是00:00:00，最后一次是23:52:35

1. Sub tt()
   
2.     For h = 0 To 23
   
3.         hh = Format(h, "00")
   
4.         For m = 0 To 59
   
5.             mm = Format(m, "00")
   
6.             For s = 0 To 59
   
7.                 ss = Format(s, "00")
   
8.                 If hh & Left(mm, 1) = Right(mm, 1) & ss Then
   
9.                     n = n + 1
   
10.                     rst = rst & "," & hh & ":" & mm & ":" & ss
    
11.             End If
    
12.     Next s, m, h
    
13.     MsgBox "共" & n & "种情况，分别是：" & Mid(rst, 2)
    
14. End Sub
    

复制代码

grf1973

这样也行。

1. Sub ttt()
   
2.     For d = 0 To 1 Step 1 / 86400
   
3.         dd = Format(d, "hh:mm:ss")
   
4.         If Left(dd, 2) & Mid(dd, 4, 1) = Mid(dd, 5, 1) & Right(dd, 2) Then
   
5.             n = n + 1
   
6.             rst = rst & "," & dd
   
7.         End If
   
8.     Next
   
9.     MsgBox "共" & n - 1 & "种情况，分别是：" & Mid(rst, 2, Len(rst) - 10)
   
10. End Sub
    

复制代码

laoau138

grf1973 发表于 2017-2-9 10:51
这样也行。

用VBA数组把多个工作表中数据   汇总到一个工作表中

http://www.excelpx.com/thread-427604-1-1.html



VBA把字典改写成  纯数组方法   按列计算遗漏值

http://www.excelpx.com/thread-427607-1-1.html