将时间从一张纸转移到另一张纸 - 哪个暗淡选项？答案

【问题标题】：Transferring times from one sheet to another - which dim option?将时间从一张纸转移到另一张纸 - 哪个暗淡选项？
【发布时间】：2016-09-13 22:25:08
【问题描述】：

我一直在编写以下代码来自动将数据从一张纸传输到另一张纸；但是我被困在如何编写时间元素上。时间将采用 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

【问题讨论】：

Date 将存储日期或时间。这就是 Excel 本地存储它们的方式。

标签： excel vba time transfer

【解决方案1】：

如果您将时间变量调暗为日期，则单元格格式将与您的方法一致。

如果时间作为时间值存储并显示在单元格中，则其基础数据类型是小于 1 的十进制数。因此您也可以将其调暗为双精度数。

但是，如果您在当前代码中使用双精度值，则该格式不会出现在新单元格中，只是单元格值。您需要使用您喜欢的时间格式来格式化目标单元格。

因此，日期是您想要调暗的数据类型。

【讨论】：