[已解决]VBA运用函数问题

cb_clx

如果用VBA代码来表达附件所示的函数问题，我自己写了一段代码但是达不到我想要的效果，请各位老师指点一下。谢谢！

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-13 21:19

Sub a()
    Dim x As Integer
    For x = 6 To 30
        Cells(x, "e") = Application.Evaluate("sumproduct(g4:p4,g" & x & ":p" & x & ") * (c" & x & " +1)")
    Next
End Sub



原因1
=SUMPRODUCT($G$4:$P$4,G6:P6)*(C:C+1)
每次循环时，蓝色部分并不像工作表函数（自动转换转换成该行C列的值）。

原因2
每次循环时，公式里的相对引用未起作用，也就是说相当于是固定引用。

解决办法：
将每次循环时，要改变的行数，用循环变量x替代。

跳转到最佳答案楼层

爱疯

Sub a()
    Dim x As Integer
    For x = 6 To 30
        Cells(x, "e") = Application.Evaluate("sumproduct(g4:p4,g" & x & ":p" & x & ") * (c" & x & " +1)")
    Next
End Sub



原因1
=SUMPRODUCT($G$4:$P$4,G6:P6)*(C:C+1)
每次循环时，蓝色部分并不像工作表函数（自动转换转换成该行C列的值）。

原因2
每次循环时，公式里的相对引用未起作用，也就是说相当于是固定引用。

解决办法：
将每次循环时，要改变的行数，用循环变量x替代。

pengyx

Sub a()
      Dim x As Integer
          For x = 6 To 30
          s = 0
            For y = 7 To 16
                s = s + Cells(x, y) * Cells(4, y) * (Cells(x, 3) + 1)
            Next
             Cells(x, "e") = s
          Next
End Sub

爱疯

如果要用VBA，应以VBA的思路处理，比如3楼那样。