VBA80集第10集练习上交专贴（正确答案奖励20金币）

wangxiao668 · 发表于 2011-8-15 00:44

dddddddddddd

淡如轻烟狂笑 · 发表于 2011-8-15 00:47

游客，如果您要查看本帖隐藏内容请回复

zhuosheng · 发表于 2011-8-15 20:20

ddddddddddddddddddddddddddddddddd

yhk1966 · 发表于 2011-8-16 23:02

好好学习，收藏

dhualee · 发表于 2011-8-17 09:47

谢谢老师，辛苦了

WUPIFANG · 发表于 2011-8-17 14:46

hide]
Option Explicit
Sub 日报表格式生成()
Sheets(Sheets.Count).Visible = True
Dim x, y As Integer
Dim wb As Worksheet
x = Sheets.Count - 2
If Sheets.Count < 3 Then
Sheets(Sheets.Count).Copy before:=Sheets(Sheets.Count)
Set wb = ActiveSheet
wb.Name = "1日报表"
Else
Sheets(Sheets.Count).Copy after:=Sheets(Sheets.Count - 1)
Set wb = ActiveSheet
wb.Name = x + 1 & "日报表"
End If
Sheets(Sheets.Count).Visible = False
End Sub
Sub 另存报表()
Application.DisplayAlerts = False
Dim abc As Worksheet
Set abc = ActiveSheet
abc.SaveAs ThisWorkbook.Path & "/" & abc.Name
ThisWorkbook.Save
ThisWorkbook.Close True
Application.DisplayAlerts = True
End Sub
[/hide]

复制代码

yj775116283 · 发表于 2011-8-18 08:13

游客，如果您要查看本帖隐藏内容请回复

复制代码

Sheets(2).Visible = True
Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
Dim x As Integer, sh As Worksheet
x = Sheets.Count
x = x - 2
Set sh = ActiveSheet
sh.Name = x & "日报表"
Sheets(2).Visible = False

A1090A · 发表于 2011-8-18 14:58

支持楼主哈，

panan12329 · 发表于 2011-8-18 21:29

{:281:}{:021:}{:031:}{:121:}{:111:}{:201:}

twandou · 发表于 2011-8-21 02:41

哈哈，交作业了

		自动登录	找回密码
密码			注册