VBA实用简洁代码.docVIP

ExcelVBA:各种Excel VBA的命令1 on 2009-2-3 in 办公软件| 0 Comment - 本举例为设置工作表密码 ActiveSheet.Protect Password:=641112 保护工作表并设置密码 ActiveSheet.Unprotect Password:=641112 撤消工作表保护并取消密码 本举例保存当前活动工作簿副本 ActiveWorkbook.SaveCopyAs C:TEMPXXXX.XLS 本举例通过将Saved 属性设为True 来关闭包含本段代码工作簿并放弃对该工作簿任何更改 ThisWorkbook.Saved = True ThisWorkbook.Close 本举例对自动重新计算功能进行设置使Microsoft Excel 不对第张工作表自动进行重新计算 Worksheets(1).EnableCalculation = False 下述过程打开 C 盘上名为MyFolder 文件夹中MyBook.xls 工作簿 Workbooks.Open (C:MyFolderMyBook.xls) 本举例显示活动工作簿中工作表sheet1 上单元格A1 中值 MsgBox Worksheets(Sheet1).Range(A1).V alue 本举例显示活动工作簿中每个工作表名称 For Each ws In Worksheets MsgBox ws.Name Next ws 本举例向活动工作簿添加新工作表, 并设置该工作表名称? Set NewSheet = Worksheets.Add 1 NewSheet.Name = current Budget 本举例将新建工作表移到工作簿末尾 Private Sub Workbook_NewSheet(ByV al Sh As Object) Sh.Move After:=Sheets(Sheets.Count) End Sub 本举例将新建工作表移到工作簿末尾 Private Sub App_WorkbookNewSheet(ByV al Wb As Workbook, _ ByV al Sh As Object) Sh.Move After:=Wb.Sheets(Wb.Sheets.Count) End Sub 本举例新建张工作表然后在第列中列出活动工作簿中所有工作表名称 Set NewSheet = Sheets.Add(Type:=xlWorksheet) For i = 1 To Sheets.Count NewSheet.Cells(i, 1).V alue = Sheets(i).Name Next i 本举例将第十行移到窗口最上面? Worksheets(Sheet1).Activate ActiveWindow.ScrollRow = 10 当计算工作簿中任何工作表时本举例对第张工作表A1:A100 区域进行排序 Private Sub Workbook_SheetCalculate(ByV al Sh As Object) With Worksheets(1) .Range(a1:a100).Sort Key1:=.Range(a1) End With End Sub 本举例显示工作表Sheet1 打印预览 Worksheets(Sheet1).PrPreview 本举例保存当前活动工作簿? ActiveWorkbook.Save 本举例保存所有打开工作簿然后关闭Microsoft Excel For Each w In Application.Workbooks w.Save Next w Application.Quit 下例在活动工作簿第张工作表前面添加两张新工作表? Worksheets.Add Count:=2, Before:=Sheets(1) 本举例设置15 秒后运行my_Procedure 过程从现在开始计时 Application.OnTime Now + TimeV alue(00:00:15), my_Procedure 本举例设置my_Procedure 在下午 5 点开始运行 Application.OnTime TimeV alue(17:00:00), my_Procedure 本举例撤消前个举例对_disibledevent= Procedure:=my_Procedure, Schedule:=False 每当工作表重新计算时本举例就调整A列到F 列宽度 Private Sub Worksheet_Calculate Columns(A: