[已解决]vba如何求得动态平均值

nblq

老师们好，我现在有个问题请教大家。如图。
在行3已经有12个数据，行4需要手动输入。
p4为行4的平均值，我用公式直接求得。
现在要求是，比如图中p4为3个月的平均值，我需要p3求的也是前3个月的平均值，如果p4加入了一个数据即4个数据，那我需要p3也同样变化。
就是动态同期数据显示。

最佳答案

月排行榜 / 总排行榜

hoogle

2013-4-15 18:26

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim i, arr, Res, icount
   
3. arr = Range("d3:o4")
   
4. For i = 1 To UBound(arr, 2)
   
5.     If arr(2, i) <> "" Then
   
6.         Res = Res + arr(1, i)
   
7.         icount = icount + 1
   
8.     End If
   
9. Next
   
10. Range("p3") = Res / icount
    
11. End Sub
    

复制代码

代码放在sheet1工作表里

跳转到最佳答案楼层

nblq

大大们求救啊~~~~~

hoogle

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim i, arr, Res, icount
   
3. arr = Range("d3:o4")
   
4. For i = 1 To UBound(arr, 2)
   
5.     If arr(2, i) <> "" Then
   
6.         Res = Res + arr(1, i)
   
7.         icount = icount + 1
   
8.     End If
   
9. Next
   
10. Range("p3") = Res / icount
    
11. End Sub
    

复制代码

代码放在sheet1工作表里

hwc2ycy

用公式不就成了，这还整VBA。

nblq

hoogle 发表于 2013-4-15 18:26
代码放在sheet1工作表里

{:35:}谢谢，要的就是这个。

nblq

hwc2ycy 发表于 2013-4-15 18:38
用公式不就成了，这还整VBA。

在学习vba呢，想多学点撒，嘿嘿。
公式的话，怎么用？求指点

nblq

hwc2ycy 发表于 2013-4-15 18:38
用公式不就成了，这还整VBA。

大神，公式咋整？
求现身。求指点~~~