Question

我有三组数据，每组有两列。第一列是日期，第二列是价格。每个数据集的日期格式不同，例如。黄金的日期（1951年），货币供应M2的日期（1951-01）和货币支持。 M3日期（19/01/1951）

我需要什么：

我想用x轴上的日期和y轴上的价格来绘制这些图表

问题：

我需要将黄金的日期（YYYY）和货币供应M2的日期（YYYY-MM）作为日期对象吗？
如果是这样的话？
我是否需要将所有日期放在一列中并创建一个子，以帮助按适当的日期对价格进行排序？

这有意义吗？

Answer 1

我在VBA编程方面经验很少，并且很难找到使用日期的信息。我遇到了一个由编辑本（brettdj）的人给出的答案，其中列出了一些关于excel的VBA编程的非常有用的景点。其中一个有关于DateSerial（）函数的信息。然后，我能够将一些代码放在一起，以便快速解决我的问题。

Sub CreateDates（）

Dim dt As Date
Dim s As String

For Each c In Worksheets("Sheet1").Range("A7:A27080").Cells
    s = Len(c.Value)

    If s = 4 Then '(YYYY)
        dt = DateSerial(s, 7, 1)
        c.Value = dt
    End If

    If s = 7 Then '(YYYY-MM)
        y = Left(s, 4)
        m = Right(s, 2)
        dt = DateSerial(y, m, 1)
        c.Value = dt
    End If

Next c

End Sub

我可能会花一些时间来添加一些正则表达式并使其最适合一个尺寸，但这样可以正常工作，因为我想要经常使用它。

日期和图表

1 个答案: