【VBA干货】快快收藏吧

【VBA干货】快快收藏吧
【常用的经典 VBA 短句】
mandBars("命令按钮名称").Position =msoBarFloating '使[命令按钮]悬浮在表格中
mandBars("命令按钮名称").Position =msoBarTop '使[命令按钮]排列在工具栏中
ActiveSheet.protectPassword:="wshzw" '为工作表保护加口令
ActiveSheet.UnprotectPassword:="wshzw" '解除工作表保护
Activesheet.ProtectContents'判断工作表是否处于保护状态
工作表的复制与命名
Sub wshzw()
Dim i As Integer
For i = 1 To 5
Sheets("Sheet1").CopyAfter:=Sheets(1) 'Before/After 复制新表在 Sheets("Sheet1") 前/后
= i & "月" '为复制的新表命名
Next i
Sheets("Sheet1").Name = "总表" '为 Sheets("Sheet1") 改名
End Sub
Application.EnableEvents= False
......
Application.EnableEvents= True '抑制事件连锁执行
Application.EnableEvents= False
ActiveWorkbook.Save '抑制BeforeSave事件的发生
Application.EnableEvents= True '抑制指定事件
Application.DisplayAlerts=False '屏蔽确认提示
Application.ScreenUpdating= False
.......
Application.ScreenUpdating= true' 冻结屏幕以加快程序运行
ActiveCell.CurrentRegion.Select '选择与活动单元格相连的区域
range("a2:a20").NumberFormatLocal= "00-00" '区域的格式化
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row '已用区域的最末行
ActiveSheet.CopyBefore:=Sheets(1) '复制活动工作表到第一张工作表之前
range("a2:a20").FormulaHidden= True'工作表处于保护状态时隐藏部分单元格公式
FileDateTime("E:\MyDocuments\33.xls")
或
FileDateTime(thisworkbook.FullName) '文件被创建或最后修改后的日期和时间
FileLen(thisworkbook.FullName)/ 1024
或
FileLen("E:\MyDocuments\temp\33.xls") / 1024 '文件的长度(大小),单位是 KB
Application.AskT oUpdateLinks= False'不询问是否更新链接,并自动更新链接
ActiveSheet.Hyperlinks.Delete '删除活动工作表超链接
ActiveWorkbook.SaveLinkValues= False '不保存活动工作簿的外部链接值
ActiveSheet.PageSetup.CenterFooter=
Range("k2").Value '打印时设置自定义页脚
ActiveSheet.PageSetup.Orientation= xlLandscape '设置为横向打印
ActiveSheet.PageSetup.Orientation= xlPortrait '设置为纵向打印
Application.WindowState= xlMinimized '最小化窗口
Application.WindowState = xlNormal '最大化窗口
Sub 删除工作表()
Application.DisplayAlerts = False
Sheet1.Delete
Application.DisplayAlerts = True
End Sub
有删除就有添加
Sub 添加工作表()
For i = 1 To 5
= i
Next
End Sub
[A1:A20].AdvancedFilterxlFilterCopy, [B1], Unique:=True '可去掉重复数据
[A2:C32].ReplaceWhat:="F", Replacement:="G" '指定范围内的查找与替换
Activesheet.AutoFilterMode= false '取消自动筛选
执行以下语句可有效缩小工作簿的大小，执行前请先看清每条语句的作用:
ment.Shape.TextFrame.AutoSiz e = True ‘根据批注内容自动调整大小
edRange.ClearComments '清除活动工作表已使用范围所有批注
edRange.ClearFormats '清除活动工作表已使用范围所有格式
edRange.Validation.Delete '取消活动工作表已使用范围的数据有效性
ActiveSheet.Hyperlinks.Delete '删除活动工作表超链接
ActiveSheet.DrawingObjects.Delete'删除活动工作表已使用范围的所有对象
edRange= edRange.Value '取消活动工作表已使用范围的公式并保留值
整理自Excel Home 论坛
END
不懂的地方均可以在下方留言给我。

关注公众号，带你每日学习VBA，从枯燥机械的工作中解放双手。

每天学点excel vba
一个干货满满的公众号，期待你的关注。