|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 arno61361 于 2019-1-15 16:14 编辑
如题,鄙人想实现从sheet1(今日工作日志)在关闭表格时自动复制备份工作表并改工作表名称的同时,清楚sheet1(今日工作日志)里动态链接的天气信息和标明当日日期与星期几的单元格颜色区别格式,使所复制的表格的天气与日期星期固定为表格复制当日。
代码如下,请各位老师们帮忙,谢谢!(附图见二楼)
Sub AutoCopySheets()
Dim i, j As Integer
i = 1
j = 1
For i = 1 To 1
j = j + 1
Sheets("今日工作日志").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Year(Now()) & "年" & month(Now()) & "月" & Day(Now()) & "日"
If j Mod 7 = 5 Or j Mod 7 = 6 Then
With ActiveWorkbook.Sheets(Sheets.Count).Tab
.Color = 255
.TintAndShade = 0
End With
End If
Next
With Sheets("今日工作日志")
.Range("f8:h8") = ""
.Range("j8:l8") = ""
.Range("n8:p8") = ""
.Range("s8:t8") = ""
.Range("x8:ag8") = ""
.Range("f10:v10") = ""
.Range("aa10:ab10") = ""
.Range("f11:v11") = ""
.Range("f12:v12") = ""
.Range("aa12:ab12") = ""
.Range("c15:ag39") = ""
.Range("c42:ag67") = ""
.Range("f72:ag77") = ""
.Range("f81:ag86") = ""
.Range("c89:ag89") = ""
.Range("f90:q90") = ""
End With
End Sub
|
|