标题: 求助，自动计算整个表记录的问题，请大侠赐教 [打印本页] 作者: bensonzhou 时间: 2010-4-28 15:31 标题: 求助，自动计算整个表记录的问题，请大侠赐教 例如，现有一个表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 时间: 2010-4-28 19:43
建一个宏
把所需的公式输入，再通过循环逐个计算数据
然后保存宏后运行即可作者: todaynew 时间: 2010-4-28 19:45
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 时间: 2010-4-28 19:47
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