Question

如何在excel中用vba把小时换为分钟，比如 25小时30分钟 换成分钟 是1530分钟，怎么实现呢？

这里的25小时30分钟在excel里输入的是25：30 ，我曾用hour 函数和minute 函数转换过，但是貌似这两个函数只对小于24的才有用，求高手解答。。

Answer 1

不必用VBA，用公式即可。
假如25:30在A1，公式为=A1*1440，单元格设置为常规即可。

追问

那如果我要把分钟转化为小时分钟的格式呢，比如说1530分钟，我要把它转化为25:30，并把它填写在单元格中，这要怎么实现呢？

追答

假如1530在A1，公式为=A1/1440，单元格设置为自定义格式[h]:mm。

Answer 2

一定要用VBA的话，比如A1里输入25：30 ，在A2里转换成分。 range("A2")=mid(range("A1"),1,instr(1,range("A1"),":")-1)*60+mid(range("A1"),instr(1,range("A1"),":")+1)

必须要求25：30 这样的输入
直接用公式设置的话，参照上面那位的回答

Answer 3

Dim s, iMinute
s = Split("25:30", ":")
iMinute = s(0) * 60 + s(1)
MsgBox iMinute