基于位置实现Excel单元格读取上方文本框内容的VBA需求

核心代码（一键同步所有文本框到对应单元格） #

这段代码会遍历当前工作表的所有文本框，根据位置自动匹配其正下方的单元格，并同步文本框内容：

Sub SyncTextBoxesToCells()
    Dim tb As Shape
    Dim targetCell As Range
    Dim textBoxContent As String
    
    For Each tb In ActiveSheet.Shapes
        ' 筛选文本框类型（兼容表单控件和ActiveX文本框）
        Select Case tb.Type
            Case msoTextBox ' 表单控件文本框
                textBoxContent = tb.TextFrame2.TextRange.Text
            Case msoOLEControlObject ' ActiveX文本框
                If TypeName(tb.OLEFormat.Object) = "TextBox" Then
                    textBoxContent = tb.OLEFormat.Object.Value
                End If
            Case Else
                ' 跳过非文本框形状
                GoTo NextShape
        End Select
        
        ' 计算文本框正下方的单元格：取文本框底部位置对应的行+列
        Set targetCell = ActiveSheet.Cells( _
            ActiveSheet.Rows(tb.Top + tb.Height).Row, _
            ActiveSheet.Columns(tb.Left).Column _
        )
        
        ' 同步内容到单元格
        targetCell.Value = textBoxContent
        
NextShape:
    Next tb
End Sub

使用说明 #

1. 打开Excel的VBA编辑器（按Alt + F11）
2. 插入模块（右键工作簿 → 插入 → 模块）
3. 将上述代码粘贴到模块中
4. 返回工作表，添加表单控件按钮（开发工具 → 插入 → 按钮），关联这个宏
5. 调整好文本框位置后，点击按钮即可完成内容同步

优化：实时同步方案 #

如果需要文本框内容修改或位置调整后自动更新单元格，可根据文本框类型选择以下方案：

针对ActiveX文本框的实时同步

通过类模块批量绑定文本框的Change事件：

1. 插入类模块（右键工作簿 → 插入 → 类模块），命名为clsTextBoxHandler
2. 在类模块中写入：

Public WithEvents tb As MSForms.TextBox

Private Sub tb_Change()
    Dim targetCell As Range
    ' 定位文本框正下方的单元格
    Set targetCell = ThisWorkbook.ActiveSheet.Cells( _
        ThisWorkbook.ActiveSheet.Rows(tb.Top + tb.Height).Row, _
        ThisWorkbook.ActiveSheet.Columns(tb.Left).Column _
    )
    targetCell.Value = tb.Value
End Sub

3. 在目标工作表的代码模块中写入：

Private tbCollection As New Collection

Private Sub Worksheet_Activate()
    Dim oleObj As OLEObject
    Dim tbHandler As clsTextBoxHandler
    
    ' 清空旧的绑定
    Set tbCollection = New Collection
    
    ' 批量绑定所有ActiveX文本框
    For Each oleObj In Me.OLEObjects
        If TypeName(oleObj.Object) = "TextBox" Then
            Set tbHandler = New clsTextBoxHandler
            Set tbHandler.tb = oleObj.Object
            tbCollection.Add tbHandler
        End If
    Next oleObj
End Sub

针对表单控件文本框的实时同步

在目标工作表的代码模块中添加选择事件，每次切换单元格时同步所有文本框：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call SyncTextBoxesToCells
End Sub

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