UC知道VB2008 如何自动填充Excel公式？
来源：百度知道 编辑：UC知道 时间：2024/06/16 13:01:50
用VB2008写了个程序，来根据指定公式计算数据
部分代码如下：
objExcel.Range("u3").Select()
objExcel.ActiveCell.Formula = "=((d3/10-5)*6+(e3/10-5)*2+(f3/10-5)*7+(g3/10-5)*2.5+(h3/10-5)*2+(i3/10-5)*1+(j3/10-5)*2+(k3/10-5)*2+(l3/10-5)*6.5+(m3/10-5)*1+(n3/10-5)*3.5+(o3/10-5)*2+(p3/10-5)*2+(q3/10-5)*2+(r3/10-5)*1)/42.5"
这样U3格中可以计算出数据
但如何自动填充公式，让U4 U5 U6...都可以用这个公式？
备注：
1、我不是用的VBA，也没有用宏。而是在VB中直接操作Excel
先谢谢各位了！
1L的办法试了一下
似乎还是只能计算U3这一个单元格的内容
部分代码如下：
objExcel.Range("u3").Select()
objExcel.ActiveCell.Formula = "=((d3/10-5)*6+(e3/10-5)*2+(f3/10-5)*7+(g3/10-5)*2.5+(h3/10-5)*2+(i3/10-5)*1+(j3/10-5)*2+(k3/10-5)*2+(l3/10-5)*6.5+(m3/10-5)*1+(n3/10-5)*3.5+(o3/10-5)*2+(p3/10-5)*2+(q3/10-5)*2+(r3/10-5)*1)/42.5"
这样U3格中可以计算出数据
但如何自动填充公式，让U4 U5 U6...都可以用这个公式？
备注：
1、我不是用的VBA，也没有用宏。而是在VB中直接操作Excel
先谢谢各位了！
1L的办法试了一下
似乎还是只能计算U3这一个单元格的内容
objexcel.range("u3:u5").formula="=((d3/10-5)*6+(e3/10-5)*2+(f3/10-5)*7+(g3/10-5)*2.5+(h3/10-5)*2+(i3/10-5)*1+(j3/10-5)*2+(k3/10-5)*2+(l3/10-5)*6.5+(m3/10-5)*1+(n3/10-5)*3.5+(o3/10-5)*2+(p3/10-5)*2+(q3/10-5)*2+(r3/10-5)*1)/42.5"
PS:如果你不希望行号自动变化，可以给他们加上绝对引用的标志$