利用VBA实现Excel表格计算
发布时间：2023-05-06 09:54:45
利用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功能，使我们可以根据需要对其进行适当的二次开发，仔细研究其用法，会使制作电子表格的工作更加轻松。
0
投稿猜你喜欢
在Word中编辑文档时，可以通过使用“更改大小写”命令将文档中的英文字符或数字全部更改为全角或半角状态，操作步骤如下所述：第1步，在Word- excel里输入千分号和万分号的方法步骤： 打开“符号”窗口(excel2003版：插入 – 符号;excel2010版：插入选项卡 – 符
- 在Excel中录入数据时多数都需要使用到宏功能，而宏功能正是涉及到安全性问题才被Excel默认禁用，如果在用的时候不小心真的中毒了，别担心，
- Office 2007是大多数人都在使用的一个经典且稳定的Office版本，作为一名使用Office的资深用户，你会发现Word 2007中
- 写的好好的excel表格，输入公式后却出现了#NAME?，这玩意儿啥意思呀，相信很多朋友们都碰上过，那么，遇上了该怎么解决呢?不用担心今天，
- word文档中怎么画图第一步，打开需要编辑的word文档，选择插入工具。插入工具在word的菜单栏中，也可以进行右击调用出来。在插入中我们可
- 如何在柱状图或者折线图中添加水平线或垂直线，以显示目标值或系列平均值？可以添加一个新系列，将其应用到次要坐标轴，并使次要坐标轴不可见；也可以
- Excel软件中如何使用条件格式筛选方法详细教学。在制作表格的时候，有时我们已经导入了很多的数据，要在这么多的数据中去寻找一些需要的内容是比
- word如何去除页眉横线?1、在进行添加word的文档中都会页眉的横线，在如图中，就会有横线，进行双击页眉中位置。
- 在Word文档中编辑文本内容时我们经常会需要输入一些符号，比如各种标点符号，有时候我们还会需要插入一些特殊符号，比如√符号和×符号等等。那小
- word文字怎么对齐？Word排版中会遇到文字难以对齐的问题，影响文档美观，遇到这样的情况如何应对呢？这边教你小技巧，轻松解决文字对齐问题。
- Excel表格打印时怎么设置重复表头或标题？excel表格打印的时候，希望每张纸都有表头，该怎么设置呢？下面我们就来看看excel打印重复表
- Excel工作表的名称显示在底部的工作表标签中，默认的工作表名称为“Sheet1”、“Sheet2”、“Sheet3”等，重命名一个活动工作
- word内置了一些设计好的表格样式，包括表格的框线、底纹，字体等格式设置。利用它可以快速地引用这些预定的样式。表格格式套用方法：1.“表格”
- 信很多人都有在考试时做小抄的经历,特别是大学生,大多数人小抄都是在打字社让打印的人给排一下版直接打出来的,下面小编就为大家介绍用word如何
- 下面介绍在EXCEL表格中AND函数的用法，希望本指南能帮到大家。01、AND函数在EXCEL中用作判断数据，参数的逻辑值为真时，返回TRU
- 在Office Word中，支持在Word文档中插入类型非常丰富的形状，包括线条、矩形、基本形状（诸如圆形、多边形、星形、括号、笑脸等等形）
- win10系统每次的版本更新都需要进行新的补丁打包，那如果在这个过程中突然提示错误代码0x80070643导致更新失败呢？一起来看看解决的方
- 一，把文字替换成图片首先把图片复制到 剪贴板中，然后打开替换对话框，在“查找内容”框中输入将被替换的文字，接着在 “替换为”框中输入“^c”
- word怎么实现左右各缩进20磅这个很简单的，你直接选中要修改的段落，右击，选中“段落”项，里面有“缩进与间距”项，再看“缩进”，有左侧，右
