查询并生成超链接

ykcbf1100

olin12345 发表于 2023-7-17 15:01
谢谢老师，就是这样的结果
麻烦老师能帮忙修改成触发的吗，不点按钮。

改成工作表事件了

ykcbf1100

于箱长 发表于 2023-7-17 15:07
老哥，超链接也会啊

现学现卖，哈哈。

olin12345

ykcbf1100 发表于 2023-7-17 15:15
改成工作表事件了

可以了，非常感谢。

LIUZHU

于箱长 发表于 2023-7-17 15:06
wps也分版本的吧

WPS2019版以上，都支持JS，难道现在WPS还有用老版的吗？

于箱长

LIUZHU 发表于 2023-7-17 15:27
WPS2019版以上，都支持JS，难道现在WPS还有用老版的吗？

嗯，我用的就是没有js的2019版

LIUZHU

于箱长 发表于 2023-7-17 15:28
嗯，我用的就是没有js的2019版

到WPS.cn上下载一个最新的安装，用习惯了WPS再来用Office都觉得不习惯了

olin12345

ykcbf1100 发表于 2023-7-17 15:15
改成工作表事件了

老师还想请教一下，如果类别中，除了“类“，还有”特供“、”系列”这一段应该怎么修改

If InStr(Me.[h2], "类") Then
        fn = Replace(Me.[h2], "类", "")
        Me.Hyperlinks.Add Anchor:=Me.[f2], Address:=p & fn & ".xlsx"
    Else
        Me.Hyperlinks.Add Anchor:=Me.[f2], Address:="", SubAddress:="'" & Me.[h2] & "'!A1"

ykcbf1100

olin12345 发表于 2023-7-19 16:28
老师还想请教一下，如果类别中，除了“类“，还有”特供“、”系列”这一段应该怎么修改

If InStr(Me. ...

改好了，用了正则提取。

olin12345

ykcbf1100 发表于 2023-7-19 18:51
改好了，用了正则提取。

非常感谢多次的热心帮助。