各种Excel_VBA的命令

《各种Excel_VBA的命令》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、各种ExcelVBA的命令 本示例为设置密码窗口(1)IfApplication.InputBox("请输入密码：")=1234Then[A1]=1'密码正确时执行Else:MsgBox"密码错误，即将退出！"'此行与第2行共同设置密码EndIf本示例为设置密码窗口(1)X=MsgBox("是否真的要结帐？",vbYesNo)IfX=vbYesThenClose本示例为设置工作表密码ActiveSheet.ProtectPassword:=641112'保护工作表并设置密码ActiveSheet.UnprotectPa

2、ssword:=641112'撤消工作表保护并取消密码'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容。ForEachwInWorkbooksIfw.NameThisWorkbook.NameThenw.CloseSaveChanges:=TrueEndIfNextw'每次打开工作簿时，本示例都最大化MicrosoftExcel窗口。Application.WindowState=xlMaximized'本示例显示活动工作表的名称。MsgBox"Thenameoftheactivesheeti

3、s"&ActiveSheet.Name'本示例保存当前活动工作簿的副本。ActiveWorkbook.SaveCopyAs"C:TEMPXXXX.XLS"'下述过程激活工作簿中的第四张工作表。Sheets(4).Activate'下述过程激活工作簿中的第1张工作表。Worksheets(1).Activate'本示例通过将Saved属性设为True来关闭包含本段代码的工作簿，并放弃对该工作簿的任何更改。ThisWorkbook.Saved=TrueThisWorkbook.Close'本示例对自动重新计算功能进行设

4、置，使MicrosoftExcel不对第一张工作表自动进行重新计算。Worksheets(1).EnableCalculation=False'下述过程打开C盘上名为MyFolder的文件夹中的MyBook.xls工作簿。Workbooks.Open("C:MyFolderMyBook.xls")'本示例显示活动工作簿中工作表sheet1上单元格A1中的值。MsgBoxWorksheets("Sheet1").Range("A1").Value本示例显示活动工作簿中每个工作表的名称ForEachwsInWorksh

5、eetsMsgBoxws.NameNextws本示例向活动工作簿添加新工作表,并设置该工作表的名称?SetNewSheet=Worksheets.AddNewSheet.Name="currentBudget"本示例将新建的工作表移到工作簿的末尾'PrivateSubWorkbook_NewSheet(ByValShAsObject)Sh.MoveAfter:=Sheets(Sheets.Count)EndSub本示例将新建工作表移到工作簿的末尾'PrivateSubApp_WorkbookNewSheet(ByVal

6、WbAsWorkbook,_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").Activat

7、eActiveWindow.ScrollRow=10当计算工作簿中的任何工作表时，本示例对第一张工作表的A1:A100区域进行排序。'PrivateSubWorkbook_SheetCalculate(ByValShAsObject)WithWorksheets(1).Range("a1:a100").SortKey1:=.Range("a1")EndWithEndSub本示例显示工作表Sheet1的打印预览。Worksheets("Sheet1").PrintPreview本示例保存当前活动工作簿?ActiveWor

8、kbook.Save本示例保存所有打开的工作簿，然后关闭MicrosoftExcel。ForEachwInApplication.Workbooksw.SaveNextwApplication.Quit下例在活动工作簿的第一张工作表前面添加两张新的工作表?Worksheets.AddCount:=2,Before:=Sheets(