[已解决]这样鼠标显示对应的数据

点睛之灯

请高手们帮忙。如何用鼠标点在单元格中显示相对应的数据，具体见附表

最佳答案

月排行榜 / 总排行榜

dongqing1998

2013-7-18 15:22

点睛之灯 发表于 2013-7-18 14:23
那这样在鼠标所点的单元格中直接显示所对应的数据

根据楼主要求做了修改

跳转到最佳答案楼层

hwc2ycy

想这样，可以利用批注功能，意义不大。

如果只是为了看到第一行的标题，建议利用冻结首行的功能。

点睛之灯

hwc2ycy 发表于 2013-7-18 09:15
想这样，可以利用批注功能，意义不大。

如果只是为了看到第一行的标题，建议利用冻结首行的功能。

并不是要看标题一栏，意思是鼠标所点单元格就输入相应标题中的数字

爱疯

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$10" Then Target = Cells(1, Target.Column)
    If Target.Address = "$D$8" Then Target = Cells(1, Target.Column)
End Sub
利用鼠标2.rar (13.74 KB, 下载次数: 5)

2013-7-18 10:49 上传

点击文件名下载附件

dongqing1998

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Row > 1 And Selection.Count = 1 Then
   
3.         MsgBox "当前列第一个单元格的值=" & Cells(1, Target.Column)
   
4.     End If
   
5. End Sub

复制代码

上面的代码比较简单,但不用鼠标(如用光标键等)选择单元格时也会出现提示。
附件里的代码是只有用鼠标选择单元格时才会出现提示。
利用鼠标.zip (18.5 KB, 下载次数: 6)

2013-7-18 11:27 上传

点击文件名下载附件
PS:代码只是做了简单测试

dongqing1998

附件中把下面代码补充进去：

1. Private Sub Worksheet_Deactivate()
   
2.     freeHook
   
3. End Sub

复制代码

下面是测试结果：

点睛之灯

dongqing1998 发表于 2013-7-18 11:27
上面的代码比较简单,但不用鼠标(如用光标键等)选择单元格时也会出现提示。
附件里的代码是只有用鼠标选择单 ...

那这样在鼠标所点的单元格中直接显示所对应的数据

dongqing1998

点睛之灯 发表于 2013-7-18 14:23
那这样在鼠标所点的单元格中直接显示所对应的数据

根据楼主要求做了修改

点睛之灯

dongqing1998 发表于 2013-7-18 15:22
根据楼主要求做了修改

非常感谢！非常好用