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

油炸豆腐皮

Sub displayallsheets()

Dim wsh As Worksheet

    For Each wsh In ActiveWorkbook.Worksheets

         wsh.Visible = xlSheetVisible

    Next

End Sub




Sub creatingnewsheets()

Dim i As Integer
Dim xnumber As Integer
Dim wsh As Worksheet


xnumber = InputBox("请输入你想添加的天数")

For i = 1 To xnumber
    Sheets("日报表模板").Copy after:=Sheets("日报表模板")
    ActiveSheet.Name = "day" & i
    ActiveSheet.Move after:=Sheets(Sheets.Count)

Next i

Sheets("日报表模板").Visible = False

End Sub





Sub saveasnewworkbook()

Dim wb As Workbook
Dim i As Integer

'MsgBox ActiveSheet.Index

For i = 3 To Sheets.Count

       Sheets(i).Copy

       Set wb = ActiveWorkbook
       wb.SaveAs Filename:=ThisWorkbook.Path & "/" & ActiveSheet.Name & "xlsx"
       wb.Close True

Next i

End Sub

yihailuo

第10题的作业

grc19880826

魚。。

我也来交作业了

Sub 日报表格式生成()
    Dim i&
    Sheets("日报表模板").Visible = -1
    For i = 1 To 5
        Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = Val(LeftB(Sheets(Sheets.Count - 1).Name, 2)) + 1 & "日报表"
    Next
    Sheets("日报表模板").Visible = 0
End Sub

Sub 另存报表()
    Dim sht As Worksheet, wb As Workbook
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
            For Each sht In Sheets
                If Left(sht.Name, 1) Like "#" Then
                    sht.Copy
                    Set wb = ActiveWorkbook
                    wb.SaveAs ThisWorkbook.Path & "/" & sht.Name
                    wb.Close True
                End If
            Next
        Application.DisplayAlerts = True
        Application.ScreenUpdating = True
End Sub

Sub 删除工作表()
    Dim sht As Worksheet
        For Each sht In Sheets
            Application.DisplayAlerts = False
                If Left(sht.Name, 1) Like "#" Then sht.Delete
            Application.DisplayAlerts = True
        Next
End Sub

suifeng8470

sisqk

for循环不执行，来偷瞄答案

longpie1

Option Explicit
Dim n As Integer
Sub 日报表格式生成()
    Dim sh As Worksheet
    Sheets("日报表模板").Visible = True
    Sheets("日报表模板").Copy after:=Sheets(Sheets.Count)
    Set sh = ActiveSheet
    n = n + 1
    sh.Name = n & "日报表"
    Sheets("日报表模板").Visible = False
End Sub

Sub 另存报表()
    Dim sh As Worksheet
    Dim wb As Workbook
    n = -1
    For Each sh In Worksheets
        If sh.Name = n & "日报表" Then
            Sheets(n & "日报表").Copy
            Set wb = ActiveWorkbook
            wb.SaveAs ThisWorkbook.Path & "/" & n & "日报表.xls"
            wb.Close True
        End If
        n = n + 1
    Next sh
End Sub

wuwuwur

学习

菜菜想学

想学习 快速学习啦

z9bhd

学习一下