如何在鼠标悬停在宏按钮上时显示提示信息,点击则运行宏，离开宏按钮时提示信息消失？

环境所迫

如何在鼠标悬停在宏按钮上时显示提示信息,点击则运行宏，离开宏按钮时提示信息消失？并能正常运行宏。[color=#999999 !important]

laynet

用了个取巧的方法
工作簿1.rar (25.08 KB, 下载次数: 6)

2019-10-2 14:53 上传

点击文件名下载附件

1.在图片上添加超连接,随便指向一个不会用到的单元格,然后在屏幕提示上写你要出现的提示文字.


2,在当前工作表的代码上加一句

     If Target.Address = "$C$5" Then Call 宏1
就解决了



具体看这个帖子
http://club.excelhome.net/thread-823455-1-1.html

dongjuwen

把图表指定宏或者把代码放到标签click事件Private Sub 上_Click()
    With ActiveSheet
        If .Index > 1 Then .Previous.Activate
    End With
End Sub
Private Sub 下_Click()
    With ActiveSheet
        If .Index < Sheets.Count Then .Next.Activate
    End With
End Sub

环境所迫

dongjuwen 发表于 2019-9-29 11:30
供参考…………

非常感谢，是可以提示信息了，可无法运行宏了？

wowo000

dongjuwen兄，恳请你帮俺照你的意思弄个附件吧！

dongjuwen

wowo000 发表于 2019-9-29 17:01
dongjuwen兄，可否看看此贴，至今没人解决。先谢了！
Excel 为何总有一个“出色”？-ExcelVBA程序开发-Exc ...

已在你原贴上传附件。增加一个空标签传递空值就可以。
也可以创建类，代码会减少很多。

wowo000

dongjuwen兄，可否看看此贴，至今没人解决。先谢了！
Excel 为何总有一个“出色”？-ExcelVBA程序开发-ExcelHome技术论坛 -  http://club.excelhome.net/thread-1490780-1-1.html

dongjuwen

Private Sub 上_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Call myTips("上")
    If X > 35 Or X < 2 Or Y > 40 Or Y < 2 Then
        LblTips.Visible = False
    End If
End Sub
X和Y是“房子”的宽度和高度。数值设置“房子”的边界值是多少

dongjuwen

wowo000 发表于 2019-9-29 12:33
可惜，当鼠标离开两个小房子时不能隐藏提示内容，也就是当鼠标没移到任何一个小房子时，不显示任何提示内容 ...

这个容易呢，判断x值在某个范围内显示，x值不在范围内隐藏

wowo000

可惜，当鼠标离开两个小房子时不能隐藏提示内容，也就是当鼠标没移到任何一个小房子时，不显示任何提示内容。