Excel中配置Code128条形码遇故障，寻求解决方法

问题重现 #

已安装Barcode128字体，按流程添加CODE128自定义VBA函数，关联源数据单元格后，修改源数据时条形码无变化，且显示异常（乱码/无效样式）。操作流程：

• 安装Barcode128字体
• 新建Excel文档
• 导入CODE128 VBA函数
• 目标单元格使用=CODE128(A1)关联源数据单元格

解决方案 #

1. 替换为标准CODE128 VBA函数 #

不少教程的VBA代码缺失校验位或终止符，直接用这段完整代码覆盖原有函数：

Function CODE128(InputString As String) As String
    Dim i As Integer, CheckSum As Integer, StartCode As Integer
    ' 采用Code128B编码，支持字母、数字及常见符号
    StartCode = 209
    CheckSum = StartCode
    CODE128 = Chr(StartCode)
    
    ' 遍历输入字符串计算校验和
    For i = 1 To Len(InputString)
        CheckSum = CheckSum + (i * (Asc(Mid(InputString, i, 1)) - 32))
        CODE128 = CODE128 & Mid(InputString, i, 1)
    Next i
    
    ' 计算并添加校验位
    CheckSum = CheckSum Mod 103
    If CheckSum < 95 Then
        CODE128 = CODE128 & Chr(CheckSum + 32)
    Else
        CODE128 = CODE128 & Chr(CheckSum + 100)
    End If
    
    ' 必须添加终止符，否则字体无法识别
    CODE128 = CODE128 & Chr(211)
End Function

2. 修正单元格格式 #

• 目标条形码单元格必须设置为文本格式：选中单元格→右键→设置单元格格式→文本
• 确认目标单元格字体已切换为Barcode128，不要用默认的宋体/Calibri

3. 强制刷新与计算设置 #

• 按F9强制刷新所有公式，自定义函数有时不会自动触发更新
• 检查自动计算开关：文件→选项→公式→勾选「自动重算」，取消「手动重算」

4. 验证字体安装 #

• 打开Windows控制面板→字体，搜索「Barcode128」确认已安装
• 重启Excel，确保字体被正确加载

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