实现功能：
在列A中输入数字，转化为数字对应的职务名称。
1. 在单元格中输入数字后，转化为数字对应的职务，要用到工作表的change事件
2.单元格输入数字后触发一次change事件，转化为对应职务后，又触发一次change事件，所以这个操作触发了两次change事件，要注意 select case的情况描述
20230517_085432
代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 1) Then
If Target.Count = 1 Then
Select Case Target
Case 1
Target = "行政主管"
Case 2
Target = "客户经理"
Case 3
Target = "人力资源主管"
Case 4
Target = "总经理助理"
Case 5
Target = "财务总监"
Case "行政主管"
Case "客户经理"
Case "人力资源主管"
Case "总经理助理"
Case "财务总监"
Case ""
Case Else
MsgBox "您的输入超出了范围"
End Select
End If
End If
End Sub
