編寫程序為Excel單元格添加公式的方法

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

圖1　需要處理的工作表

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

Sub Gongshi()

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

End Sub

提示

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

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

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