我想要的只是在格式为[hh]:mm:ss的Excel工作表中输入时间而没有Excel对我疯狂*。
我只想进入30:25 30分25秒,而不会在单元格中进入30:25:00,不知何故" 1/1/1900 6:25:00 AM"在公式栏中。
如果它是一个冒号,只需几分钟和几秒钟,如果有两个冒号,它还包括几小时。这根本不可能吗?
答案 0 :(得分:0)
Public Sub TestMe()
Application.StatusBar = Minute(Now) & " minutes " & Second(Now) & " seconds."
End Sub
如果你有某种强迫症,你想要分钟和分钟,这取决于它是否是1分钟,这是实现它的一种方法:
Public Sub TestMe()
Dim currentTime As Date
Dim displayValue As String
currentTime = Now
If Minute(currentTime) = 1 Then
displayValue = Minute(currentTime ) & " minute "
Else
displayValue = Minute(currentTime ) & " minutes "
End If
If Second(currentTime) = 1 Then
displayValue = displayValue & Second(currentTime) & " second."
Else
displayValue = displayValue & Second(currentTime) & " seconds."
End If
Application.StatusBar = displayValue
End Sub