VBA UserForm防误编辑指定单元格：解决联动TextBox空值退格丢选中、误改A1列头问题

• 原实现的核心漏洞是缺少对ListBox.ListIndex的有效性校验。ListIndex属性值为-1时代表当前没有任何选中条目，原代码在触发TextBox1_Change事件时，直接基于ListIndex计算单元格位置：当选中态丢失导致ListIndex为-1时，会对RowSource起始位置（也就是Table!A2）执行Offset(-1)操作，最终直接定位到A1列头单元格，完全匹配你遇到的误编辑场景。
• 触发该异常的逻辑链：空值状态的TextBox按下退格键时会触发Change事件，此时如果ListBox因为空行加载过多、控件焦点切换、列表内容重算等原因意外清空选中状态，代码就会带着异常的ListIndex值执行写入逻辑，最终改到错误的单元格。
• 原有RowSource配置存在性能隐患：将A2:A1048576整列设为列表数据源，会让控件加载超百万个空列表项，不仅运行卡顿，也会大幅提升选中状态被意外重置的概率。

修复的核心思路是避免依赖易丢失的ListIndex实时值做单元格定位，通过预先建立稳定的目标单元格映射，加多重有效性校验，从根源杜绝错位写入。
具体实现代码如下：

' 写在UserForm代码模块的最顶部，通用声明段，用于存储当前选中的目标单元格
Private targetCell As Range

Private Sub UserForm_Initialize()
    Dim lastRow As Long
    ' 动态获取A列最后一个有值的行号，只绑定有效数据到ListBox，减少空行加载
    lastRow = Worksheets("Table").Cells(Rows.Count, "A").End(xlUp).Row
    ListBox1.RowSource = "Table!A2:A" & lastRow
    ' 默认未选中时禁用TextBox，从交互层禁止无目标的编辑
    TextBox1.Enabled = False
End Sub

Private Sub ListBox1_Click()
    ' 选中条目时，立刻建立稳定的单元格映射，不后续实时计算
    If ListBox1.ListIndex = -1 Then Exit Sub
    Dim sourceRng As Range
    Set sourceRng = Worksheets("Table").Range("A2:A" & Worksheets("Table").Cells(Rows.Count, "A").End(xlUp).Row)
    ' 记录当前选中条目对应的目标单元格
    Set targetCell = sourceRng.Offset(ListBox1.ListIndex)
    ' 同步值到TextBox，启用编辑状态
    TextBox1.Value = ListBox1.Value
    TextBox1.Enabled = True
End Sub

Private Sub ListBox1_LostFocus()
    ' 列表框失去焦点时如果没有有效选中，清空映射、禁用TextBox
    If ListBox1.ListIndex = -1 Then
        Set targetCell = Nothing
        TextBox1.Value = ""
        TextBox1.Enabled = False
    End If
End Sub

Private Sub TextBox1_Change()
    ' 防护判断：没有有效目标单元格时，直接退出过程，不执行任何工作表写入
    If targetCell Is Nothing Then Exit Sub
    ' 容错处理：避免目标单元格被意外删除、工作表保护导致的写入报错
    On Error Resume Next
    targetCell.Value = TextBox1.Value
    On Error GoTo 0
End Sub

• 就算ListBox的选中状态因为系统原因意外丢失，只要用户之前已经选中过有效条目，预先存储的targetCell映射依然存在，TextBox的输入会正确写入之前选中的目标单元格，不会出现错位编辑A1的问题。
• 当完全没有选中任何ListBox条目时，TextBox处于禁用状态，就算触发Change事件也因为targetCell为空，不会执行任何工作表写入，从交互层和逻辑层双重杜绝误操作。
• 动态加载有效数据范围的RowSource配置，会大幅提升ListBox的响应速度，减少因空行加载过多导致的选中态异常问题。

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