EXCEL技巧——用VBA实现公司员工等级评定
来源:网络收集 点击: 时间:2024-04-07新建一张表格,在表格中输入员工的姓名和销售额,我们将在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,等级选择为“销售菜鸟”
End If
Sheets(1).Cells(i, 3) = j
Next
End Sub

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


版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_459842.html