ub 链接()
Sheets("首页").Select
'显示所有工作表
For i = 1 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name
Next
'超链接
For i = 1 To Sheets.Count
t = Cells(i, 1)
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=t & "!A1", ScreenTip:="进入", TextToDisplay:=t
Next
End Sub
在address那部分总提示我缺少表达式，求解释
ub 链接() Sheets("首页").Select '显示所有工作表 For i = 1 To Sheets.Count Cells(i, 1)...
答案:1 悬赏:20 手机版
解决时间 2021-03-05 06:50
- 提问者网友：浮克旳回音
- 2021-03-04 08:04
最佳答案
- 五星知识达人网友：一袍清酒付
- 2021-03-04 08:39
klnjklnkj
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯