VBA代码集-1.docVIP

VBA代码集-1 关闭屏幕更新功能 Application.ScreenUpdating = False 屏幕更新功能_关闭(加快速度) Application.ScreenUpdating = True 屏幕更新功能_打开 禁止弹出对话框 Application.DisplayAlerts = False 禁止弹出对话框而不影响程序正常运行 Application.DisplayAlerts = True 恢复弹出对话框 全屏显示后，如何不显示“关闭全屏显示”工具栏 Sub hidebar() Application.CommandBars(1).Enabled = False Application.DisplayFullScreen = True Application.CommandBars(Full Screen).Visible = False With ActiveWindow .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False End With End Sub Sub unhidebar() Application.CommandBars(1).Enabled = True Application.DisplayFullScreen = False With ActiveWindow .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True End With End Sub 判断空工作表？并自动删除 If IsEmpty(ActiveSheet.UsedRange) And ActiveSheet.Shapes.Count = 0 Then ActiveSheet.Delete 检测EXCEL建立时间 Sub CreateDate() On Error Resume Next rw = 1 Worksheets(1).Activate For Each p In ActiveWorkbook.BuiltinDocumentProperties Cells(rw, 1).Value = p.Name Cells(rw, 2).Value = ActiveWorkbook.BuiltinDocumentProperties(p.Name) rw = rw + 1 Next MsgBox ActiveWorkbook.BuiltinDocumentProperties(Creation date) End Sub 禁止更改工作表名称 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.Name Sheet1 Then ActiveSheet.Name = Sheet1 End If End Sub 如何在 VBA 内执行 Add-in 函数 AddIns(VBA 分析工具箱).Installed = True Range(B1) = Application.Evaluate(=Weeknum(now()-7, 2)) AddIns(VBA 分析工具箱).Installed = True Workdays = Application.Evaluate(=NetWorkdays(DATE(2004,1,1) ,DATE(2004,12,31))) 或 Application.Run(ATPVBAEN.xla!Weeknum, Now(), 2) 如何不改变activecell之下将某一储存格显示于左上角 ActiveCell.Select ActiveWindow.ScrollRow = ActiveCell.Row ActiveWindow.ScrollColumn = ActiveCell.Column 或 Application.Goto ActiveCell, True 测试 WorkBook 是否已开启 Sub IsWorkBookOpen() Dim wBook As Workbook On Error Resume Next Set wBook = Workbooks(Book180.xls) If wBook Is Nothing Then MsgBox Workbook is not open Set wBook = Nothing On Error GoT