office_tools 版 (精华区)

发信人: shenxi (阳光), 信区: OA
标  题: Excel中自动填充计算表格项
发信站: 哈工大紫丁香 (2000年06月18日16:59:06 星期天), 站内信件

利用Excel制作电子表格时，有时需要用到计算填充功能，如图所示表中，F列每种元件
的价格合计，就是由E列元件单价乘以D列元件数量得来的。通过分析，发现利用Excel9
7提供的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)＊W
orksheets(″Sheet1″).Range(rane)NextiEndSub
　　5？按执行键，就可达到设计要求的计算表格项的自动填充，且填充结果为纯数据。

    Excel97提供了VBA功能，使我们可以根据需要对其进行适当的二次开发，仔细研究
其用法，会使制作电子表格的工作更加轻松。 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.170.202]