Excel VBA设置区域记账格式提示无法设置NumberFormat属性错误

核心原因是从Excel GUI自定义格式列表复制的格式字符串混入了排版类非标准符号：代码中千分位分隔位置使用的’是智能右单引号（Unicode编码U+2019，属于排版弯引号），不是Excel数字格式规则认可的半角单引号千分分隔符（Unicode编码U+0027）。
Excel界面对格式串的容错度更高，会自动把这类弯引号识别为合法分隔符完成格式应用，但VBA调用NumberFormat属性时不会做自动纠错，直接判定格式字符串非法，抛出对应错误。同代码中日期格式设置行全为标准半角字符，因此可以正常执行。

1. 将格式串中所有弯的右单引号’全部替换为半角英文单引号'，原有双引号的""转义逻辑无需修改。
2. 替换完成后的正确代码片段如下：

..
.ListColumns(1).Name = "Datum"
.ListColumns("Datum").Range.NumberFormat = "yyyy-mm-dd"
.ListColumns(2).Name = "Saldo"
.ListColumns("Saldo").Range.NumberFormat = "_ CHF * #'##0.00_ ;_ CHF * -#'##0.00_ ;_ CHF * ""-""??_ ;_ @_ "
..

3. 后续从GUI复制自定义格式到VBA时，可以先手动给任意单元格应用目标格式，再在VBA立即窗口执行?ActiveCell.NumberFormat获取VBA原生识别的标准格式串，将串内的双引号替换为""后写入代码，可彻底避免复制混入排版特殊字符的问题。

• 确认Saldo列对应的单元格区域未开启工作表保护锁定
• 确认当前工作簿未处于共享/多人协同编辑状态，该状态下部分Range属性的写入操作会被系统拦截

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