如何用 VB 取得单元格公式 =HYPERLINK(" 中的链接呢？

keyifs · 发表于 2013-7-26 09:31

=HYPERLINK("http://i00.c.aliimg.com/img/ibank/2013/724/671/893176427_729852841.jpg", "点击查看图片")

大家好，我有一列数据，是公式中设置链接的，如何用 VB 来取得公式中的链接，如上面的图片链接 http://i00.c.aliimg.com/img/ibank/2013/724/671/893176427_729852841.jpg

谢谢！

EluneXY · 发表于 2013-7-26 09:32

楼主，是VB还是VBA啊？{:soso_e132:}

lsdongjh · 发表于 2013-7-26 09:45

Split(表.Range(你的单元格).FormulaLocal, Chr(34))(1)

AVEL · 发表于 2013-7-26 10:38

Split(Sheet1.Range("a1").FormulaR1C1, """")(1)

keyifs · 发表于 2013-7-26 11:25

问题还更复杂一些，就是公式的链接是组成的，如 =HYPERLINK(“http://i00.c.aliimg.com/imgid="&”893176427_729852841.jpg", "点击查看图片")
那该怎么办呢，有没有更直接的，判断公式运算后的整体链接来取值呢

EluneXY · 发表于 2013-7-26 13:01

Evaluate(Replace(Range("A1").Formula, ", ""点击查看图片""", ""))

复制代码

709030180 · 发表于 2018-8-23 11:57

楼主解决了吗，我也遇到了一样的问题，希望能得到您的帮助

chentonny · 发表于 2018-8-23 13:11

把公式读入变量，再对变量运用正则提取。

		自动登录	找回密码
密码			免费注册

[已解决] 如何用 VB 取得单元格公式 =HYPERLINK(" 中的链接呢？