...按钮,如何使其达到的效果为 click这个按钮等于同时在excel中按...

发布网友发布时间：2024-10-13 21:29

共3个回答

热心网友时间：2024-11-08 05:41

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

热心网友时间：2024-11-08 05:42

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

热心网友时间：2024-11-08 05:41

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