教你在Excel中用VBA做单元格计算的方法

作者:课课家教育更新于： 2016-03-11 10:24:53

　　Excel中，假如我们知道每个员工的销售数量，又知道商品的单价，可以简单的计算出销售额，但是当员工人数特别多，即便是快速复制公式，仍然可以把你累死，这时候就要使用vba了，利用循环计算，你可以轻松便捷的计算上万员工的销售额，非常简单方便。

　　步骤/方法

　　首先，我要知道商品的单价是12.5，在D1单元格输入【商品单价】，在D2单元格输入12.5

　　接着我们打开vb界面，在常用工具栏上执行：开发工具--VisualBasic。

　　打开vb以后，我们要先建立一个模块，如图所示，在菜单栏上执行：插入--模块，这样就直接插入并打开了一个模块。

　　在打开的模块中，我们输入如下的代码：

　　ConstPriceAsSingle=12.5

　　Sub计算销售额()

　　DimshAsWorksheet

　　Setsh=Worksheets("sheet1")

　　DimnAsInteger

　　n=2

　　Do

　　sh.Cells(n,3)=sh.Cells(n,2)*Price

　　n=n+1

　　LoopUntilsh.Cells(n,2)=""

　　EndSub

　　保存模块：在菜单栏上执行文件--保存，或者按下快捷键ctrl+s

　　接着按下F5，快速执行宏，在打开的宏对话框中，找到我们编辑的这个宏，【计算销售额】，然后点击【运行】

　　这就是经过计算得到的销售额了：