Question

EXCEL返回鼠标所选单元格所在行的第三个单元格 值,动态显示VBA按钮文字

例如 点击 D7 A1返回D3
点击B8 A1返回B3
点击C20 A1返回C3

还有另一个问题，如何动态显示VBA按钮上的文字
例如当 A1为完成时 按钮显示为 恢复
A1为未完成时 按钮显示为 中止

Answer 1

你的例子有问题，可以这样说：
假设选中D列的任何一个单元格，如D2,D3,D5,D1,D7等等，只要是D列的单元格，A1中都都显示D3的值，选中F列中的任何单元格，A1都显示F3的值，依此类推。

现在将第一个问题的代码列出，你试试：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1] = Cells(Target.Row, 3) '选择任何一个单元格，A1都显示该单元格所在行的第3个单元格的值
End Sub

Answer 2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'点击 D7 A1返回D3
If Target.Address = "$D$7" Then [A1] = [D3]
'点击B8 A1返回B3
If Target.Address = "$B$8" Then [A1] = [B3]
'点击C20 A1返回C3
If Target.Address = "$C$20" Then [A1] = [C3]
'A1为完成时 按钮显示为 恢复,假设按钮名称为CommandButton1
If [A1] = "完成" Then
CommandButton1.Caption = "恢复"
'A1为未完成时 按钮显示为 中止
ElseIf [A1] = "未完成" Then
CommandButton1.Caption = "中止"
End If
End Sub

追问

点击哪个单元格是不固定的 反正要返回所在行的第三个单元格的值 按钮的好了 谢谢

追答

不明白你说的意思，"点击C20 A1返回C3"与“要返回所在行的第三个单元格的值”，这两句话怎么理解。

Answer 3

用selectionchange事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim theCell as Range
set theCell = Range(Target.Row, 3)

End Sub

第二个问题用Change事件
Private Sub Worksheet_Change(ByVal Target As Range)
if target.address="$A$1" and target="完成" then commandbutton1.caption="恢复"

if target.address="$A$1" and target="未完成" then commandbutton1.caption="中止"
End Sub

Answer 4

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = Cells(3, Target.Column)
CommandButton1.Caption = "CommandButton1"
If [A1] = "完成" Then CommandButton1.Caption = "恢复"
If [A1] = "未完成" Then CommandButton1.Caption = "中止"
End Sub