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

dhf104109

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

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

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



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

非常感谢

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

maditate

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

End Sub

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

zanjero

可能首先你要：获取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

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

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

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

a6789

原帖由 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

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

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

请同研究我的问题！

liuxiao

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

End Sub

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

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

zldccmx

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

liguyu

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

liguyu

请问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
放在新的工作簿中则显示运行错误,请指教.