Excel VBA：如何为用户窗体文本框选中区域设置黄色高亮

你的问题核心在于标准TextBox控件不支持部分文本的颜色设置：

• ForeColor是全局属性，设置后会改变文本框内所有文字的颜色，这就是你看到全部文本变黄的原因。
• SelColor是RichTextBox控件的专属属性，普通TextBox根本没有这个属性，所以调用它会无效。

解决方案：改用RichTextBox控件 #

标准TextBox不支持富文本格式，必须替换为RichTextBox控件才能实现选中区域单独着色：

1. 打开VBA编辑器，在用户窗体设计界面，点击菜单栏的工具→附加控件，勾选「Microsoft Rich Textbox Control 6.0」后确定。
2. 从控件工具箱拖出RichTextBox到用户窗体上，将其命名为TextBoxSafety（和原文本框名称一致，避免修改其他关联代码）。
3. 修改点击事件代码如下：

Private Sub Label10_Click()
    If Me.TextBoxSafety.SelLength > 0 Then
        ' 直接设置选中区域的文字颜色为黄色
        Me.TextBoxSafety.SelColor = RGB(255, 255, 0)
        ' 若不需要取消选中状态，可删除下面这行
        ' Me.TextBoxSafety.SelLength = 0
    End If
End Sub

补充说明 #

• 保留SelLength = 0会取消选中状态，若想让用户直观看到着色区域范围，建议删除该行。
• 若找不到「Microsoft Rich Textbox Control 6.0」，可能是控件未注册，可尝试重新安装Office，或手动注册系统盘System32/SysWOW64目录下的MSRICHTX.ocx文件。

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