您的位置：程序门 -> vb -> 基础类

vb中如何对某一列求和？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb中如何对某一列求和？[已结贴,结贴人:abc0274]

发表于：2007-01-23 02:41:12 楼主

我现在相对excel中一列求和，其中行数是改变的
xlssheet.cells（no1, 2) = xlssheet.application.worksheetfunction.sum（)
其中no1代表最后需要写入数据的行数。
假如从第cells（5,2)一直加到cells（no-1,2），sum中该如何写呢？
谢谢！

发表于：2007-01-23 08:42:431楼得分:5

打开excel，录制宏，做上述操作，
然后编辑宏，里面就有原代码，excel里面怎么写的，基本上可以原封不动搬到vb里面用。

发表于：2007-01-23 10:02:052楼得分:5

sheet2.cells（23, 34) = str（totalch1)　 'totalch1 是在前边给表格赋值时单个加的和
' 'same as
' sheet2.range（ "ah23 ").value = application.worksheetfunction.sum（ "ah8:ah22 ")

或者如楼上录制宏

发表于：2007-01-23 12:02:303楼得分:0

宏好像是对确定的行还可以吧。可是我的行数不是确定的，不同的时候，数据的行数不一样。谢谢！

发表于：2007-01-24 23:01:044楼得分:0

帮忙呀！

发表于：2007-01-25 11:27:385楼得分:0

for循环就可以，定义好相应的变量就可以

发表于：2007-01-25 16:42:116楼得分:0

宏不错的东西。

有价值。

发表于：2007-01-26 00:19:217楼得分:0

还是用的宏，已解决！谢谢大家的帮忙了！

下一篇：ocx控件的使用许可问题！！大家帮忙
上一篇：一个关于insert后datagrid控件刷新的问题

其他资讯