如何在按Tab键时为Excel表格新行添加预设默认值？

核心方案 #

通过Worksheet_SelectionChange事件检测用户操作，判断是否定位到表格最后一行的最后一列（按Tab键后的触发位置），同时用Application.EnableEvents规避循环触发问题，复用默认值设置逻辑自动添加新行。

完整代码实现 #

将以下代码粘贴到Piezas工作表的代码模块中（右键工作表标签→查看代码）：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim tbl As ListObject
    Dim lastCol As Integer
    Dim lastRow As Integer
    Dim newRow As ListRow
    Const strNoData As String = "N/A"
    
    ' 指定目标表格
    Set tbl = Me.ListObjects("tblPiezas01")
    If tbl Is Nothing Then Exit Sub
    
    ' 获取表格最后一列、最后一行的位置
    lastCol = tbl.ListColumns.Count
    lastRow = tbl.ListRows.Count + tbl.HeaderRowRange.Row ' 包含表头行的总行数
    
    ' 判断是否选中表格最后一行的最后一个单元格（Tab键触发的位置）
    If Target.Address = tbl.Cells(lastRow, lastCol).Address Then
        ' 禁用事件，避免修改单元格时重复触发事件
        Application.EnableEvents = False
        
        ' 添加新行并设置默认值
        Set newRow = tbl.ListRows.Add
        newRow.Range(1) = tbl.ListRows.Count ' 自动填充序号
        newRow.Range(2) = strNoData
        newRow.Range(3) = strNoData
        
        ' 自动选中新行第一个单元格，方便用户继续输入
        newRow.Range(1).Select
        
        ' 恢复事件监听
        Application.EnableEvents = True
    End If
End Sub

关键细节说明 #

• 事件选择：使用Worksheet_SelectionChange而非Worksheet_Change，因为Tab键切换单元格属于选择变化，更贴合触发场景，减少无效事件触发。
• 循环规避：通过Application.EnableEvents = False在修改单元格前关闭事件监听，操作完成后恢复，彻底解决循环触发问题。
• 序号优化：直接用tbl.ListRows.Count获取当前总行数作为新行序号，比原代码的计数方式更简洁可靠。
• 用户体验：新行添加后自动选中第一个单元格，无需用户手动定位。

额外注意 #

1. 若需要保留原ActiveX按钮的功能，可继续保留原cmdAddRowPiezas01_Click代码，两者不会冲突。
2. 若表格列数调整，只需修改默认值对应的列索引（newRow.Range(X)中的X）即可适配。

内容的提问来源于stack exchange，提问作者Emanuel Zúñiga