从格式化时间减去5分钟，然后用秒重新格式化答案

Question

  

可能重复：
  VBA Excel: Add one second to a time

我有一个Excel电子表格，其时间值格式为Custom 00“00”。我想从这个值中减去5分钟，然后使用Excel VBA将答案格式化为hh：mm：ss。我看了一遍，但没有找到答案。我尝试使用各种时间功能，但没有太多运气。我是一名新的Excel VBA程序员。任何建议将不胜感激。

Answer 1

如果Cell拥有真实日期时间值，您可以使用以下内容：

Cells(r, c).Value = DateAdd("n", -5, Cells(r, c).Value)
Cells(r, c).NumberFormat = "hh:mm:ss"

Answer 2

我不知道自定义格式00"00"应该做什么，但是因为你说你有＃34; ...带有时间价值的电子表格......＆＃34;我假设基础数据是日期/时间序列号。

如果是这种情况，那么

Dim cl as Range
Set cl = Range("YourCellAddress")
cl = cl - 5# / 1440# ' subtract 5 minutes
cl.NumberFormat = "hh:mm:ss" ' format