兰色幻想-VBA作业-试题1

最新推荐文章于 2022-04-27 18:35:37 发布

原创最新推荐文章于 2022-04-27 18:35:37 发布 · 309 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vba

此博客介绍了如何使用VBA宏，通过计数现有日报表，复制隐藏的‘日报表模板’工作表，并根据天数调整名称，如1日报表、2日报表等。同时，复制后的报表会自动隐藏。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'复制“日报表模板”工作表（已隐藏）至本工作簿最后一个位置，复制后的工作表名称为最后的日期天数+1&“报表”的格式。
'如：当前情况下，没有任何一天的日报表，则心腹之的工作表名称是“1日报表”，如果再添加时就是1+1=2日报表。如果目前已存在5天的日报表，则复制后的工作表名称应为“6日报表”
'注：“日报表模板“工作表复制后要隐藏起来。
Sub cop()
Dim sh As Worksheet
Dim x, y As Integer
y = 1
For x = 1 To Sheets.Count
If InStr(2, Sheets(x).Name, "日报表") > 0 Then
y = y + 1
End If
Next x
Sheets("日报表模板").Visible = True
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Set sh = ActiveSheet
sh.Name = y & "日报表"
Sheets("日报表模板").Visible = False
End Sub

'拷贝所有日报表到当前目录
Sub savto()
Dim sPath As String
Dim str As String
Dim x As Integer
sPath = ThisWorkbook.Path & "\"
For x = 1 To Sheets.Count
If InStr(2, Sheets(x).Name, "日报表") > 0 Then
str = Sheets(x).Name
Sheets(x).Copy
ActiveWorkbook.SaveAs sPath & str & ".xlsx"
ActiveWorkbook.Close True
End If
Next x
End Sub