用于将IST转换为AEST的宏

时间:2018-09-09 13:54:57

标签: excel vba excel-vba

我在Excel中有“印度标准时间”列,必须使用VBA将其转换为“澳大利亚东部标准时间”

在Excel中,它非常简单,如下所示:

如果B列具有IST,而我在C列中需要AEST,则C = B +“ 4:30”  但是我无法在宏中使用相同的公式。

如果有人能帮助我,我将非常感激。

预先感谢

1 个答案:

答案 0 :(得分:3)

您的公式方法似乎是正确的:

enter image description here

使用VBA宏:

Sub TimeKonvert()
    Dim d As Date
    For i = 1 To 20
        d = Cells(i, 2).Value
        Cells(i, 3).Value = d + TimeSerial(4, 30, 0)
    Next i
End Sub

例如:

enter image description here

请注意第7行中的日期翻转。

注意:

如果您有一个有效的公式,并且希望VBA应用它,例如:

Sub Konverter2()
    Range("C1:C20").Formula = "=B1+TIME(4,30,0)"
End Sub

也可以。