如题:
因为本人记性不好看完兰老师的第10级后第二天做练习作业时发现复制工作表后漏了一句将新工作表激活的代码即:
set sh=activesheet但却发现了很大的区别。几经测试不得其解。故在此发帖请求高手解答。谢谢!
方法一:
Dim x As Integer
Dim st As Worksheet
Sub 日报表格式生成()
x = 1 + x
Sheets("日报表模板").Visible = True
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Set st = ActiveSheet
st.Name = x & "日报表"
Sheets("日报表模板").Visible = False
End Sub
调试正常
去除set以后程序不报错但是显示异常如图:
每点一次按钮"3日报表模板”都会自动更换一次名称并生成新工作表.在此我有个假想“由于没激活新工作表故重命名的动作发生在最后一个激活的工作表3了。但是为何新生成的工作表也出现了新的名称并带括号而且序号递增了呢?....不得其解"
方法二:
Dim sh As Worksheet
Sheets("日报表模板").Visible = True
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Set sh = ActiveSheet
sh.Name = Sheets.Count - 2 & "日报表"
Sheets("日报表模板").Visible = False
运转正常我就不附图了。
去除set sh 以后 有建立新工作表但是会提示出差信息见抓图:
哪位高手能帮忙解释一下这其中的差异。小弟不甚感激!!