excel 字母转数字

来源：百度知道 编辑：UC知道 时间：2024/05/30 17:59:56
1.一列表格里面输A自动出数字14，输B则是数字7.
2.一列表格里最大数字为50，及时是大于50的也自动显示50
高手请留下MSN，单独请教

按下ALT+F11,双击左边的"SHEET1"(假设你的功能在SHEET1中完成),复制下面代码.退出
(我是假设你的数据转换只有在A列发生)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim INDEX
INDEX = Target.Value
If Target.Column() = 1 Then
Select Case INDEX
Case "A"
Target.Value = 14
Case "B"
Target.Value = 7
Case Is >= 50
Target.Value = 50
End Select
Else
Exit Sub
End If
End Sub

直接输入A和B就可以，输完了然后用编辑--替换，把A、B替换成你想要的数据。