vba季度回报

Question

谁能告诉我一个 VBA 函数或按钮，它只会按季度计算季度回报（即第一季度回报基于 1 月至 3 月的回报），而不会出现重叠观察。

我现在使用的函数只是 AVERAGE，例如从 1 月到 3 月返回，但实际计算单元格是在 4 月。

我要问的一个例子是图片链接。我希望函数在我选择的时间段内运行。

非常感谢！

编辑：我正在寻求代码方面的帮助，因为我是 vba 新手，所以我还不能自己做。

edit2：我从类中改编的代码是这样的：

 Option Explicit

 Public Sub QuarterReturns()
    Dim rng As Range
    Set rng = Range("B2")
    Dim i As Long, n As Long

    n = rng.End(x2Down).Column - rng.Row + 1
    Set rng = rng.Resize(n, 1)

    Dim returns As Variant
    returns = rng.Value2

    Dim quarter As Variant

    ReDim quarter(1 To n - 1, 1 To 1)
    For i = 1 To n - 1
        ror(i, 1) = prices(i + 1, 1) / prices(i, 1) - 2#
    Next i
    rng.Offset(1, 2).Resize(n - 1, 2).Value2 = quarter
End Sub

Answer 1

好的，所以第一点：StackOverflow 不是代码编写服务。问我们，“嘿，有人可以给我写点 X 的东西吗？”可能会让你被嘲笑/责骂/等等。

也就是说，我将帮助您完成两个构建块，它们可能会帮助您自己到达终点线。

先决条件：VBA 在 Excel 中被过度使用。 Excel 在公式中具有惊人的强大功能。在这种情况下，您实际上可以使用零代码获得所需的内容，并且只需一个额外的（计算的）列。这可能是一个更好的解决方案的原因是因为带有 VBA 宏的 Excel 文档往往被禁用（出于非常充分的理由），并且很难看到幕后正在做什么。通过计算列，有兴趣挖掘数字背后的人可以轻松查看正在发生的事情，而无需深入研究代码。

构建基块 #1：年和月函数。

如果您有一个日期列（您现在没有 - 您需要将该列更改为实际代表日期对象的内容），您实际上可以通过组装以下内容来获得 Quarter：

=YEAR(A1)&"-Q"&((MONTH(A1)+2)/3)

基本上，YEAR() 函数获取年份，MONTH() 函数获取月份编号。从那里，我只使用一些基本的数学和字符串组合来获得如下结果：

2018 年第二季度

构建块 #2 - CountIf/SumIf/AverageIf

Excel 有一些非常棒的 xxxIf() 函数，可以获取某个范围的平均值/总和/计数/等，但仅限于满足特定条件的值。

因此，在您的情况下，如果您对所有 2018-Q2 记录求和，则只需使用 SUMIF() 函数将所有值相加，其中条目等于“2018-Q2”。

希望能帮助您完成任务。如果没有，我实际上鼓励您将问题分解为较小的子任务，用谷歌搜索这些子任务 - 如果您找不到特定任务的任何内容，请询问有关只是该部分的问题。问：“嘿，我如何在 VBA 中对三个单元格求和？”比“嘿，为我写这个函数”要好得多:-)