ExcelのVBA - フロアの列の使用済み行

Question

フロアを使用して、列の使用範囲を時間別データに変換しようとしています。 59：：私は=FLOOR(A2, "1:00")

ので2016年7月1日07を持っているExcelの機能として

59.0000000は私がやりたい01-07/2016 7時

なります最初の行がヘッダーである列AだけのVBAでこれ。私はdateTimeに後で変換する必要があると思うが、それについてはまだ考えていない（困難ではない）。

.Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)) = _ 
    Application.WorksheetFunction.Floor(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp), "1:00") 

をしかし、引数エラーの間違った番号を取得：

私はこれを試してみました。

この：

.Range("A:A") = Application.WorksheetFunction.Floor("A:A", "1:00") 

は、型の不一致を示します。

どのように進むかわかりません。

Answer 1

VBAでWorksheetFunction.Floor Methodはワークシート=Floor関数とは少し異なっている：

WorksheetFunction.Floor(Arg1, Arg2) 

両方引数Arg1とArg2タイプdoubleである必要があります。

だから、1/24の代わり"1:00"（1時間は、一日の1/24であるため、同じである）と値.Cells(i, "A").Valueの代わりに、セルの参照名"A:A"を使用する必要があります。 また、あなたは、あなたが数式を入力して、同じセルを参照しようとするあなたは、循環参照エラーが発生します

Option Explicit 'First line at your module ensures you declare any variables 

Public Sub FloorFormat() 
    Dim lastRow As Long 

    With Worksheets("Sheet1") 'Your sheet name here 
     lastRow = .Range("A" & .Rows.Count).End(xlUp).Row 'find last used row 

     Dim i As Long 
     For i = 1 To lastRow 'do the following for all used rows in column A 
      .Cells(i, "A").Value = Application.WorksheetFunction.Floor(.Cells(i, "A").Value, 1/24) 
     Next i 
    End With 
End Sub