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

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

前期准备工作（包括相关工具或所使用的原料等）

EXCEL软件

详细的操作方法或具体步骤

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

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

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

现在来输入代码：

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，等级选择为“销售菜鸟”

If

Sheets(1).Cells(i, 3)=j

Next

Sub

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

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本文系本人依照真实经历原创，未经许可，谢绝转载。