楼主的要求，用公式要在同一单元格显示结果，实在汗颜，没有找到思路！
如果用宏，可以按如下操作：
首先假定数据在工作表Sheet1。
1.按Alt+F11打开宏代码编写窗口；
2.在窗口左边，在“工程-VBAProject”下面，找到工作表标签 Sheet1 然后用鼠标双击，打开一个工作表事件代码窗口（右边，空白）；
3.在右边空白的代码窗口中粘贴如下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
dj = Cells(1, 1)
If dj = "优秀" Then
Cells(1, 1) = 100
ElseIf dj = "良好" Then
Cells(1, 1) = 70
ElseIf dj = "中档" Then
Cells(1, 1) = 60
End If
End Sub
4.在窗口左上角单击EXCEL的标志按钮，返回工作表；
5.在A1单元格选择测试效果。
注意哦：最后记得保存这个设置！
03版本测试通过，供参考！
来自：求助得到的回答
madmlwt | 发布于2012-12-12 10:20
大神，那请问如何实现在A列的任意一个单元格输入汉字都能在相对应的单元格内显示出数字。不只是一个A1。 A2、A3、A4、A5、A6等等都需要输入汉字然后显示数字啊。跪求解答
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
本回答被网友采纳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事件，根据下拉列表的选中内容，向单元格内赋予相应的数值
