时间:2020-02-10  来源:百度经验  作者:南霸天mxw  阅读:1

我们在日常的工作中,经常有等级之分,那么如何按照销售额度来划分员工的等级呢?我们用函数嵌套的方法可以对员工进行划分,但是每次都需要输入函数比较麻烦,我们可以用VBA代码通过调用宏的方式来对员工进行划分。

EXCEL技巧——用VBA实现公司员工等级评定

新建一张表格,在表格中输入员工的姓名和销售额,我们将在C列显示出员工的级别,如图所示。

EXCEL技巧——用VBA实现公司员工等级评定

现在单击菜单栏中“开发工具”——VisualBasic,打开VBA编辑器,我们将在其中输入代码来实现我们的操作。

现在双击编辑器中的“Sheet1”,打开代码编辑框,我们将在编辑框中输入代码来实现我们的愿望。

EXCEL技巧——用VBA实现公司员工等级评定

现在来输入代码:Sub 等级评定()   Dim i As Integer                      '创建一个整数变量i   For i = 3 To 10                       'i从3到10       t = Sheets(1).Cells(i, 2).Value   '从第2列中选取员工成绩       If t >= 8000 Then          j = "金牌销售"                 '如果销售额>=8000,等级选择为“金牌销售”       ElseIf t >= 6000 Then          j = "银牌销售"                 '如果销售额>=6000,等级选择为“银牌销售”       ElseIf t >= 4000 Then          j = "铜牌销售"                 '如果销售额>=4000,等级选择为“铜牌销售”       ElseIf t >= 2000 Then          j = "铁牌销售"                 '如果销售额>=2000,等级选择为“铁牌销售”       Else          j = "销售菜鸟"                 '如果销售额<2000,等级选择为“销售菜鸟”       End If       Sheets(1).Cells(i, 3) = j       NextEnd Sub

EXCEL技巧——用VBA实现公司员工等级评定

单击VBA编辑器菜单栏中的“运行”——运行子过程/用户窗体,此时在工作薄中显示,出员工等级,如图所示。

Top