利用Excel制作電子表格時(shí)，有時(shí)需要用到計(jì)算填充功能，比如某列每種元件的價(jià)格合計(jì)，就是由E列元件單價(jià)乘以D列元件數(shù)量得來(lái)的。通過(guò)分析，發(fā)現(xiàn)利用Excel提供的VBA(VisualBasicforApplication)功能，寫幾行Basic代碼即可方便地達(dá)到自動(dòng)填充F列數(shù)據(jù)的目的，且計(jì)算結(jié)果為純數(shù)據(jù)值，可以自由進(jìn)行處理。具體實(shí)現(xiàn)步驟如下：
1. 建立Excel工作表，分別填入其它相應(yīng)的數(shù)據(jù)，包括E列元件的單價(jià)和D列元件數(shù)量。
2. 點(diǎn)擊“視圖”→“工具欄”→“VisualBasic”→VB控件工具箱。
3. 在整個(gè)工作表的底部或適當(dāng)?shù)奈恢梅胖每刂瓢粹o“CommandButton1”。
4. 雙擊控制按鈕，加入語(yǔ)句：
PrivateSubCommandButton1_Click()
DimiAsInteger’自動(dòng)填充的行號(hào)
DimrandAsString’工作表D列的范圍參數(shù)
DimraneAsString’工作表E列的范圍參數(shù)
DimranfAsString’工作表F列的范圍參數(shù)
Fori=2To12’12為本例中給出的填充結(jié)果行號(hào)，可由使用者自己設(shè)定’該循環(huán)主要完成工作表F列計(jì)算表格的自動(dòng)填充
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. 按執(zhí)行鍵，就可達(dá)到設(shè)計(jì)要求的計(jì)算表格項(xiàng)的自動(dòng)填充，且填充結(jié)果為純數(shù)據(jù)。
Excel提供了VBA功能，使我們可以根據(jù)需要對(duì)其進(jìn)行適當(dāng)?shù)亩伍_(kāi)發(fā)，仔細(xì)研究其用法，會(huì)使制作電子表格的工作更加輕松。
