求助，自动计算整个表记录的问题，请大侠赐教

bensonzhou

例如，现有一个表1，有A,B,C,D,E,F,D,G,H,I等字段，假设有200记录，
E = A*B
F=C+D
IF E >某数 then
````````
省略下面的计算公式，
怎样设计可以单击命令按钮，使得 表1 里面的所有记录的如E F G 等值自动计算出来，
从表1 的第一条记录依次计算到最后一条记录！

chenwm1973

建一个宏
把所需的公式输入，再通过循环逐个计算数据
然后保存宏后运行即可

todaynew

select A,B,C,D,A*B as E,C+D as F,iif(A+B>60,"及格","不及格")  as G from 表1

E\F\G冗余，数据表中可以不要。

chenwm1973

liru例如：
宏_计算（）
dim i as integer
for i=1 to 200
sheet1.range("E" & i).value = sheet1.range("a" & i).value* sheet1.range("b" & i).value
...
next