利用VBA實現Excel表格計算

利用VBA實現Excel表格計算

利用Excel制作電子表格時，有時需要用到計算填充功能，比如某列每種元件的價格合計，就是由E列元件單價乘以D列元件數量得來的。通過分析，發現利用Excel提供的VBA(VisualBasicforApplication)功能，寫幾行Basic代碼即可方便地達到自動填充F列數據的目的，且計算結果為純數據值，可以自由進行處理。具體實現步驟如下：

1. 建立Excel工作表，分別填入其它相應的數據，包括E列元件的單價和D列元件數量。

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功能，使我們可以根據需要對其進行適當的二次開發，仔細研究其用法，會使制作電子表格的工作更加輕松。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。