Question

使用Excel的VBA编程、添加了一个命令按钮，如何使其达到的效果为 click这个按钮等于同时在excel中按下Ctrl

和F 键。也就是使excel的查找对话框跳出

另有一个问题：我在制作的某张工作表的每个单元格都加入了超链接到其他工作表，但是确把链接到的工作表隐藏了，如何实现点击单元格时隐藏的那张工作表出现并选中

Answer 1

第一个问题比较简单，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

追问

第二个问题得到解决、、十分感谢！！！
但是还有一个问题也是关于隐藏的工作表的。就是希望第一个问题实现的搜索功能 能够搜索到隐藏的工作表中的内容！！

追答

那可以在弹出查找替换对话框前取消所有工作表的隐藏属性，然后在搜索完成后再对需要隐藏的工作表进行隐藏。

Answer 2

Sub 按钮1_Click()
Application.Dialogs(64).Show
End Sub
链接到工作表，建议单元格数据就是工作表名，可VBA自动生成
链接效果的产生使用单元格事件来完成
代码
如单元格A1的内容是：sheet2
当点击A1时,sheet2取消隐藏并激活
sheet2.hidden=false
sheet2.select

追问

第一个问题得到解决、、不过我要同时能够搜索到已经隐藏的工作表中的内容又应该如何编写程序呢？麻烦程序写详细些！！！万分感谢

追答

没有具体的数据，我也不知道你的链接是怎么样的，怎么写？？？以上已经
sheet2.hidden=false这就是取消隐藏
sheet2.select 这就是激活呀

Answer 3

ThisWorkbook.Save
另外,站长团上有产品团购,便宜有保证