excel中使用vba实现单元格计算的方法 博客分类: Excel
程序员文章站
2024-03-12 10:34:44
...
-
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
-
这就是经过计算得到的销售额了:
推荐阅读
-
excel中使用vba实现单元格计算的方法 博客分类: Excel
-
使用ADODB将Excel中Sheet页另存为UTF8编码CSV 博客分类: VBA ADODBVBASheetCSVUTF8
-
Excel使用条件定位实现复制筛选数据中的可见单元格并粘贴
-
用辅助列或VBA的方法实现在Excel中粘贴时跳过隐藏行
-
Java使用Apache.POI中HSSFWorkbook导出到Excel的实现方法
-
python使用xlrd实现检索excel中某列含有指定字符串记录的方法
-
Excel使用条件定位实现复制筛选数据中的可见单元格并粘贴
-
Excel VBA 单元格对象Activate方法的两种使用情况实例介绍
-
用辅助列或VBA的方法实现在Excel中粘贴时跳过隐藏行
-
VBA实现为Excel中自定义名称的单元格添加批注