Excel中自动填充计算表格项

Author: 王彪、沈冬详 Date: 1998年第36期 13版

　　利用Excel制作电子表格时，有时需要用到计算填充功能，如^361304a^所示表中，F列每种元件的价格合计，就是由E列元件单价乘以D列元件数量得来的。通过分析，发现利用Excel97提供的VBA（Visual Basic for Application）功能，写几行Basic代码即可方便地达到自动填充F列数据的目的，且计算结果为纯数据值，可以自由进行处理。具体实现步骤如下：
　　1.建立Excel工作表，分别填入其它相应的数据，包括E列元件的单价和D列元件数量。
　　2.点击“视图”→“工具栏”→“Visual Basic”→VB控件工具箱。
　　3.在整个工作表的底部或适当的位置放置控制按钮“CommandButton1”。
　　4.双击控制按钮，加入语句：
　　Private Sub CommandButton1_Click（）
　　Dim i As Integer　’自动填充的行号
　　Dim rand As String　’工作表D列的范围参数
　　Dim rane As String　’工作表E列的范围参数
　　Dim ranf As String　’工作表F列的范围参数
　　For i=2 To 12　’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）
　　Next i
　　End Sub
　　5.按执行键，就可达到设计要求的计算表格项的自动填充，且填充结果为纯数据。
　　Excel97提供了VBA功能，使我们可以根据需要对其进行适当的二次开发，仔细研究其用法，会使制作电子表格的工作更加轻松。