批量生成工作表

cqz2022

08古诗测试AA.rar (55.24 KB, 下载次数: 10)

2023-5-18 11:55 上传

点击文件名下载附件

以【语测】工作表为模板，以AE2：AE每个单元格里文字为关键字，批量生成工作表，

生成的新工作表名为：语测+AD2内容+AE2：AE关键字+当前系统日期（月日用小数表示如5.18，12.1），并将工作表名填写到C1单元格里。

新生成的工作表标签颜色为红色


工作表名举例：语测诗|①四时5.18  
                         语测诗|②稚子5.18
已手动生成示例

帮忙把代码放在 “模块7”里。

谢谢

简七

杨建营

请楼主参考。

简七

1. Sub demo()
   
2.     Dim template As Worksheet, key$, names
   
3.     Set template = ThisWorkbook.Worksheets("语测")
   
4.     key = template.Range("AD2").Value
   
5.     names = template.Range("ae2", template.Range("ae2").End(xlDown)).Value
   
6.     Dim temp, tempWorkSheet As Worksheet, sheetName$
   
7.     Application.ScreenUpdating = False
   
8.     Application.DisplayAlerts = False
   
9.     For Each temp In names
   
10.         template.Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    
11.         Set tempWorkSheet = ThisWorkbook.ActiveSheet
    
12.         With tempWorkSheet
    
13.             sheetName = "语测" & key & temp & Format(Date, "m.dd")
    
14.             .Name = sheetName
    
15.             .Range("c1").Value = sheetName
    
16.             .Tab.Color = 255
    
17.         End With
    
18.    
    
19.     Next
    
20.     Application.ScreenUpdating = True
    
21.     Application.DisplayAlerts = True
    
22. End Sub
    

复制代码