如何使用VBA获取表格掩码后真实值以生成图表

解决方案 #

方法1：无需代码，直接用Excel自定义格式实现（最推荐）

你需要的「输入数值保留真实值、显示为带分隔符的格式、图表直接读取原值」的需求，用自带的自定义格式功能就可以完全满足：

• 选中所有需要设置掩码的单元格，右键点击「设置单元格格式」
• 切换到「数字」选项卡，选择「自定义」分类
• 在类型输入框中输入对应掩码规则，比如输入1要显示为1/5，就输入 #"/5"，也可以根据你的业务需求设置多条件规则
• 确认设置后，单元格存储的始终是你输入的原始数值，仅显示为你要的带分隔符格式，Excel图表默认会直接读取原始值生成图表，无需额外处理。

方法2：优化现有VBA逻辑

如果你需要保留现有联动逻辑，注意两个核心要点：

1. 区分Range.Value和Range.Text：Range.Value读取的是单元格存储的真实数值，Range.Text读取的是格式化后的显示文本，不要混用
2. 你的现有代码重复冗余过多，且没有禁用事件防止递归触发，可参考以下优化版本：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim selectedNa As Variant, selectedNum As Variant
    Dim lookupRngName As String, varName As String
    ' 禁用事件防止修改单元格时反复触发当前事件
    Application.EnableEvents = False
    
    On Error GoTo Finish
    
    selectedNa = Target.Value
    ' 按行号匹配查询规则，后续新增行只需补充Case即可
    Select Case Target.Row
        Case 5:
            lookupRngName = "ClassVEE"
            varName = "vee"
        Case 6:
            lookupRngName = "ClassN"
            varName = "n"
        ' 其他行规则在此补充
        ' Case 7: lookupRngName = "ClassMD": varName = "md"
        Case Else:
            GoTo Finish
    End Select
    
    selectedNum = Application.VLookup(selectedNa, Worksheets("Descrição").Range(lookupRngName), 2, False)
    If Not IsError(selectedNum) Then
        ' 给对应模块级变量赋值
        CallByName Me, varName, VbLet, Application.VLookup(selectedNa, Worksheets("Descrição").Range(lookupRngName), 1, False)
        ' 计算并写入汇总值
        ActiveWorkbook.Sheets("MOCA").Cells(17, Target.Column).Value = (vee + n + md + tas + s + rf + fvf + a + ed + o)
        ' 仅修改单元格格式不修改原值，保留真实数值供图表读取
        Target.NumberFormat = """" & selectedNum & """/5" ' 按你的显示需求调整格式
    End If

Finish:
    ' 恢复事件监听
    Application.EnableEvents = True
End Sub

参考截图 #

内容的提问来源于stack exchange，提问作者Orlando Carvalho