HH：MM：SSを分単位で変換

Question

dd hh：mm出力を分単位で変換する方法。

つまり、「dd hh：mm」が「01 10:20」の場合、分数「2060」に値が必要です。

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を必要としませんが、Excelで何か

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

のような日付は、日数、その列Bの日付との差として保存され、現在の日時は 1.43055555556のような日数を与えます。 1日の時間数と1時間の分数（24 * 60 = 1440）を乗算すると、 2060.1234のようなものが得られます。その差異を整数 2060として表示するには、 .NumberFormat = "0"を使用します。秒を指定せずに分だけを使用する場合は、 INTまたは ROUNDの関数を使用できます。 =IFERROR(INT((RC[-1] - NOW()) * 24 * 60) , 0)