如何实现选中CELL后ActiveX文本框显示同行其他CELL值？

这个功能完全可以实现，通过Excel VBA的工作表事件就能完成，具体步骤如下：

1. 打开VBA编辑器 #

• 右键点击目标工作表标签（比如Sheet1），选择「查看代码」，打开VBA编辑器界面。

2. 编写工作表事件代码 #

在编辑器的代码窗口中，粘贴以下代码（注意根据你的文本框实际名称修改代码里的控件名）：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 仅处理单个单元格选中的情况
    If Target.Cells.Count = 1 Then
        Dim rowNum As Integer
        rowNum = Target.Row
        
        ' 给三个ActiveX文本框赋值，替换成你实际的文本框名称
        Me.TextBox1.Value = Me.Cells(rowNum, "F").Value
        Me.TextBox2.Value = Me.Cells(rowNum, "G").Value
        Me.TextBox3.Value = Me.Cells(rowNum, "H").Value
    End If
End Sub

3. 代码说明 #

• Worksheet_SelectionChange是工作表的内置事件，当选中单元格变化时会自动触发。
• 先判断选中的是否是单个单元格，避免多选时出现错误。
• 获取选中单元格的行号rowNum，然后通过Me.Cells(rowNum, "F")获取对应行F列的值，赋值给对应文本框。

4. 测试功能 #

回到Excel工作表，选中任意单元格（比如B4），对应的三个ActiveX文本框就会自动显示该行F、G、H列的内容。

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