如何在excel表格内输入1-5的数字，显示为手工部、人事部等部门名称？急等

需用VBA
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target <> "" And Target.Column = 2 and target.row >=2 Then '指定第2列，第一行以下单元格
Application.EnableEvents = False
Select Case Target.Value
Case 1
Target = "手工部"
Case 2
Target = "人事部"
Case 3
Target = "xx部"
Case 4
Target = "yy部"
Case 5
Target = "zz部"
Case Else
Target = "代码错误，请重新输入！"
End Select
Application.EnableEvents = True
End If
End Sub

自己回去好好学学吧！汗！

这个问题,呵呵,这个需要做公式链接的,用VLOOKUP.

单击工具菜单，找到自动更正选项单击，在出现的对话框中，先输入1，在其后的框中输入手工部，单击添加按钮，按确定。其它的，一样做的

Sheet1表:A列 B列

1 手工部
2 人事部
3 研发部
4 财务部
Sheet2表:A2输入=VLOOKUP(A1,sheet1!a:b,2,0)
然后在A1中输入数字就会出现sheet1表中数字后面相对应的部门了!