Question

delphi像excel表格添加公式

想像excel表格中添加公式，看网上的代码是
MsExcel.Range['B5:B5'].Formula:='=Sum(B6:B9)';这样
我现在遇到的问题是，我后面相加的行数是不确定的，前面想要添加的单元格也得通过程序循环之后才能知道是哪个，我能得出一个行数iRow，我不知道这种情况比如后面那个'=Sum(B6:B9)'该怎么写，如何将B6，B9替换为IRow呢？大家帮我看看！

Answer 1

可以考虑用INDEX函数，比如说如下公式：
=SUM(B6:B9)
可以转换为下面这个公式，其结果是完全一样的：
=SUM(INDEX(B:B,6):INDEX(B:B,9))
在下面的这个公式里只需要把你得出的行数iRow替换进去就可以了，比如你要让B列第6行到第iRow行相加则写Delphi代码如下：
:='Sum(INDEX(B:B,6):INDEX(B:B,'+iRow+'))';
此外，如果你连B列也不确定，想用第2列（或者第iCol列）来指定的话，公式还可以写成：
=SUM(INDEX(A:ZZ,6,2):INDEX(A:ZZ,9,2))
其中INDEX(A:ZZ,6,2)指的就是第6行第2列（即B6）

注：我只在EXCEL里测试了公式的可用性，没在DELPHI里试，希望有用。