excel - 突出显示用户窗体文本框中的文本

Question

我想在我的用户窗体上的 TextBox 中选择/突出显示所有文本。我已经找到了超过 20 个具有 .SelStart 和 .SelLength 解决方案的论坛，但它对我不起作用......

是否需要更改设置或属性才能使用它？

这是我的代码:

Private Sub MaterialDescriptionTextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(MaterialDescriptionTextBox.Value) > 40 Then
    MsgBox "The material description can not exceed 40 characters", vbInformation, "Too many characters"
    With Me.MaterialDescriptionTextBox
        .SetFocus
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End If

可悲的是，它除了显示 MsgBox 之外什么也没做。

谢谢

Answer 1

您缺少 Cancel = True . Cancel 取消 Exit事件本身，但之后的任何其他代码仍将运行。

Private Sub MaterialDescriptionTextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(MaterialDescriptionTextBox.Value) > 40 Then
        MsgBox "The material description can not exceed 40 characters", vbInformation, "Too many characters"
        Cancel = True
        With MaterialDescriptionTextBox
            .SetFocus
            .SelStart = 0
            .SelLength = Len(.Text)
        End With

    End If
End Sub