建表链接填单元格

xing_chen

有老师帮忙看看吗

3190496160

Sub 新建工作表()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets
    If sh.Index > 2 Then
        d(sh.Name) = ""
    End If
Next sh
With Sheets("目录")
    ar = .[a1].CurrentRegion
End With
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        mc = Trim(ar(i, 1))
        If Not d.exists(mc) Then
            Sheets("模板").Copy after:=Sheets(Sheets.Count)
            With ActiveSheet
                .Name = mc
                .[b1] = mc
                Sheets("目录").Hyperlinks.Add Anchor:=Sheets("目录").Range("a" & i), Address:="", SubAddress:=mc & "!" & .[b1].Address
                .Hyperlinks.Add Anchor:=.Range("b1"), Address:="", SubAddress:="目录!" & Sheets("目录").Range("a" & i).Address
            End With
        End If
    End If
Next i
MsgBox "ok!"
End Sub

3190496160

建表链接填新表单元格.rar (13.72 KB, 下载次数: 9)

2023-2-22 10:35 上传

点击文件名下载附件

3190496160

求助来的代码要花时间研究消化吸收，才能触类旁通，有所进步

xing_chen

3190496160 发表于 2023-2-22 10:36
求助来的代码要花时间研究消化吸收，才能触类旁通，有所进步

谢谢老师！我放入正式表中发现问题，是我考虑不周，有产品名称中间有“-”的，如CIM089A3-00001，MSQ02005-0000W
这次放正式表格运行中的发现问题，主要有3条：
1.表名能否改为，1,2,3.。。。等数字，因为产品名称很长，每月有50个左右，我不想通过下边移动条左右移动，而是能一窗口看尽；
2.是返回的链接放入单元格M1，便于看的清除
3.就是产品名称中间含有“—”号的特殊名称的解决。
谢谢老师，您的提醒。由于边工作边学习，你说的，消化吸收问题，确实是我的一个大问题，我现在是囫囵吞枣，临时抱佛脚。需要静心。谢谢

3190496160

xing_chen 发表于 2023-2-22 11:33
谢谢老师！我放入正式表中发现问题，是我考虑不周，有产品名称中间有“-”的，如CIM089A3-00001，MSQ0200 ...

呵呵呵，已经发了300多个求助帖了，不应该再说考虑不周的话了吧

xing_chen

3190496160 发表于 2023-2-22 11:39
呵呵呵，已经发了300多个求助帖了，不应该再说考虑不周的话了吧

是呀！仅从数量上来说，汗颜！

xing_chen

3190496160 发表于 2023-2-22 11:39
呵呵呵，已经发了300多个求助帖了，不应该再说考虑不周的话了吧

老师好！对商品名称中含“-”的怎么处理，有什么好方法吗！Sheets("目录").Range("a" & i)，怎么改！可以提示一下吗

xing_chen

xing_chen 发表于 2023-2-22 13:28
老师好！对商品名称中含“-”的怎么处理，有什么好方法吗！Sheets("目录").Range("a" & i)，怎么改！可以 ...

查了几小时，没有看到相关的单元格中含“-”的超链接案列。有见识广的老师给个链接或出手解决

fzxba

subaddress:= "'" &  工作表名 & "'!b1"  
留意红色处