如何将Microsoft Access计算列的1-5分类数字转换为A-E字母

方法1：使用表计算列的Choose函数（直接在表中实现） #

Access表的计算列支持返回文本类型，你可以用Choose函数直接将1-5映射为A-E，公式如下：

Choose(Round([chance]/20), "A", "B", "C", "D", "E")

• 原理：Choose函数接收一个索引值（这里是Round后的1-5），返回对应位置的文本参数，索引1对应"A"，2对应"B"，以此类推。
• 设置步骤：在表设计视图中添加计算列，将公式粘贴到“表达式”框，设置“数据类型”为文本即可。

方法2：使用Chr函数直接转换ASCII码 #

利用ASCII码的对应关系（A=65，B=66…E=69），可以通过Chr函数将数字转换为对应字母，公式如下：

Chr(Round([chance]/20) + 64)

• 原理：Round后的数值1-5加上64，得到65-69，正好对应A-E的ASCII码，Chr函数将该数值转换为对应字符。
• 注意：确保chance的取值范围是1-100，保证Round后结果稳定在1-5，避免出现超出范围的数值导致错误。

方法3：通过查询实现（绕开表计算列限制） #

如果表计算列因版本或权限问题无法使用上述函数，可以创建查询来生成类别：

1. 新建查询，添加你的数据表。
2. 在字段行输入：类别: Choose(Round([chance]/20), "A", "B", "C", "D", "E")
3. 运行查询，即可看到转换后的A-E类别，后续可直接使用该查询作为数据源。

方法4：自定义VBA函数（灵活扩展） #

如果需要更复杂的逻辑或后续扩展，可以编写自定义VBA函数：

1. 打开Access的VBA编辑器（Alt+F11），插入一个新模块。
2. 粘贴以下代码：

Function GetCategory(chance As Integer) As String
    Dim categoryNum As Integer
    categoryNum = Round(chance / 20)
    ' 确保数值在1-5范围内，避免错误
    If categoryNum >= 1 And categoryNum <= 5 Then
        GetCategory = Chr(64 + categoryNum)
    Else
        GetCategory = "无效" ' 处理超出范围的情况
    End If
End Function

3. 在表计算列或查询中调用该函数：

GetCategory([chance])

内容的提问来源于stack exchange，提问作者Tommy Davies