用户输入3个字符时如何为文本框自动添加「.」？

核心注意点 #

• 要避免修改文本框内容时重复触发Change事件导致递归死循环
• 要判断末尾是否已经是「.」，避免重复追加符号
• 追加符号后需要将光标移到文本末尾，不影响后续输入体验

原有代码问题 #

你原有代码的If Left(txt_nome_usuario, 3) Then判断逻辑不成立：Left函数返回的是字符串内容，直接作为判断条件时只有空字符串会判定为False，只要前3个字符有内容就会判定为True，无法匹配「输入满3个字符」的需求。

完整实现代码 #

Private Sub txt_nome_usuario_Change()
    Dim inputStr As String
    ' 获取当前文本框内容，无需去空格可删除Trim函数
    inputStr = Trim(txt_nome_usuario.Text)
    
    ' 空内容、末尾已为.的场景直接退出，避免重复追加
    If Len(inputStr) = 0 Or Right(inputStr, 1) = "." Then Exit Sub
    
    ' ========== 按需选择判断条件 ==========
    ' 写法1：仅第一次满3个字符时追加1个.
    ' If Len(inputStr) = 3 Then
    ' 写法2：每输入满3个字符就追加1个.（如abc.def.ghi格式）
    If Len(inputStr) Mod 3 = 0 Then
    ' ====================================
        ' 临时禁用事件，防止修改文本触发Change递归
        Application.EnableEvents = False
        ' 追加.
        txt_nome_usuario.Text = inputStr & "."
        ' 光标移到文本末尾，方便后续输入
        txt_nome_usuario.SelStart = Len(txt_nome_usuario.Text)
        ' 恢复事件监听
        Application.EnableEvents = True
    End If
End Sub

适配说明 #

• 以上代码默认适配Excel VBA场景，如果是Access环境，将Application.EnableEvents的开关替换为DoCmd.Echo即可

内容的提问来源于stack exchange，提问作者André Calmeiro