作者:HurricaneCC | 来源:互联网 | 2023-05-19 09:15
Sub s1()
Dim X As Integer
For X = 1 To Sheets.Count
If Sheets(X).Name = "A" Then
MsgBox "A工作表存在"
Exit Sub
End If
Next
MsgBox "A工作表不存在"
End Sub
Sub s2()
Dim sh As Worksheet
Set sh = Sheets.Add
sh.Name = "模板"
sh.Range("a1") = 100
End Sub
Sub s3()
Sheets(2).Visible = True
End Sub
Sub s4()
Sheets("Sheet2").Move before:=Sheets("sheet1")
Sheets("Sheet1").Move after:=Sheets(Sheets.Count)
End Sub
Sub s5()
Dim sh As Worksheet
Sheets("模板").Copy before:=Sheets(1)
Set sh = ActiveSheet
sh.Name = "1日"
sh.Range("a1") = "测试"
End Sub
Sub s6()
Dim wb As Workbook
Sheets("模板").Copy
Set wb = ActiveWorkbook
wb.SaveAs ThisWorkbook.Path & "/1日.xls"
wb.Sheets(1).Range("b1") = "测试"
wb.Close True
End Sub
Sub s7()
Sheets("sheet2").Protect "123"
End Sub
Sub s8()
If Sheets("sheet2").ProtectCOntents= True Then
MsgBox "工作簿保护了"
Else
MsgBox "工作簿没有添加保护"
End If
End Sub
Sub s9()
Application.DisplayAlerts = False
Sheets("模板").Delete
Application.DisplayAlerts = True
End Sub
Sub s10()
Sheets("sheet2").Select
End Sub