编写程序为Excel单元格添加公式的方法

办公教程导读

收集整理了【编写程序为Excel单元格添加公式的方法】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含483字，纯文字阅读大概需要1分钟。

办公教程内容图文

图1　需要处理的工作表

2、打开Visual Basic编辑器，在工程资源管理器中添加一个模块，在该模块的“代码”窗口中输入如下程序代码：

Sub Gongshi()

Sheet1.Range("G2:G20").FormulaR1C1="=sum(rc[-4]:rc[-1])"

End Sub

提示

在VBA中，Range对象的Formula和FormulaR1C1这两个属性都能用来设置公式。Formula属性返回或设置指定对象的公式，该公式是使用A1样式表示的公式;FormulaR1C1属性返回或设置指定对象的公式，该公式是使用R1C1样式表示的公式。

3、按F5键运行程序，指定的单元格区域中将填充公式并获得计算结果，如图2所示。

图2　填充公式并获得计算结果