求助：Excel VBA用户窗体RichTextBox的RTF代码存储与加载

你之前误用了SelRTF属性——它仅用于操作控件内选中的文本片段，要加载完整RTF内容到RichTextBox，必须使用控件的RTF属性，以下是具体实现步骤：

1. 先确保存储的RTF代码完整 #

检查单元格中的RTF代码是否有正确的闭合标签（比如你提供的示例代码结尾缺少}，这会导致解析失败），完整的RTF结构必须首尾闭合，RichTextBox才能正常识别。

2. 窗体初始化时加载RTF的代码 #

在用户窗体的Initialize事件中添加以下代码：

Private Sub UserForm_Initialize()
    ' 替换为你的工作表和单元格地址
    Dim rtfSource As String
    rtfSource = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
    
    ' 清空控件原有内容，避免格式干扰
    RichTextBox1.Text = vbNullString
    ' 加载完整RTF内容
    RichTextBox1.RTF = rtfSource
End Sub

3. 常见问题排查 #

• 如果加载后无内容，检查单元格格式是否为文本格式（避免Excel自动修改RTF代码），读取时可去除多余空格：rtfSource = Trim(ThisWorkbook.Sheets("Sheet1").Range("A1").Value)
• 确认RichTextBox控件的名称与代码中的一致（比如你的控件是否命名为RichTextBox1）
• 存储RTF到单元格时，也要用RichTextBox1.RTF而非其他属性，确保保存的是完整RTF代码：

  ' 保存RTF到单元格的示例代码
  ThisWorkbook.Sheets("Sheet1").Range("A1").Value = RichTextBox1.RTF
  

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