建表链接填单元格

xing_chen

老师，需要复制模板建新表，新表与目录表建立超链接，并将目录表中的名称列中单元格填写在新表B1单元格中，附件中为样表。敬请老师赐教。谢谢

gwjkkkkk

请楼主参考附件。。。

xing_chen

gwjkkkkk 发表于 2023-2-21 20:34
请楼主参考附件。。。

谢谢老师的出手！操作过程中，我发现有2个问题：
1.我希望是将2个代码并在一起，一气呵成。即生成复制模板，生成的新表与目录表中的A列单元格链接，并将A列单元格分别填写到生成的新表中；
2.我将上传的附件中新表删除后，操作了，模块1和您写test模块后发现错误。不能继续。
敬请老师赐教。谢谢

gwjkkkkk

请楼主参考附件。。。

xing_chen

gwjkkkkk 发表于 2023-2-21 21:34
请楼主参考附件。。。

谢谢老师！运行如愿！看了你这代码。估计我再要花几年时间的努力学习。谢谢了！

xing_chen

gwjkkkkk 发表于 2023-2-21 21:34
请楼主参考附件。。。

老师，在吗？抱歉！这么晚又要打扰你。我上传的附件考虑欠周，将名称设置为A1-A5了，实际上产品的名称是没有规律的。我修改了近1小时，都没有成，若方便帮我修改一下。谢谢

xing_chen

gwjkkkkk 发表于 2023-2-21 21:34
请楼主参考附件。。。

老师，你好！
我将句子上下换个位置，也不行
For i = 1 To UBound(ar, 2)
        If isWksExists1(CStr(i)) Then Sheets(CStr(i)).Delete
        With Worksheets.Add(after:=Worksheets(Worksheets.Count))
            .Name = i
            .[B2].Resize(UBound(ar), UBound(ar, 2)) = ar
            r = r + 1
            .Cells(1, 2) = Sheets("Ŀ¼").Cells(r, 1)
            Sheets("Ŀ¼").Hyperlinks.Add Sheets("Ŀ¼").Cells(r, 1), "", i & "!M1", "μ￥»÷′ò¿a￡o1¤×÷±í" & i, .[B1].Value
            .Hyperlinks.Add .Cells(1, 13), "", "Ŀ¼!A" & .Name + 1, "μ￥»÷′ò¿aĿ¼1¤×÷±í", "·μ»Ø"
        End With
    Next i

xing_chen

xing_chen 发表于 2023-2-21 22:26
老师，在吗？抱歉！这么晚又要打扰你。我上传的附件考虑欠周，将名称设置为A1-A5了，实际上产品的名称是 ...

这么改，为什么不行
With Worksheets.Add(after:=Worksheets(Worksheets.Count))
            .Name = i
            .[B2].Resize(UBound(ar), UBound(ar, 2)) = ar
            r = r + 1
            .Cells(1, 1) = "名称": .Cells(1, 2) = Sheets("目录").Cells(r, 1)
            Sheets("目录").Hyperlinks.Add Sheets("目录").Cells(r, 1), "", i & "!M1", "单击打开：工作表" & i, .[B1].Value
            .Hyperlinks.Add .Cells(1, 13), "", "目录!A" & .Name + 1, "单击打开目录工作表", "返回"
        End With

xing_chen

xing_chen 发表于 2023-2-21 22:26
老师，在吗？抱歉！这么晚又要打扰你。我上传的附件考虑欠周，将名称设置为A1-A5了，实际上产品的名称是 ...

边干边等，天降贵人

xing_chen

xing_chen 发表于 2023-2-21 23:44
边干边等，天降贵人

有老师，帮忙看看吗