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

和F键。也就是使excel的查找对话框跳出另有一个问题:我在制作的某张工作表的每个单元格都加入了超链接到其他工作表,但是确把链接到的工作表隐藏了,如何实现点击单元格时隐藏... 和F 键。也就是使excel的查找对话框跳出

另有一个问题:我在制作的某张工作表的每个单元格都加入了超链接到其他工作表,但是确把链接到的工作表隐藏了,如何实现点击单元格时隐藏的那张工作表出现并选中
展开
 我来答
百度网友643d77a
2011-07-20 · TA获得超过229个赞
知道小有建树答主
回答量:112
采纳率:0%
帮助的人:128万
展开全部
第一个问题比较简单,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
追问
第二个问题得到解决、、十分感谢!!!
但是还有一个问题也是关于隐藏的工作表的。就是希望第一个问题实现的搜索功能 能够搜索到隐藏的工作表中的内容!!
追答
那可以在弹出查找替换对话框前取消所有工作表的隐藏属性,然后在搜索完成后再对需要隐藏的工作表进行隐藏。
太极健1969
2011-07-20 · TA获得超过9029个赞
知道大有可为答主
回答量:8668
采纳率:69%
帮助的人:3532万
展开全部
Sub 按钮1_Click()
Application.Dialogs(64).Show
End Sub
链接到工作表,建议单元格数据就是工作表名,可VBA自动生成
链接效果的产生使用单元格事件来完成
代码
如单元格A1的内容是:sheet2
当点击A1时,sheet2取消隐藏并激活
sheet2.hidden=false
sheet2.select
追问
第一个问题得到解决、、不过我要同时能够搜索到已经隐藏的工作表中的内容又应该如何编写程序呢?麻烦程序写详细些!!!万分感谢
追答
没有具体的数据,我也不知道你的链接是怎么样的,怎么写???以上已经
sheet2.hidden=false这就是取消隐藏
sheet2.select 这就是激活呀
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2011-07-21
展开全部
ThisWorkbook.Save
另外,站长团上有产品团购,便宜有保证
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式