""Then n=MsgBox("要插入工作表"> ""Then n=MsgBox("要插入工作表" />
欢迎来到天天文库
浏览记录
ID:8799811
大小:118.50 KB
页数:31页
时间:2018-04-08
《excel中的宏使用实例》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、1、执行时,增加一个工作表,并且直接命名PrivateSubCommandButton1_Click()Dimn,nmAsStringnm=InputBox("请输入工作表名:")Ifnm<>""Then n=MsgBox("要插入工作表请单击”确定“,否则请单击”取消“",vbOKCancel,"提示") Ifn=vbOKThen Sheets.Add.Name=nm EndIfEndIfEndSub2、获取工作表最后一行的行号第一种方法:n=Sheets("历下2010").Range("A65535").End(xlU
2、p).Row:按Al列判断第二种方法:n=Sheets("历下2010").Cells.SpecialCells(xlCellTypeLastCell).Row两种方法速度基本一致3、删除表中A列数值重复的行、4、本示例为设置密码窗口(1)IfApplication.InputBox("请输入密码:")=1234Then[A1]=1'密码正确时执行Else:MsgBox"密码错误,即将退出!"'此行与第2行共同设置密码EndIf1、本示例为设置密码窗口(1)X=MsgBox("是否真的要结帐?",vbYesNo)IfX=vbYesThenC
3、lose2、本示例为设置工作表密码ActiveSheet.ProtectPassword:=641112'保护工作表并设置密码ActiveSheet.UnprotectPassword:=641112'撤消工作表保护并取消密码3、'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿,并保存其更改内容。ForEachwInWorkbooksIfw.Name<>ThisWorkbook.NameThenw.CloseSaveChanges:=TrueEndIfNextw'每次打开工作簿时,本示例都最大化MicrosoftExcel窗口。Ap
4、plication.WindowState=xlMaximized4、'本示例显示活动工作表的名称。MsgBox"Thenameoftheactivesheetis"&ActiveSheet.Name5、'本示例保存当前活动工作簿的副本。ActiveWorkbook.SaveCopyAs"C:TEMPXXXX.XLS"'下述过程激活工作簿中的第四张工作表。Sheets(4).Activate'下述过程激活工作簿中的第1张工作表。Worksheets(1).Activate'本示例通过将Saved属性设为True来关闭包含本段代码的工作簿
5、,并放弃对该工作簿的任何更改。ThisWorkbook.Saved=TrueThisWorkbook.Close6、'本示例对自动重新计算功能进行设置,使MicrosoftExcel不对第一张工作表自动进行重新计算。Worksheets(1).EnableCalculation=False7、'下述过程打开C盘上名为MyFolder的文件夹中的MyBook.xls工作簿。Workbooks.Open("C:MyFolderMyBook.xls")8、'本示例显示活动工作簿中工作表sheet1上单元格A1中的值。MsgBoxWorkshe
6、ets("Sheet1").Range("A1").Value9、本示例显示活动工作簿中每个工作表的名称ForEachwsInWorksheetsMsgBoxws.NameNextws10、本示例向活动工作簿添加新工作表,并设置该工作表的名称?SetNewSheet=Worksheets.AddNewSheet.Name="currentBudget"11、本示例将新建的工作表移到工作簿的末尾'PrivateSubWorkbook_NewSheet(ByValShAsObject)Sh.MoveAfter:=Sheets(Sheets.Co
7、unt)EndSub1、本示例将新建工作表移到工作簿的末尾'PrivateSubApp_WorkbookNewSheet(ByValWbAsWorkbook,_ByValShAsObject)Sh.MoveAfter:=Wb.Sheets(Wb.Sheets.Count)EndSub2、本示例新建一张工作表,然后在第一列中列出活动工作簿中的所有工作表的名称。SetNewSheet=Sheets.Add(Type:=xlWorksheet)Fori=1ToSheets.CountNewSheet.Cells(i,1).Value=Sheets
8、(i).NameNexti3、本示例将第十行移到窗口的最上面?Worksheets("Sheet1").ActivateActiveWindow.ScrollRow=104、当计
此文档下载收益归作者所有