Excel从摘要页面自动化页面

时间:2017-11-27 11:34:01

标签: excel excel-vba vba

我在第1页有一本工作簿我有一个摘要表(名单),我已经将其制定到其他页面以填充单元格。所以他们都有一个样本模板,即1页。我正在尝试自动化,如查看列表,如果它需要多个页面来填充。自动生成页面并使用公式复制模板。

代码:

Sub CreateAndNameWorksheets()
       Dim c As Range


     Application.ScreenUpdating = False
    ForEach c In Sheets("Summary").Range("C5:lRow")
    Sheets("Template").Copy After:=Sheets(Sheets.Count)
 With c
        ActiveSheet.Name = .Value
        .Parent.Hyperlinks.Add Anchor:=c, Address:="", SubAddress:= _
            "'" & .Text & "'!A1", TextToDisplay:=.Text
 EndWith
Next c
Application.ScreenUpdating = True
 EndSub

这段代码我用作提示但是它创建标签而不是页面。

只是为了具体我试图在Sheet中自动页面即TAB。 我知道每个页面可以容纳12个项目,因此如果摘要表中的25个项目,它将需要3个页面并创建3个页面从样本页面复制模板(第1页)。

0 个答案:

没有答案