[已解决]简单问题工作页变数

10210578

Sub test()     With ActiveSheet.Hyperlinks         '工作簿间         .Add Anchor:=Sheets("123").[a1], Address:="", SubAddress:="#456!c1"     End With End Sub 把红色变成变数 SubAddress:="'456'!“ & Cells(3, 1).address 那再请问工作页"456"怎么写可以变成变数工作页 设dddd = Sheets("456").Index 要把dddd加进去 变成变数

最佳答案

月排行榜 / 总排行榜

爱疯

2015-11-3 15:48

应先说明结果效果才好理解。是这样吗？

Sub test2()
    With ActiveSheet.Hyperlinks
        '工作簿内
        .Add Anchor:=Sheets("123").[a1], Address:="", SubAddress:="#456!" & Sheets("456").[c1] & Sheets("456").Index
    End With
End Sub

跳转到最佳答案楼层

1032446692

1. Sub test()
   
2.     With ActiveSheet.Hyperlinks
   
3.         '工作簿间
   
4.         dddd = Sheets("456").Index
   
5.         .Add Anchor:=Sheets("123").[a1], Address:="", SubAddress:="#" & dddd & "!c1"
   
6.     End With
   
7. End Sub
   

复制代码

10210578

大大 我跑下去好像不能呢

爱疯

应先说明结果效果才好理解。是这样吗？

Sub test2()
    With ActiveSheet.Hyperlinks
        '工作簿内
        .Add Anchor:=Sheets("123").[a1], Address:="", SubAddress:="#456!" & Sheets("456").[c1] & Sheets("456").Index
    End With
End Sub

10210578

謝謝 解決了