Excel VBA：实现Tab切换至TextBox时仅高亮最后一位字符

这问题我太熟了！你现在的代码只处理了鼠标点击的场景，但Tab切换焦点到控件时会触发GotFocus事件，只要把你的高亮逻辑绑定到这个事件上，就能实现需求。另外，为了避免重复代码，建议把高亮逻辑抽成一个公共子程序，这样鼠标点击和Tab切换都能复用。

具体实现步骤： #

1. 提取公共高亮逻辑
   把原来MouseDown事件里的高亮代码单独写成一个Sub，这样后续不管哪个事件需要这个功能，直接调用就行：

   Private Sub HighlightLastCharacter(txt As TextBox)
       With txt
           ' 只有当文本框有内容时才执行高亮
           If Len(.Text) > 0 Then
               .SelStart = Len(.Text) - 1 ' 选中起始位置设为最后一位的索引
               .SelLength = 1 ' 选中长度为1，即仅最后一位
           End If
       End With
   End Sub
   

2. 修改原MouseDown事件
   把原来的MouseDown代码改成调用这个公共Sub，保持功能不变的同时减少重复：

   Private Sub txb_orderNumber_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
       txb_orderNumber.SetFocus
       HighlightLastCharacter txb_orderNumber
   End Sub
   

3. 添加GotFocus事件处理
   给你的txb_orderNumberTextBox添加GotFocus事件，调用公共高亮Sub——这样Tab切换进来时就会自动触发高亮：

   Private Sub txb_orderNumber_GotFocus()
       HighlightLastCharacter txb_orderNumber
   End Sub
   

为什么这样有效？ #

• GotFocus事件会在控件任何方式获得焦点时触发，包括Tab键切换、鼠标点击、代码调用SetFocus等，完美覆盖你需要的场景。
• 公共Sub的设计让代码更易维护，以后如果要调整高亮规则（比如改成高亮最后两位），只需要修改这一个地方即可。

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