获取Excel中绑定宏的被点击文本框所在行号

嘿Jacob，刚接触VBA遇到这种细节问题太正常了，我来帮你搞定获取文本框所在行号的事儿，这样你就能顺利在它上方插入行啦！

情况1：表单控件文本框（指定宏的那种） #

如果你用的是Excel表单控件里的文本框，并且已经给它指定了宏，那可以通过下面的代码获取行号：

Sub GetTextBoxRow()
    ' 获取触发宏的文本框对象
    Dim clickedTextBox As Shape
    Set clickedTextBox = ActiveSheet.Shapes(Application.Caller)
    
    ' 提取文本框左上角所在单元格的行号
    Dim targetRow As Integer
    targetRow = clickedTextBox.TopLeftCell.Row
    
    ' 这里用你已经会的插入行代码，示例是在目标行上方插入一行
    Rows(targetRow).Insert Shift:=xlDown
    
    ' 可选：弹窗验证行号是否正确
    MsgBox "文本框所在行号：" & targetRow & "，已成功在上方插入新行"
End Sub

关键说明： #

• Application.Caller会返回触发当前宏的控件名称，用它就能精准定位到你点击的那个文本框。
• TopLeftCell.Row是Shape对象的属性，能直接拿到文本框左上角对齐的单元格所在的行号，这正是你需要的数值。

情况2：ActiveX控件文本框 #

如果你的文本框是ActiveX类型（开发工具里的ActiveX控件），那不需要单独指定宏，直接绑定它的点击事件即可：

1. 双击文本框进入VBA编辑器，会自动打开对应的Click事件代码块
2. 输入下面的代码：

Private Sub TextBox1_Click()
    ' 获取文本框所在行号
    Dim targetRow As Integer
    targetRow = Me.TextBox1.TopLeftCell.Row
    
    ' 执行插入行操作
    Rows(targetRow).Insert Shift:=xlDown
    
    MsgBox "文本框所在行号：" & targetRow & "，已完成插入行"
End Sub

注意： #

把代码里的TextBox1改成你实际的文本框控件名称哦，不然会报错～

试试上面的方法，应该就能完美解决你的问题啦！如果还有其他VBA入门的小疑问，随时交流都没问题～

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