本帖最后由 韩立 于 2022-1-23 03:21 编辑
大灰狼1976 版主 您好
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Count > 1 Then Exit Sub
- If Target.Column <> 3 Then Exit Sub
- If Target.Row = 1 Then Exit Sub
- Sheets(Target.Value).Select
- Target.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=Target.Value & "!A1", TextToDisplay:=Target.Value
- End Sub
- Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- If Target.Count > 1 Then Exit Sub
- If Target.Column <> 3 Then Exit Sub
- If Target.Row = 1 Then Exit Sub
- Dim sh&, s$
- For sh = 3 To Sheets.Count
- s = s & "," & Sheets(sh).Name
- Next
- Cells.Validation.Delete
- Target.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Mid(s, 2)
- End Sub</a>
复制代码 您这两段代码 已经实现了 1、下拉菜单 和 2、增量更新sheet 3、超链接
------------------------------------------------------------------------------------------------------
能不能根据条件来呢,不需要下拉菜单 只需要根据sheet名 更新 2和3
根据条件 增量更新&超链接
sheet名只可以数字、字母与文字,且不含空格和符号 . 空格和符号 会出错
例如 sheet名带 A 则在源文件A列 g则在G列 j在J列 。。。。
可以指定第几行起 和根据sheet名分别对应哪一列 第几列
根据sheet名增量更新.rar
(35.78 KB, 下载次数: 3)
|