[已解决]根据sheet名增量更新sheet 超链接

韩立 · 发表于 2022-1-21 20:13

本帖最后由韩立于 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)

zjdh · 发表于 2022-1-21 20:13

本帖最后由 zjdh 于 2022-1-23 11:09 编辑

这么简单的语句都看不懂？

根据sheet名增量更新2.rar (35.47 KB, 下载次数: 2)

zjdh · 发表于 2022-1-22 13:10

根据sheet名增量更新.rar (35.68 KB, 下载次数: 8)

韩立 · 发表于 2022-1-22 17:43

本帖最后由韩立于 2022-1-22 18:47 编辑

zjdh 发表于 2022-1-22 13:10

分类做的非常棒老师
能注释一下吗我翻译出来的看不懂不知道修改哪些值试着改了行第二三行会重复

第一二行要放公式

还有就是能做个自动的么就像上面那个代码只需新建自动添加

韩立 · 发表于 2022-1-22 18:46

zjdh 发表于 2022-1-22 13:10

另命令第一句是清除范围太多了中间还需要插入别的数据能否只清除sheet名的列

韩立 · 发表于 2022-1-23 19:28

zjdh 发表于 2022-1-23 09:59
这么简单的语句都看不懂？

老师  我只认识26个字母其他的靠翻译呐然后靠猜

  靠尝试  可是翻译出来的看不懂就没法了

我不懂语句语法只能猜个大概意思

才接触不到一个月  基本靠百度

韩立 · 发表于 2022-1-25 01:59

本帖最后由韩立于 2022-1-25 02:01 编辑

zjdh 发表于 2022-1-23 09:59
这么简单的语句都看不懂？

根据sheet名增量更新2.rar (50.9 KB, 下载次数: 4)

韩立 · 发表于 2022-1-25 16:47

zjdh 发表于 2022-1-23 09:59
这么简单的语句都看不懂？

老师我想abcd中间空4-5个单元格然后还汇总到J列这样
真的尝试好久了

韩立 · 发表于 2022-1-27 18:15

zjdh 发表于 2022-1-21 20:13
这么简单的语句都看不懂？

抱歉老师是我表述不清楚
不知道怎么回事消息发了也刷新了我这边看不到记录只好在帖子中回您了
新帖

http://www.excelpx.com/forum.php?mod=viewthread&tid=466346

		自动登录	找回密码
密码			注册

[已解决]根据sheet名增量更新sheet 超链接

最佳答案

评分

评分