admin管理员组文章数量:1567738
2024年6月28日发(作者:)
EXCELVBA20个有用的ExcelVBA代码
1.显示多个隐藏的工作表
如果你的工作簿里面有多个隐藏的工作表,你需要花很多时间一
个一个的显示隐藏的工作表。
下面的代码,可以让你一次显示所有的工作表
Sub UnhideAllWoksheets()
Dim ws As Worksheet
For Each ws In eets
e = xlSheetVisible
Next ws
End Sub
2.隐藏除了活动工作表外的所有工作表
如果你做的报表,希望隐藏除了报表工作表以外的所有工作表,
则可以用一下代码来实现:
Sub HideAllExcetActiveSheet()
Dim ws As Worksheet
For Each ws In eets
If <> Then
e = xlSheetHidden
End if
Next ws
End Sub
3.用VBA代码按字母的顺序对工作表进行排序
如果你有一个包含多个工作表的工作簿,并且希望按字母对工作
表进行排序,那么下面的代码,可以派上用场。
Sub SortSheetsTabName()
Updating = False
Dim ShCount As Integer, i As Integer, j As Integer
ShCount =
For i = 1 To ShCount - 1
For j = i + 1 To ShCount
If Sheets(j).Name < Sheets(i).Name Then
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
Updating = True
End Sub
4.一次性保护所有的工作表
如果工作薄里面有多个工作表,并且希望保护所有的工作表,那
么下面的代码,可以派上用场。
Sub ProtectAllSheets()
Dim ws As Worksheet
Dim password As String
'用你想要的密码替换Test123
password = 'Test123'
For Each ws In Worksheets
t password:=password
Next ws
End Sub
5.一次性取消所有的工作表保护
如果你保护了你所有的工作表,那么你只需要修改一下代码,就
可以取消所有工作表的保护。
Sub ProtectAllSheets()
Dim ws As Worksheet
Dim password As String
'用你想要的密码替换Test123
password = 'Test123'
For Each ws In Worksheets
版权声明:本文标题:EXCELVBA20个有用的ExcelVBA代码 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://www.elefans.com/xitong/1719553884a784689.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论