请教:能否把阵列公式改为编程

lxq2005

请教各位大侠,能否把以下阵列公式改为编程:

{=SUM(IF(MONTH(入库登记!$C$2C$10)=MONTH(汇总!$B$2),IF(入库登记!$D$2D$10=汇总!A4,入库登记!$E$2E$10)))}

thanks

[此贴子已经被作者于2006-9-22 17:01:29编辑过]

老鬼

用双重循环

lxq2005

谢谢鬼主的提示,但现在我对excel for VBA不熟悉,昨天试了一天,运行后无任何反应,

请鬼主及各位大侠再帮我看看宏,该怎么修改.

thanks

[此贴子已经被作者于2006-9-24 9:59:17编辑过]

老鬼

看你的表格，好像你只是想把公式自动插进入而已，那就用下面的代码吧

i = 0
    For Each CEL In Range("A4", Range("A4").End(xlDown))
        CEL.Offset(0, 1).FormulaArray = "=SUM((MONTH(入库登记!$C$2C$10)=MONTH(汇总!$B$2))*(入库登记!$D$2D$10=汇总!A" & (4 + i) & ")*(入库登记!$E$2E$10))"
        i = i + 1
    Next

lxq2005

鬼主辛苦了,我现在想知道的是不用插入公式,而是用你说的双重循环要怎样才能实现,希望鬼主不要嫌我麻烦,再次感谢鬼主.

[此贴子已经被作者于2006-9-24 16:48:27编辑过]

老鬼

双重循环效率会差点，方法如下：

Dim sumValue
Dim cel, cel2
    For Each cel In Range("A4", Range("A4").End(xlDown))
        sumValue = 0
        For Each cel2 In Sheets("入库登记").Range("D1", Sheets("入库登记").Range("D1").End(xlDown))
            If cel2.Value = cel.Value Then
                If Month(cel2.Offset(0, -1).Value) = Month(Range("b2")) Then
                    sumValue = cel2.Offset(0, 1).Value + sumValue
                End If
            End If
        Next
        cel.Offset(0, 1).Value = sumValue
    Next

另外提供不需双重循环的方法，程序比较简短：

i = 0
    For Each cel In Range("A4", Range("A4").End(xlDown))
        cel.Offset(0, 1).Value = Evaluate("=SUM((MONTH(入库登记!$C$2C$10)=MONTH(汇总!$B$2))*(入库登记!$D$2D$10=汇总!A" & (4 + i) & ")*(入库登记!$E$2E$10))")
        i = i + 1
    Next

lxq2005

十分感谢鬼主提供了两种方法并进行了比较,也十分感谢这个学习交流的平台,学以致用是最好的学习方法,在以后的学习过程中我也会以自己学到的东西来帮助别人.