使用VBA宏计算分子和分母

Question

我在用excel VBA计算分子和分母时遇到了问题。num和den仅限于在excel电子表格中输入数据的季度。

下面是一个例子:我的excel表格中有两列：

Date_data_entered_for each_person   Number of visits to the office
1/1/2009                                            5
1/10/2009                                           6
2/10/2009                                           7
5/12/2009                                           9

根据这个例子，我必须计算每个季度的“平均访问次数”=访问总和/人数。在这个2009年第一季度的示例中，输入了3个人的数据，访问总次数为5+6+7 = 18，因此平均值= 18/3 = 6。

我写的代码是：

Function Visits(target_timeframe)

    Target_Quarter = Format(target_timeframe, "YYYYq")

    For vRow = 2 To 2000

        entered_timeframe = Format(Sheets("sheet1").Range("A" & vRow).Value, "YYYYq")

        Entered_Visits = Sheets("sheet1").Range("B" & vRow).Value 'equals value of column

        If (entered_timeframe = Target_Quarter) Then
            denominator = denominator + 1
            If (Entered_Visits > 0) Then
                numerator = numerator + 1
            End If
        End If
    Next

    If denominator > 0 Then
        Average = numerator / denominator
    Else
        Average = "N/A"
    End If

End Function

我不知道代码出了什么问题。这不是计算平均值。如果有人能帮助我解决这个问题，我将不胜感激。

感谢您的宝贵时间！

Answer 1

我认为这不是：

numerator = numerator + 1

您需要：

numerator = numerator + Entered_Visits 

使用当前代码，您只需每次向分子添加1，而实际上您希望将访问次数添加到分子。