问题描述
我的代码用于在Excel文件中添加摘要。 因此,第一张表是用于汇总表的,其中所有表都被命名(当我们单击它时,我们进入选择页面)。
这是此页的代码:
Private Sub Worksheet_Activate()
[C5:C100].ClearContents
For i = 2 To Sheets.Count
nf = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i + 3,3),Address:="",SubAddress:="'" & _
nf & "'" & "!A1",TextTodisplay:=nf
Next i
[C5:C100].sort Key1:=Range("C5"),Order1:=xlAscending,Header:=xlGuess
End Sub
这是此页的一个示例:
在它旁边,我需要为“ Thisworkbook”代码中的每个页面添加一个代码,目的是添加带有摘要名称的超链接(直接转到摘要)和2个箭头(在纸张之间移动。
这是代码:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Index > 1 Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(1,1),SubAddress:="'" & _
Sheets(2).Name & "'" & "!A1",TextTodisplay:=Sheets(2).Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(1,2),SubAddress:="'" & _
Sheets(ActiveSheet.Index - 1).Name & "'" & "!A1",TextTodisplay:="<"
End If
If ActiveSheet.Index < Sheets.Count Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(1,SubAddress:="'" & _
Sheets(ActiveSheet.Index + 1).Name & "'" & "!A1",TextTodisplay:=">"
End If
End Sub
难题是,我需要在命名为“模板”的一个特定工作表的A1:A3单元格中隐藏文本“ Sommaire ”。
我已经尝试过将文本设置为白色,但是每次更改工作表时都会刷新文本(由于宏)。
您是否有想法仅在此工作表的循环中添加exeption?
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)