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