建表链接填单元格

xing_chen

fzxba 发表于 2023-2-22 16:19
subaddress:= "'" &  工作表名 & "'!b1"  
留意红色处

谢谢老师！我试试看

xing_chen

fzxba 发表于 2023-2-22 16:19
subaddress:= "'" &  工作表名 & "'!b1"  
留意红色处

老师！链接不行，返回可以。和原来一样

xing_chen

fzxba 发表于 2023-2-22 16:19
subaddress:= "'" &  工作表名 & "'!b1"  
留意红色处

老师！我是这样修改的： SubAddress:="'" & mc & "!" & "'b1"

fzxba

xing_chen 发表于 2023-2-22 16:40
老师！我是这样修改的： SubAddress:="'" & mc & "!" & "'b1"

'  不在 b1 前，在 叹号前
补充一下，
SubAddress:="'" & mc & "'!b1"

xing_chen

fzxba 发表于 2023-2-22 16:19
subaddress:= "'" &  工作表名 & "'!b1"  
留意红色处

老师！我l链接句改为: Sheets("Ŀ¼").Hyperlinks.Add Anchor:=Sheets("Ŀ¼").Range("a" & i), Address:="", SubAddress:="'" & mc & "!" & "'b1"

xing_chen

fzxba 发表于 2023-2-22 16:42
'  不在 b1 前，在 叹号前
补充一下，
SubAddress:="'" & mc & "'!b1"

Sheets("目录").Hyperlinks.Add Anchor:=Sheets("目录").Range("a" & i), Address:="", SubAddress:="" & mc & "!b1"
是这样吗，不行呀！保留最后的Address,则红

fzxba

xing_chen 发表于 2023-2-22 16:57
Sheets("目录").Hyperlinks.Add Anchor:=Sheets("目录").Range("a" & i), Address:="", SubAddress:=""  ...

把我的复制过去。

xing_chen

fzxba 发表于 2023-2-22 16:42
'  不在 b1 前，在 叹号前
补充一下，
SubAddress:="'" & mc & "'!b1"

老师！是这样吗？

xing_chen

fzxba 发表于 2023-2-22 17:00
把我的复制过去。

老师，我复制了

xing_chen

fzxba 发表于 2023-2-22 17:00
把我的复制过去。

我看清了，你让我复制进的引号中有上引号，但还是链接不上