2016-09-13 3 views
0

저는 한 시트에서 다른 시트로의 데이터 전송을 자동화하기 위해 다음 코드를 작업 해 왔습니다. 그러나 시간 요소를 작성하는 방법에 붙어 있습니다. 시간은 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 
+0

[날짜] (http://stackoverflow.com/documentation/vba/3418/data-types-and-limits/11783/date#t=201609132226475078262)는 날짜 또는 시간을 저장합니다. Excel이 기본 방식으로 저장하는 방식입니다. – Comintern

답변

0

시간 변수를 날짜로 희미하게 표시하면 셀 형식이 접근 방식을 변경합니다.

시간이 저장되어 시간 값으로 셀에 표시되는 경우 기본 데이터 형식은 1보다 작은 십진수입니다. 따라서이 값을 이중으로 희미하게 표시 할 수도 있습니다.

현재 코드에서 double을 사용하면 형식이 새 셀로 이동하지 않지만 셀 값 만 나타납니다. 선호하는 시간 형식으로 대상 셀의 서식을 지정해야합니다.

그래서 날짜는 어둡게하려는 데이터 형식입니다.

관련 문제