Office及VBA技术交流

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 2009|回复: 0

Excel VBA 如何实现鼠标悬停hover 触发或者执行一个宏

[复制链接]
  • TA的每日心情

    2016-2-20 08:02
  • 签到天数: 1 天

    [LV.1]初来乍到

    88

    主题

    155

    帖子

    625

    积分

    高级会员

    Rank: 4

    积分
    625
    发表于 2016-2-3 15:44:10 | 显示全部楼层 |阅读模式
    本帖最后由 yibeicha 于 2016-2-3 15:45 编辑

    原创内容,转载请注明:

    转自:office master
    固定链接:http://officemaster.cn/forum.php?mod=viewthread&tid=218&extra=


    首先在VBE工程中创建一个VBA模块,然后添加以下代码来放你需要触发的功能。
    1. Public Function OnMouseOver()
    2.          Sheet1.Range("A2").Value = "You hovered over a cell"
    3. End Function
    复制代码


    然后在同一张表中的任意一个单元格中输入以下公式
    1. =IFERROR(HYPERLINK(OnMouseOver(),"Click here"), "Click here")
    复制代码
    接下来就可以在表格中将鼠标移向输入以上公式的单元格测试效果了




    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?立即注册

    x
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    手机版|小黑屋|Office Master ( 蜀ICP备16003423号 )

    GMT+8, 2019-10-19 03:38 , Processed in 0.256781 second(s), 25 queries .

    Office Master

    快速回复 返回顶部 返回列表