- excel中,假如我们知道每个员工的销售数量,又知道商品的单价,可以简单的计算出销售额,但是档员工人数特别多,即便是快速复制公式,仍然可以把你累死,这时候就要使用vba了,利用循环计算,你可以快速的计算上万员工的销售额,非常简单方便。 首先,我要知道商品的单价是12.5,在D1单元格输入【商品单价】,在D2单元格输入12.5 接着我们打开vb界面,在常用工具栏上执行:开发工具--visual basic。
- 打开vb以后,我们要先建立一个模块,如图所示,在菜单栏上执行:插入--模块,这样就直接插入并打开了一个模块。 在打开的模块中,我们输入如下的代码: Const Price As Single = 12.5 Sub 计算销售额() Dim sh As Worksheet Set sh = Worksheets("sheet1") Dim n As Integer n = 2 Do sh.Cells(n, 3) = sh.Cells(n, 2) * Price n = n + 1 Loop Until sh.Cells(n, 2) = "" End Sub
- 保存模块:在菜单栏上执行文件--保存,或者按下快捷键ctrl+s
- 接着按下F5,快速执行宏,在打开的宏对话框中,找到我们编辑的这个宏,【计算销售额】,然后点击【运行】 这就是经过计算得到的销售额了:
excel中,假如我们知道每个员工的销售数量,又知道商品的单价,可以简单的计算出销售额,但是档员工人数特别多,即便是快速复制公式,仍然可以把你累死,这时候就要使用vba了,利用循环计算,你可以快速的计算上万员工的销售额,非常简单方便。 首先,我要知道商品的单价是12.5,在D1单元格输入【商品单价】,在D2单元格输入12.5 接着我们打开vb界面,在常用工具栏上执行:开发工具--visual basic。 打开vb以后,我们要先建立一个模块,如图所示,在菜单栏上执行:插入--模块,这样就直接插入并打开了一个模块。 在打开的模块中,我们输入如下的代码: Const Price As Single = 12.5 Sub 计算销售额() Dim sh As Worksheet Set sh = Worksheets("sheet1") Dim n As Integer n = 2 Do sh.Cells(n, 3) = sh.Cells(n, 2) * Price n = n + 1 Loop Until sh.Cells(n, 2) = "" End Sub 保存模块:在菜单栏上执行文件--保存,或者按下快捷键ctrl+s 接着按下F5,快速执行宏,在打开的宏对话框中,找到我们编辑的这个宏,【计算销售额】,然后点击【运行】 这就是经过计算得到的销售额了: