将时间从一张纸传输到另一张 - 哪个暗淡选项?
问题描述:
我一直在努力处理下面的代码以自动将数据从一张纸传输到另一张;但是我坚持如何编写时间元素。时间格式为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
答
如果将时间变量变暗为日期,则单元格格式将使其与您的方法一致。
如果时间存储并显示在单元格中作为时间值,则其基础数据类型是小于1的十进制数。因此,您也可以将其调暗为双精度值。
如果您在当前代码中使用双精度型,则格式不会出现在新单元格中,不过只是单元格值。您需要使用您的首选时间格式来格式化目标单元格。
所以,日期是您想要变暗的数据类型。
[Date](http://*.com/documentation/vba/3418/data-types-and-limits/11783/date#t=201609132226475078262)将存储日期或时间。这就是Excel如何在本地存储它们。 – Comintern