excel如何做到鼠标点击某单元格，另一单元格就自动显示鼠标单元格的内容？

Question

“鼠标点击某单元格”，意思是，比如点击A3单元格，那么A3单元格的值（假如是“你好！”）就显示在另一单元格（比如A4）里。
谢谢大家的帮忙，谢谢，谢谢，鼠标点击红色区域就好，点击其他地方G5（绿色框）不要跟着显示，还是显示原来红色里的内容就好。
B7到G10就好，非常感谢。

Answer 1

用VBA写代码即可实现。

详细步骤如下：

1.Alt+F11，打开VBA编辑界面，双击左侧Microsoft Excel对象下的“Sheet1”，确保程序是在sheet1中执行

2.点击下图“通用”右侧的下拉箭头，选择worksheet

3.此时，代码编辑区，自动出现两串代码，如下图所示：

4.补充写上一句代码“Range("h1")=Target.text"

5.关闭VBA界面，返回Sheet1，点击任意单元格，就看到H1的值就等于点击单元格的值

Answer 2

可以 用 VBA  Selecte change 事件

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Set isect = Application.Intersect(Target, Range("B7:G10"))
 If Not (isect Is Nothing) Then [g5] = Target
End Sub

追问

谢谢谢谢谢谢，就是这样，你好厉害！也谢谢其他几位高手，谢谢你们。终于搞定了。

本回答被提问者采纳

Answer 3

在G5单元格输入=INDIRECT(CELL("address"))，然后点击内容单元格的时候只需要双击，然后在其他地方随意再点一下就可以了。

Answer 4

将下列代码粘贴到宏代码区中。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row = 5 And Target.Column = 7 Then Exit Sub
    If Target.Row >= 7 And Target.Row <= 10 And Target.Column >= 2 And Target.Column <= 7 Then
        Range("G5") = Target.Value
    End If
End Sub

追问

你这个代码很好，但是我只要部分区域的，就是说你这个代码不论我点击哪里，A4就会显示哪里，我想要只是鼠标点击B7到G10里的任意格A4就显示鼠标所选的，当鼠标选择B7到G10以外的单元格是A4就不用跟着显示了，保持刚才所选的B7到G10的内容就好了，请问这可以吗？

追答

我已修改：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Row = 5 And Target.Column = 7 Then Exit Sub

    If Target.Row >= 7 And Target.Row <= 10 And Target.Column >= 2 And Target.Column <= 7 Then

        Range("B4") = Target.Value

    End If

End Sub

追问

嗯，这个好，就是代码太多了，很好用谢谢您，麻烦您了。

Answer 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 2 And Target.Column <= 5 Then
r = Range("G" & Rows.Count).End(xlUp).Row
If r = 1 Then Exit Sub
If Target.Column = 1 Then Cells(r, "h") = Target.Value
If Target.Column = 2 Then Cells(r, "h") = Target.Value
If Target.Column = 3 Then Cells(r, "i") = Target.Value
If Target.Column = 4 Then Cells(r, "j") = Target.Value
If Target.Column = 5 Then Cells(r, "k") = Target.Value
End If
End Sub追问

谢谢，做不到我想要的，每次都要输入名字很麻烦，想用鼠标点击谁，就显示谁，不想用输入了。