第一个问题比较简单,Excel里有内置的对话框,我没去查Index为64的是不是查找替换,方法正如楼上的兄弟所说。
第二个问题可以用Worksheet的FollowHyperlink事件来做,将以下程序添加到包含超链接的工作表的VBA模块中应该就可以了:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim sheetTarget As Worksheet
On Error Resume Next
If Trim(Target.Address) = "" Then
Set sheetTarget = Application.Range(Target.SubAddress).Parent
If Not sheetTarget.Visible Then
sheetTarget.Visible = xlSheetVisible
End If
End If
End Sub
Sub 按钮1_Click()
Application.Dialogs(64).Show
End Sub
链接到工作表,建议单元格数据就是工作表名,可VBA自动生成
链接效果的产生使用单元格事件来完成
代码
如单元格A1的内容是:sheet2
当点击A1时,sheet2取消隐藏并激活
sheet2.hidden=false
sheet2.select
ThisWorkbook.Save
另外,站长团上有产品团购,便宜有保证