回复 10楼dof的帖子
我找到公式不起作用的原因了,是因为我移动了列,像下面代码,如果执行了grd.ActiveSheetView.MoveColumn(3, 1, 1),公式写的是C1*D1,实际却执行的是B1*D1,我公式是在移动列之后才生成的!
但我移动列是必须的,因为列是最终用户自己定义格式的,列的位置,宽度等等!
grd.ActiveSheetView.MoveColumn(3, 1, 1)
Dim i As Integer
For i = 0 To grd.Rows.Count - 1
grd.Cells(i, 4).Formula = "C" & (i + 1).ToString & "*D" & (i + 1).ToString
Next
问题例程如附件所示!
销售公式.rar
(2.45 MB, 下载次数: 163)
|