excel - 格式化单元格中的单个字符 - 莫名其妙的行为

Question

我有一个宏中的代码，用于格式化单元格中的单个字符。最近，它已停止工作，只能格式化所有字符或根本不格式化。

我已将代码减少到仅几行进行测试，但它在两台不同的机器(一台 Mac，一台 PC)上失败了。我已经重启了很多次了。两台机器都表现出相同的错误行为。

Sub formattest()
    Workbooks("Text.xlsm").Worksheets("Sheet1").Cells(1, 1).Characters(Start:=1, Length:=1).Font.Color = RGB(0, 0, 0)
    Workbooks("Text.xlsm").Worksheets("Sheet1").Cells(1, 1).Characters(Start:=1, Length:=1).Font.Bold = True
End Sub

Sub formattest2()
    Workbooks("Text.xlsm").Worksheets("Sheet1").Cells(1, 1).Characters(1, 1).Font.Color = RGB(0, 0, 0)
    Workbooks("Text.xlsm").Worksheets("Sheet1").Cells(1, 1).Characters(1, 1).Font.Bold = True
End Sub

Sub formattest3()
    With Workbooks("Text.xlsm").Worksheets("Sheet1").Cells(1, 1).Characters(1, 1).font
        .Color = RGB(0, 0, 0)
        .Bold = True
    End With
End Sub

在所有三个子例程中，我希望只有单元格 1,1 中的第一个字符被格式化，但事实并非如此。我认为这是特定于 Excel 进入奇怪状态的原因，这就是我在两台不同的机器上尝试并重新启动的原因。发生了什么，为什么它曾经有效但不再有效？我能做些什么来实现我想要的行为吗？

Answer 1

只是为了结束这个问题:如果您尝试格式化数字的不同数字，而不是文本中的字符，则会遇到这个问题。

要避免这种情况，请将单元格的格式更改为文本，或添加撇号 '在数字之前强制它发短信。

如果您必须将数字保留为数字而不是文本，我认为这是不可能的。