下拉菜单做超链接，新增sheet自动添加到下拉菜单中，查看记录时跳转到相应sheet

七@七

各位老师、大神，        下午好。
         excel菜鸟求助。
         1.每增加1个sheet就会在C列下拉菜单中自动添加；
         2.新增加记录：C列选择客户后自动跳转到相应客户的sheet中；
         3.查看：点击已记录的C列客户自动跳转到相应的sheet中
          感谢各位帮助！

大灰狼1976

使用工作表事件完成。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Column <> 3 Then Exit Sub
   
4. If Target.Row = 1 Then Exit Sub
   
5. Sheets(Target.Value).Select
   
6. Target.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=Target.Value & "!A1", TextToDisplay:=Target.Value
   
7. End Sub
   
8. 
   
9. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
10. If Target.Count > 1 Then Exit Sub
    
11. If Target.Column <> 3 Then Exit Sub
    
12. If Target.Row = 1 Then Exit Sub
    
13. Dim sh&, s$
    
14. For sh = 3 To Sheets.Count
    
15.   s = s & "," & Sheets(sh).Name
    
16. Next
    
17. Cells.Validation.Delete
    
18. Target.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Mid(s, 2)
    
19. End Sub

复制代码

大灰狼1976

附件也给你。

七@七

大灰狼1976 发表于 2017-8-9 15:28
附件也给你。

非常感谢。1和2的需求都实现了，需求3能不能实现呢？

大灰狼1976

原有的数据加上超链接也很简单，但是好像没有必要，因为每次选择C列单元格后，那个单元格就会自动设置超链接，以后一直有效。之前没有设定的，你点击选取一次就行了。

七@七

大灰狼1976 发表于 2017-8-9 15:44
原有的数据加上超链接也很简单，但是好像没有必要，因为每次选择C列单元格后，那个单元格就会自动设置超链 ...

再次感谢
因为这个日报要发给老板看，他需要点击日报的客户名称查看对应客户内容的变化    我是个小菜鸟，不会设置   
麻烦帮忙解决，O(∩_∩)O谢谢

大灰狼1976

都设置好了呀，我的意思是原来没有设置超链接的单元格，你都选取一次下拉列表，再保存就OK啦！
你试试有问题再跟我说

七@七

大灰狼1976 发表于 2017-8-9 15:52
都设置好了呀，我的意思是原来没有设置超链接的单元格，你都选取一次下拉列表，再保存就OK啦！
你试试有问 ...

不好意思，刚才没有测试，3个问题都解决了。
{:18:}{:221:}

199408080017

大灰狼1976 发表于 2017-8-9 15:26
使用工作表事件完成。

您好，网上查询下拉菜单和超链接看到这段代码，我的需求比较简单，制作一个工作总结查看表。
层级：副总经理（4个人）、总监（8个人）
日期：这个也像他的问题一样设置一个下拉框，自动添加SHEET就行；
但是会多一步层级和日期的联动，您能帮我看一下吗？

大灰狼1976

199408080017 发表于 2021-11-15 16:31
您好，网上查询下拉菜单和超链接看到这段代码，我的需求比较简单，制作一个工作总结查看表。
层级：副总 ...

不太明白你所说的层级和联动是什么意思，有以下提问：
1、层级下拉框里是什么数据，举个例子；
2、日期下拉框里是什么数据，怎么和层级联动；
3、两个下拉框选中内容后，需要做什么处理；
抱歉我不喜欢挤牙膏，所以请详细回答下。