如何和给单元格下拉菜单的每一项指定超链接

cscandyman

把工作簿中说有工作表的名称放在一个单元格的下拉菜单中怎么实现？能否实现选中一项时就激活相应工作表，最好是用比较简单的方法！

liulang0808

Private Sub Worksheet_Change(ByVal Target As Range)
   
    Application.EnableEvents = False
    If Target.Address(0, 0) = "B2" Then
        If Target.Value <> "" Then
            str1 = Target
            Sheets(str1).Select
        End If
    End If
    Application.EnableEvents = True
End Sub

liulang0808

详见附件内容，看看是不是你需要的

cscandyman

liulang0808 发表于 2014-2-12 13:51
详见附件内容，看看是不是你需要的

是的，这个是怎么设置的啊，麻烦将一下详细步骤，先谢了！

liulang0808

下拉列表正常设置就完了
Private Sub Worksheet_Change(ByVal Target As Range)
   
    Application.EnableEvents = False
    If Target.Address(0, 0) = "B2" Then
        If Target.Value <> "" Then
            str1 = Target
            Sheets(str1).Select
        End If
    End If
    Application.EnableEvents = True
End Sub
主要是这段 表格change事件

cscandyman

liulang0808 发表于 2014-2-12 15:28
下拉列表正常设置就完了
Private Sub Worksheet_Change(ByVal Target As Range)
   

之前没注意看代码，下拉列表的值得自己一个一个输啊？
我还以为有比较简单的法子哦，不过效果还是比较理想，谢了！

liulang0808

cscandyman 发表于 2014-2-12 15:34
之前没注意看代码，下拉列表的值得自己一个一个输啊？
我还以为有比较简单的法子哦，不过效果还是比较理 ...

下拉列表，可以录制宏，自己修改下，因为这个仅仅是针对跳转到别的表格上的实例

liumang7788

不会修改啊！

aman1516

liumang7788 发表于 2014-7-27 09:20
不会修改啊！

增加一段代码，将工作表名称赋给下拉列表：

Dim strS    '设置为公共变量

Private Sub Worksheet_Activate()
Dim ws
For Each ws In Sheets
    strS = strS & "," & ws.Name
Next
With Range("B2").Validation
    .Delete
    .Add Type:=xlValidateList, Formula1:=strS
End With
End Sub

另外想请教下 liulang0808  老师，刚好这个例子是工作表转跳的示例，用 Sheets(str1).Select 就实现了超级链接的功能。
若我的下拉列表的内容不是工作表名称，并且是指定其它的超级链拉（当然有列表内容与对应超级链拉的清单），则如何修改代码？

aman1516

如附件所示： 工作表名称列表0727.rar (15.12 KB, 下载次数: 315)

2014-7-27 19:05 上传

点击文件名下载附件

选择下拉列表，同时打开对应的超级链接。