如何在A列设置所有工作表名的下拉菜单？

作者：绿色风分类：时间：2022-08-17 浏览：97

楼主 gvntw	Q：如何在A列设置所有工作表名的下拉菜单？ A：代码如下： Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim strList As String Dim wantRange As Range Dim Sh As Worksheet Set wantRange = Application.Intersect(Target, Range("A:A")) '取选定的单元格与第1列的交集 If wantRange Is Nothing Then Exit Sub For Each Sh In ThisWorkbook.Worksheets '循环工作表 strList = strList & "," & Sh.Name '连接工作表名 Next With wantRange.Validation '设置交集的数据有效性 .Delete .Add xlValidateList, , , Mid(strList, 2) End With End Sub 有效性工作表名.zip
2楼水星钓鱼	练习下用字典做做 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ShtCount As Long Dim Obj As Object If Not Application.Intersect(Target, Range("A:a")) Is Nothing Then Set Obj = CreateObject("scripting.dictionary") For ShtCount = 1 To Sheets.Count Obj.Add Sheets(ShtCount).Name, "" Next With Target.Validation .Delete .Add Type:=xlValidateList, Formula1:=Join(Obj.Keys, ",") End With End If End Sub
3楼 ansky_hx	怎么实现选择后直接跳转的功能呢~~~~？
4楼淡定的窗帘	我复制了代码到某个工作表的VB中，可是怎么执行不了呢？怎么执行呢？要修改工作表名称至指定的名称吗？
5楼淡定的窗帘	噢，可以了！谢谢！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表