1

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

我需要的：

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

问题：

  • 我需要将 Gold 的 Date(YYYY) 和 Money Supply M2 的 Date(YYYY-MM) 设为日期对象吗？
  • 如果是这样怎么办？
  • 我是否需要将所有日期放在一列中并创建一个子项以帮助使用适当的日期对价格进行排序？

这有意义吗？

4

1 回答 1

0

我在 VBA 中编程的经验很少，并且很难找到有关使用日期的信息。我遇到了一个答案，由编辑此文章的人 (brettdj) 给出，其中列出了一些对 Excel 的 VBA 编程非常有用的观点。其中之一有关于 DateSerial() 函数的信息。然后我可以拼凑一些代码来快速解决我的问题。

子创建日期（）

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

结束子

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

于 2012-09-27T21:00:01.400 回答