如何为超过 255 的单元格中的单个字符格式化字体

Question

我正在使用 Excel VBA 构建带有格式化标记文本的单元格。它工作正常，直到单元格超过 255 个字符。此时字体属性设置不正确。

我使用 VBA 添加带有Range.Value = Range.Value & newchar 的字符，效果很好。但是一旦单元格超过 255 个字符，使用Range.Characters(n,1).Font.property（例如Name、Color、Strikethrough、Underline）设置单个字符的字体属性将无法正常工作。当单元格超过 255 个字符时，如何将字体属性应用于单个字符？

对不起——这不是一个很好的问题描述。我正在添加一个字符并立即格式化该字符的字体，然后添加并格式化下一个字符，依此类推。要超过 255 个字符，我需要使用 &，但这会破坏单元格中已有文本的字体格式。

Answer 1

你好吗？

所以我尝试了你的代码，这样做是为了用 255 个“A”和 255 个“B”填充单元格 A1

然后使用字符函数

结果出来了

可能你用错了函数Characters(1,256)

Characters 第一个参数是 Init char ，第二个参数是第一个之后的字符数。

希望对你有帮助

Answer 2

如果不查看更多代码，很难说出你做错了什么。但这是格式化单元格中单个字符的一种方法。我已经用单元格中的 30,000 个字符对其进行了测试（尽管这需要很长时间）。下面的代码将创建一个带有字符的单元格并格式化具有多个特征的某些字符。示例为 750 个字符。

Option Explicit
Sub par()
    Dim R As Range
    Dim S As String
    Dim I As Long, J As Long

Set R = Range("A1")

For J = 1 To 10
For I = 48 To 65 + 26 * 2 + 5
    S = S & Chr(I)
Next I
Next J

Debug.Print Len(S)
R = S

For I = 1 To Len(S)
    Select Case Mid(S, I, 1)
        Case "A", "D", "Y", "a", "t", "x", "8"
        With R.Characters(I, 1)
            .Font.Bold = True
            .Font.Color = vbRed
            .Font.Strikethrough = True
            .Font.Size = .Font.Size + 2
        End With
    End Select
Next I

End Sub