1つのシートから別のシートに時間を転送する - どの薄暗いオプション？

Question

私は次のコードを使って、あるシートから別のシートへのデータ転送を自動化しています。しかし、私は時間要素を書く方法に固執しています。時刻はhh：mmの形式で、同じ形式で転送されます。どんな助けでも大歓迎です!!

Private Sub Commandbutton1_Click() 

    Dim Dateadded As Date 
    Dim Time As ??? 
    Dim nameoftask As String 
    Dim typeoftask As String 
    Dim Iffollowupwhichtaskisitfollowing As String 
    Dim Howwastaskcommunicated As String 
    Dim Whowastaskcommunicatedto As String 
    Dim Whorequestedtask As String 
    Dim Whatistaskrequiredfor As String 
    Dim Descriptionoftask As String 
    Dim Deadlinefortask As Date 
    Dim myData As Workbook 

    Worksheets("sheet1").Select 
    Dateadded = Range("b5") 
    Time = Range("b7") 
    nameoftask = Range("b9") 
    typeoftask = Range("b11") 
    Iffollowupwhichtaskisitfollowing = Range("b13") 
    Howwastaskcommunicated = Range("b15") 
    Whorequestedtask = Range("b17") 
    Whatistaskrequiredfor = Range("b19") 
    Descriptionoftask = Range("b21") 
    Deadlinefortask = Range("b23") 

    Set myData = Workbooks.Open("filelink") 
    Worksheets("sheet1").Select 
    Worksheets("sheet1").Range("a1").Select 
    RowCount = Worksheets("sheet1").Range("a1").CurrentRegion.Rows.Count 
    With Worksheets("sheet1").Range("a1") 
    .Offset(RowCount, 1) = Date 
    .Offset(RowCount, 2) = Time 
    .Offset(RowCount, 3) = nameoftask 
    .Offset(RowCount, 4) = typeoftask 
    .Offset(RowCount, 5) = Iffollowupwhichtaskisitfollowing 
    .Offset(RowCount, 6) = Howwastaskcommunicated 
    .Offset(RowCount, 7) = Whowastaskcommunicatedto 
    .Offset(RowCount, 8) = Whorequestedtask 
    .Offset(RowCount, 9) = Whatistaskrequiredfor 
    .Offset(RowCount, 10) = Descriptionoftask 
    .Offset(RowCount, 11) = Deadlinefortask 
    End With 
    myData.Save 
    End Sub 

Answer 1

時間変数を日付として淡色表示にすると、セル形式によってアプローチが変更されます。

時刻がセルに時間値として格納されて表示されている場合、基になるデータ型は1未満の10進数です。したがって、それを2倍にすることもできます。

現在のコードでdoubleを使用しても、セルの値だけでは、新しいセルにはフォーマットが適用されません。ターゲットセルを好みの時間フォーマットでフォーマットする必要があります。

したがって、日付は、暗くしたいデータタイプです。