下面我们就来看看在Excel VBA一个程序，在三年内计算总销售额的每个员工。

现状：

Sales Calculator in Excel VBA

另外两个板具有相同的设置，但有不同的销售数字月份和员工的不同组合，和。有几种方法来计算总销售额在Excel中每个员工的，但我们会看到，它可以在Excel VBA做得非常容易。

将工作表上的一个命令按钮并添加以下代码行：

1.首先，我们声明三个变量和一个工作表对象。 String类型我们称之为雇员的一个变量，Integer类型的一个变量我们称之为总，一个工作表对象我们称之为片，和类型整数中的一个变量我们称之为我。

Dim employee As String, total As Integer, sheet As Worksheet, i As Integer

2.我们初始化两个变量。我们初始化变量总值为0。我们使用InputBox函数从用户那里得到的员工姓名。

total = 0

employee = InputBox("Enter the employee name (case sensitive)")

Enter Employee Name

用户输入雇员名称3.之后，我们要计算总销售额的这个员工。工作簿包括三个工作表。

我们想，如果张在将来补充，仍然可以使用的程序。因此，我们使用下面的代码行：

For Each sheet In Worksheets

4.我们再掀For Next循环。

For i = 2 To 13

5.如果输入的员工姓名，在B列的员工姓名相匹配时，Excel VBA增加了销售数量的总变量。添加以下代码行：

If sheet.Cells(i, 2).Value = employee Then

total = total + sheet.Cells(i, 3).Value

End If

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

Next i

Next sheet

7.最后，我们显示总销售使用一个MsgBox的员工。

MsgBox "Total sales of " & employee & " is " & total

8.测试程序。

结果大卫：

Sales Calculator Result