下面,我们将查看Excel VBA中的一个程序,该程序计算三年内每位员工的总销售额。
情况:
其他两张纸具有相同的设置,但是月份和雇员的组合不同,并且销售数量不同。有几种方法可以在Excel中计算每个员工的总销售额,但是我们将看到,可以很容易地在Excel VBA中完成此操作。
在您的工作表上放置一个命令按钮,并添加以下代码行:
1.首先,我们声明三个变量和一个工作表对象。我们将一个类型为String的变量称为employee,一个类型为Integer的变量称为total,一个工作表对象称为sheet,一个类型为Integer的变量称为i。
昏暗的员工作为 字符串,总计作为 整数,工作表作为 工作表,我作为 整数
2.我们初始化两个变量。我们使用值0初始化变量total。我们使用InputBox函数从用户那里获取员工名称。
总数= 0
员工= InputBox(“输入员工名称(区分大小写”“)
员工= InputBox(“输入员工名称(区分大小写”“)
3.在用户输入员工名称之后,我们要计算该员工的总销售额。该工作簿包括三页。我们希望如果将来添加工作表仍可以使用该程序。因此,我们使用以下代码行:
对于 每个片在工作表
4.我们开始另一个For Next循环。
对于 i = 2 到 13
5.如果输入的员工姓名与B列中的员工姓名匹配,则Excel VBA将销售编号添加到变量total中。添加以下代码行:
如果 sheet.Cells(I,2)。价值=雇员然后
总=总+ sheet.Cells(I,3)。价值
结束 如果
总=总+ sheet.Cells(I,3)。价值
结束 如果
6.不要忘记关闭两个循环。
下一张 i
下一张纸
下一张纸
7.最后,我们使用msgbox显示员工的总销售额。
MsgBox““&雇员&”的总销售额为“&总数
8.测试程序。
大卫的结果: