[已解决]有一个公式转换成VBA代码

a8598048

这个公式怎么写成代码呢？
想了半天 不会写啊
求大侠帮忙
Sigma   =(((E2-100)^2+(E3-100)^2+(E4-100)^2+(E5-100)^2+(E6-100)^2+(E7-100)^2+(E8-100)^2
现在我有8行 所以到8     假如我有27行下面就还得一直加到(E27-15)^2
明白我要问的问题么？
在线等大侠回答

最佳答案

月排行榜 / 总排行榜

w2001pf

2013-7-8 11:00

你看是这样的吗？
For i = 2 To 27
Sigma = Sigma + (Range("E" & i) - 100) ^ 2
Next

跳转到最佳答案楼层

顺⑦.zì繎。

前面的都减去 100 的2次方。。最后为什么是减15？？？这个如何得来？？

w2001pf

你看是这样的吗？
For i = 2 To 27
Sigma = Sigma + (Range("E" & i) - 100) ^ 2
Next

顺⑦.zì繎。

Sub LEIJIA()
For I = 2 To Cells(Rows.Count, 5).End(xlUp).Row
A = Cells(I, 5) - 100
B = B + A ^ 2
Next I
[B1] = B
End Sub
蒙一个 就当15是笔误

a8598048

w2001pf 发表于 2013-7-8 11:00
你看是这样的吗？
For i = 2 To 27
Sigma = Sigma + (Range("E" & i) - 100) ^ 2

对的
不过需要完善一下
这样就OK了
Sub 按钮1_Click()
Dim mid As Double
Dim x As Integer
Dim sim As Double
x = WorksheetFunction.CountA(Range("A:A"))
For i = 2 To x
sigma = sigma + (Range("E" & i) - 100) ^ 2
Next