用VBA统计按钮控制数值变化 五行出现总次数

laoau138

用VBA统计按钮控制数值变化  五行出现总次数

P23按钮控制   蓝色单元格O23数值变化  当蓝色单元格O23变化时，绿色单元格U23:AB23也会变化
当蓝色单元格O23=1,统计U23:AB23这一行绿色单元格，分别含有多少个"金","木","水","火","土"
        当蓝色单元格O23=2,如此类推进行统计...........一直到蓝色单元格O23=12(单元格O23在1至12范围内循环)
所以一共需要统计12次绿色单元格，由于绿色单元格U23:AB23会变化
最后将"金","木","水","火","土" 总次数相加求和，保存黄色单元格第28行
最好不用辅助列，用VBA如何计算，用按钮控制结果输出

grf1973

1. Sub grf()
   
2.     Dim rng As Range
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 1 To 12
   
5.         [o23] = i
   
6.         For Each rng In Range("u23:ab23")
   
7.             d(rng.Value) = d(rng.Value) + 1
   
8.         Next
   
9.     Next
   
10.     For Each rng In [u27:y27]
    
11.         rng.Offset(1) = d(rng.Value)
    
12.     Next
    
13. End Sub
    

复制代码

laoau138

grf1973 发表于 2016-10-20 10:57

只用数组要怎么写