Question

如何仅在几分钟内转换dd hh：mm输出。

即如果＆＃34; dd hh：mm＆＃34;是＆＃34; 01 10：20＆＃34;我只需要在会议纪要＆＃34; 2060＆＃34;。

Sub ACD()

lastrow = ActiveSheet.UsedRange.Rows.Count

Range("C1").Select

ActiveCell.FormulaR1C1 = "=IFERROR(TEXT(RC[-1]-NOW(),""dd hh:mm""),""00 00:00"")"

Selection.AutoFill Destination:=Range("C1:c" & lastrow)

For b = 1 To lastrow

    b = DateDiff("n", Now(), Range("B" & b).Value)

Next

End Sub

Answer 1

正如有人提到的，你并不真的需要VBA，但是像

那样

Sub ACD()      
    With ActiveSheet.UsedRange.Range("C:C")
        .FormulaR1C1 = "=IFERROR( ( RC[-1] - NOW() ) * 24 * 60 , 0 )"
        .NumberFormat = "0"
    End With
End Sub

Excel中的日期存储为天数，因此B列中的日期与当前日期时间之间的差异将为您提供像1.43055555556这样的天数。如果您将其乘以一天中的小时数和一小时内的分钟数（24 * 60 = 1440），您将获得类似2060.1234的内容。 .NumberFormat = "0"用于将差异显示为整数2060。如果您只想要没有秒数的分钟数，则可以使用INT或ROUND函数：=IFERROR( INT( ( RC[-1] - NOW() ) * 24 * 60 ) , 0 )

在几分钟内转换HH：MM：SS

1 个答案: