`
发表于2022/11/26 13:58:32 楼主 
头像 等级:初学者
积分:0
财富值:2.0
身份:普通用户
Sub 添加超链接()
ActiveSheet.Hyperlinks.Add Anchor:=Range("a1"), Address:="#跳转至函数(A1)"
End Sub

Function 跳转至函数(a)
    Range("a2") = a
    Set 跳转至函数 = Selection

End Function


在vba模块中可以使用,在方方格子DIY工具箱中无法使用(贴在sheet1或thisWorkbook中也无法使用),主要是想放在DIY工具箱中用,有手段可以解决么?

我的个性签名
发表于 2022/11/28 9:09:50   
头像 等级:传说级人物
积分:1993
财富值:6
身份:系统管理员
方方格子安装教程http://www.ffcell.com/WenKu/article.aspx?id=376

快速回复

目前不允许游客发表,请 登录 注册 后再发贴。