學(xué)習(xí)教程：編寫程序?yàn)镋xcel單元格添加公式的方法

1、啟動(dòng)Excel并打開工作表，如圖1所示。這是一個(gè)成績表，現(xiàn)在需要向“總分”列添加求和公式來計(jì)算各科的總分。下面通過編寫VBA程序來實(shí)現(xiàn)公式的添加操作。

圖1　需要處理的工作表

2、打開Visual Basic編輯器，在工程資源管理器中添加一個(gè)模塊，在該模塊的“代碼”窗口中輸入如下程序代碼：

Sub Gongshi()

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

End Sub

提示

在VBA中，Range對(duì)象的Formula和FormulaR1C1這兩個(gè)屬性都能用來設(shè)置公式。Formula屬性返回或設(shè)置指定對(duì)象的公式，該公式是使用A1樣式表示的公式;FormulaR1C1屬性返回或設(shè)置指定對(duì)象的公式，該公式是使用R1C1樣式表示的公式。

3、按F5鍵運(yùn)行程序，指定的單元格區(qū)域中將填充公式并獲得計(jì)算結(jié)果，如圖2所示。

圖2　填充公式并獲得計(jì)算結(jié)果