如何VB实现鼠标指向单元格提示信息

dhf104109 · 发表于 2009-10-11 19:31

您好：
我一工作簿中有《分数表》和《个人档案表》两个表，
《分数表》中列A是学生名字，
《个人档案表》中列A是学生名字，列B到列F，分别是姓别、出生年月日、家庭地址、家长、家长电话。

我想实这样一个功能，
在《分数表》列A中，当鼠标移到一个单元格时，提示一个信息，移开时该信息消失，
该信息来源是《个人档案表》中对应名字的 B到F列的资料，

例如：
鼠标移到名字为“张三”的单元格中（指向时，并未选中），提示信息如下：
姓别：男
出生年月日：1993年8月10日
家庭地址：广州市碧桂园23座2308号
家长：张大
家长电话：13812345678

请问我如何用VB实现？？
请帮忙写出代码，在下有点VB盲，请指点代码该放在何处

非常感谢

[ 本帖最后由 dhf104109 于 2009-10-11 19:44 编辑 ]

maditate · 发表于 2009-10-11 19:37

在下面的事件中写代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

[ 本帖最后由 maditate 于 2009-10-11 20:19 编辑 ]

zanjero · 发表于 2009-10-11 20:00

可能首先你要：获取Excel鼠标动作的COM加载项  http://club.excelhome.net/thread-482207-1-1.html
在MOUSEMOVE的时候用API函数GetCursorPos(lngCurPos)  获得鼠标坐标，再判断是否在A列:

if Application.ActiveWindow.RangeFromPoint(lngCurPos.x, lngCurPos.y).Column=1 then '在A列

   '参考这个帖子：將userform放置於指定儲存格左上角  http://www.officefans.net/cdb/vi ... page%3D1&page=1

   else
      exit sub
endif

PS:这个方法比较占系统资源

[ 本帖最后由 zanjero 于 2009-10-16 11:23 编辑 ]

dhf104109 · 发表于 2009-10-11 22:09

非常感谢，可以实现单击时出现提示了，谢谢。。。。。。。

不知是否可以进一步，实现鼠标指针移入单元格时显示提示，鼠标移出时提示消失呢??

如果不可以实现,也请回句话。。。。。谢谢。。。。。。

a6789 · 发表于 2010-1-20 11:19

原帖由 maditate 于 2009-10-11 19:37 发表
在下面的事件中写代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

请问,把代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ff = rr
If Target.Column = 1 And Target.Row > 1 Then
行号 = Application.Match(Target, Sheets("个人档案表").Range("A:A"), 0)
If IsNumeric(行号) Then
      Label1.Caption = "姓    别： " & Sheets("个人档案表").Cells(行号, 2) & Chr(13) & "出生年月日： " & Sheets("个人档案表").Cells(行号, 3) & Chr(13) & "家庭地址： " & Sheets("个人档案表").Cells(行号, 4) & Chr(13) & "家    长： " & Sheets("个人档案表").Cells(行号, 5) & Chr(13) & "家长电话： " & Sheets("个人档案表").Cells(行号, 6)
      Label1.Top = Target.Top + 2
      Label1.Left = Target.Width + 20
      Label1.Visible = True
Else
      Label1.Visible = False
End If
Else
      Label1.Visible = False
End If
End Sub

复制到新建工作簿为何不行?

liuxiao · 发表于 2010-4-28 13:47

原帖由 liuxiao 于 2010-3-17 14:22 发表

代码实现的效果很好。感谢！新增内容后，怎样能调整提示文本框的大小？如果找不到信息，提示无信息，代码怎么写？提示文本框加上有颜色的边框更好，或加上浅色填充。

请同研究我的问题！

liuxiao · 发表于 2010-3-17 14:22

原帖由 maditate 于 2009-10-11 19:37 发表
在下面的事件中写代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

代码实现的效果很好。感谢！新增内容后，怎样能调整提示文本框的大小？如果找不到信息，提示无信息，代码怎么写？提示文本框加上有颜色的边框更好，或加上浅色填充。

[ 本帖最后由 liuxiao 于 2010-3-17 14:27 编辑 ]

zldccmx · 发表于 2010-4-28 11:50

晕死，直接用批注不就OK了？

liguyu · 发表于 2010-4-28 11:42

我弄明白了,原来先要通过"控件工具箱"拖一个标签控件出来,再运行.

liguyu · 发表于 2010-4-23 17:18

请问2楼:宏放在新的EXCEL表中不可用,为什么?是不是要引用什么才能正常使用.如下宏Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ff = rr
      Label1.Caption = "科目编号： " & Sheets("明细").Cells(Target.Row, 3) & Chr(13) & "科目名称： " & Sheets("明细").Cells(Target.Row, 4)
      Label1.Top = Target.Top + 2
      Label1.Left = Target.Width + 20
      Label1.Visible = True
End Sub
放在新的工作簿中则显示运行错误,请指教.

		自动登录	找回密码
密码			免费注册

[已解决] 如何VB实现鼠标指向单元格提示信息

回复 2楼 maditate 的帖子

点评

请问将2楼的宏放在新表中不可用,请问为什么?