VBA常用代码.doc

(完整word版)VBA常用代码(完整word版)VBA常用代码(完整word版)VBA常用代码HYPERLINK”http://www。360doc。com/tag/excel/”excelHYPERLINK”http://www.360doc.com/tag/%E5%B8%B8％E7%94%A8％E5％AE％8F/”常用宏HYPERLINK"http://www.360doc。com/tag/%E5%AE％8F%E4%BB％A3%E7％A0％81/”宏代码HYPERLINK”http：//www。360doc。com/tag/%E5%A4％A7%E5％85％A8/”大全本示例为设置密码窗口(1)IfApplication。InputBox("请输入密码:”）=1234Then[A1］=1’密码正确时执行Else：MsgBox”密码错误，即将退出!"’此行与第2行共同设置密码EndIf本示例为设置密码窗口(1)X=MsgBox（"是否真的要结帐？”，vbYesNo)IfX=vbYesThenClose本示例为设置工作表密码ActiveSheet.ProtectPassword：=641112'保护工作表并设置密码ActiveSheet。UnprotectPassword：=641112'撤消工作表保护并取消密码'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿,并保存其更改内容.ForEachwInWorkbooksIfw.Name<>ThisWorkbook。NameThenw。CloseSaveChanges:=TrueEndIfNextw'每次打开工作簿时，本示例都最大化MicrosoftExcel窗口.Application.WindowState=xlMaximized'本示例显示活动工作表的名称。MsgBox”Thenameoftheactivesheetis"&ActiveSheet.Name'本示例保存当前活动工作簿的副本。ActiveWorkbook。SaveCopyAs"C：\TEMP\XXXX。XLS"’下述过程激活工作簿中的第四张工作表。Sheets（4).Activate'下述过程激活工作簿中的第1张工作表。Worksheets(1)。Activate'本示例通过将Saved属性设为True来关闭包含本段代码的工作簿，并放弃对该工作簿的任何更改。ThisWorkbook.Saved=TrueThisWorkbook.Close’本示例对自动重新计算功能进行设置，使MicrosoftExcel不对第一张工作表自动进行重新计算。Worksheets（1）.EnableCalculation=False'下述过程打开C盘上名为MyFolder的文件夹中的MyBook。xls工作簿.Workbooks。Open（"C:\MyFolder\MyBook。xls"）’本示例显示活动工作簿中工作表sheet1上单元格A1中的值。MsgBoxWorksheets(”Sheet1"）.Range（"A1").Value本示例显示活动工作簿中每个工作表的名称ForEachwsInWorksheetsMsgBoxws。NameNextws本示例向活动工作簿添加新工作表，并设置该工作表的名称？SetNewSheet=Worksheets.AddNewSheet。Name="currentBudget"本示例将新建的工作表移到工作簿的末尾’PrivateSubWorkbook_NewSheet（ByValShAsObject)Sh.MoveAfter：=Sheets（Sheets。Count）EndSub本示例将新建工作表移到工作簿的末尾’PrivateSubApp_WorkbookNewSheet（ByValWbAsWorkbook，_ByValShAsObject）Sh。MoveAfter：=Wb.Sheets(Wb。Sheets.Count）EndSub本示例新建一张工作表，然后在第一列中列出活动工作簿中的所有工作表的名称。SetNewSheet=Sheets。Add（Type:=xlWorksheet）Fori=1ToSheets.CountNewSheet.Cells（i，1).Value=Sheets(i)。NameNexti本示例将第十行移到窗口的最上面?Worksheets("Sheet1”)。ActivateActiveWindow。ScrollRow=10当计算工作簿中的任何工作表时，本示例对第一张工作表的A1：A100区域进行排序。'PrivateSubWorkbook_SheetCalculate（ByValShAsObject)WithWorksheets(1）。Ran