用簡單的VBA實現Excel表格計算

利用Excel製作電子表格時，有時需要用到計算填充功能，比如某列每種元件的價格合計，就是由E列元件單價乘以D列元件數量得來的。通過分析，發現利用Excel提供的VBA(VisualBasicforApplication)功能，寫幾行Basic代碼即可方便地達到自動填充F列數據的目的，且計算結果爲純數據值，可以自由進行處理。具體實現步驟如下：
   
　　1. 建立Excel工作表，分別填入其它相應的數據，包括E列元件的單價和D列元件數量。
   
　　2. 點擊“視圖”→“工具欄”→“VisualBasic”→VB控件工具箱。
   
　　3. 在整個工作表的底部或適當的位置放置控制按鈕“CommandButton1”。
   
　　4. 雙擊控制按鈕，加入語句：

    PrivateSubCommandButton1_Click()
    DimiAsInteger’自動填充的行號
    DimrandAsString’工作表D列的範圍參數
    DimraneAsString’工作表E列的範圍參數
    DimranfAsString’工作表F列的範圍參數

　　Fori=2To12’12爲本例中給出的填充結果行號，可由使用者自己設定’該循環主要完成工作表F列計算表格的自動填充

    rand=″D″＋CStr(i)
    rane=″E″＋CStr(i)
    ranf=″F″＋CStr(i)
    Worksheets(″Sheet1″).Range(ranf)=Worksheets(″Sheet1″).Range(rand)＊Worksheets(″Sheet1″).Range(rane)NextiEndSub
   
　　5. 按執行鍵，就可達到設計要求的計算表格項的自動填充，且填充結果爲純數據。

　　Excel提供了VBA功能，使我們可以根據需要對其進行適當的二次開發，仔細研究其用法，會使製作電子表格的工作更加輕鬆。