小兔网

下面,我们将查看Excel VBA中的一个程序,该程序计算三年内每位员工的总销售额

情况:

Excel VBA中的销售计算器

其他两张纸具有相同的设置,但是月份和雇员的组合不同,并且销售数量不同。有几种方法可以在Excel中计算每个员工的总销售额,但是我们将看到,可以很容易地在Excel VBA中完成此操作。

在您的工作表上放置一个命令按钮,并添加以下代码行:

1.首先,我们声明三个变量和一个工作表对象。我们将一个类型为String的变量称为employee,一个类型为Integer的变量称为total,一个工作表对象称为sheet,一个类型为Integer的变量称为i。

昏暗的员工作为 字符串,总计作为 整数工作作为 工作表,我作为 整数

2.我们初始化两个变量。我们使用值0初始化变量total。我们使用InputBox函数从用户那里获取员工名称。

总数= 0
员工= InputBox(“输入员工名称(区分大小写”“)

输入员工姓名

3.在用户输入员工名称之后,我们要计算该员工的总销售额。该工作簿包括三页。我们希望如果将来添加工作表仍可以使用该程序。因此,我们使用以下代码行:

对于 每个工作表

4.我们开始另一个For Next循环。

对于 i = 2  13

5.如果输入的员工姓名与B列中的员工姓名匹配,则Excel VBA将销售编号添加到变量total中。添加以下代码行:

如果 sheet.Cells(I,2)。价值=雇员然后
    总=总+ sheet.Cells(I,3)。价值
结束 如果

6.不要忘记关闭两个循环。

    下一张 i
下一张纸

7.最后,我们使用msgbox显示员工的总销售额。

MsgBox““&雇员&”的总销售额为“&总数

8.测试程序。

大卫的结果:

销售计算器结果