excel中如何输入汉字，但是在同一单元格中显示某一数字

1、点击“工具”－“自动更正选项”。
　　2、在替换框格内输入汉字如“代”，替换为框格内输入要显示的数字如“130102”，点击“确定”退出。
　　3、在某个单元格内输入“代”字，就会显示“130102”。

Private Sub Worksheet_Change(ByVal Target As Range)

For I = 1 To Range("A65536").End(xlUp).Row

If Cells(I, 1) = "优秀" Then

Cells(1, 1) = 100

ElseIf Cells(I, 1) = "良好" Then

Cells(I, 1) = 70

ElseIf Cells(I, 1) = "中档" Then

Cells(I, 1) = 60

End If

Next

End Sub

在A1添加一个AcitiveX的Combobox控件，然后输入以下VBA代码：

Private Sub Worksheet_Activate()
ComboBox1.Clear
ComboBox1.Visible = True
ComboBox1.AddItem "优"
ComboBox1.AddItem "良"
ComboBox1.AddItem "中"
End Sub

Private Sub ComboBox1_Click()
If ComboBox1.Text = "优" Then
Range("A1") = 100
ComboBox1.Visible = False
End If
If ComboBox1.Text = "良" Then
Range("A1") = 75
ComboBox1.Visible = False
End If
If ComboBox1.Text = "中" Then
Range("A1") = 60
ComboBox1.Visible = False
End If
End Sub
最后效果：

在同一单元内，如果用数据有效性设置下拉列表，是不可能实现“显示选项为文字，实际返回数字”这样的效果的
只能通过VBA控件，在工作表上放一个下拉列表控件，然后编写代码响应CLICK事件，根据下拉列表的选中内容，向单元格内赋予相应的数值