欢迎来到天天文库
浏览记录
ID:40577001
大小:41.50 KB
页数:6页
时间:2019-08-04
《VBA-EXCEL工作表代码》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、工作表1、'隐藏SHEET1这张工作表 sheets("sheet1").Visible=False2、'显示SHEET1这张工作表 sheets("sheet1").Visible=True3、'同时选择工作表1和工作表2Worksheets(Array(“sheet1”,”sheet2”)).Select4、'删除工作表1Sheets(“sheet1”).Delete或Sheets(1).Delete5、'将该表格保存到C:test.xls目录ExcelSheet.SaveAs"C:TEST.XLS"6、'在第1工作表前添加新工作表Sheets.Add
2、before:=Sheets(1)7、'在最后工作表后添加新工作表 Sheets.Addafter:=Sheets(Sheets.Count)8、'删除当前工作表ActiveWindow.SelectedSheets.Delete可以用以下语句删除当前工作表。 ActiveSheet.Delete9、保护工作表使其不至被修改。Sheets(“工作表名”).Protect(Password)10、撤销工作表保护使其被修改。Sheets(“工作表名”).Unprotect(Password)示例:Sheets(“sheet1”).Protect“123456”Sh
3、eets(“sheet1”).Unprotect“123456”11、添加工作表Sheets.Add12、当前工作表命名ActiveSheet.Name="www"13、选定下(上)一个工作表sheets(activesheet.index-1).selectsheets(activesheet.index+1).select14、'取消工作表标签ActiveWindow.DisplayWorkbookTabs=False15、'格式_工作表不能重命名 Application.CommandBars("Sheet").Controls(1).Enabled=F
4、alse16、'取消工作表标签 ActiveWindow.DisplayWorkbookTabs=False17、'右键菜单不能重命名 Application.CommandBars.FindControl(ID:=889).Enabled=False18、'工作表加密Worksheets(″基础数据表″).ProtectPassword:="1234"19、'深度隐藏工作表Sheet1.Visible=220、'显示工作表Sheet1.Visible=-121、‘当前工作表中已使用的行数ActiveSheet.UsedRange.Rows.Count22、Ro
5、ws.Count‘获取工作表的行数(注:考虑向前兼容性)23、Sheets(Sheet1).Name=“Sum”'将Sheet1命名为Sum24、ThisWorkbook.Sheets.AddBefore:=Worksheets(1)'添加一个新工作表在第一工作表前25、ActiveSheet.MoveAfter:=ActiveWorkbook._Sheets(ActiveWorkbook.Sheets.Count)'将当前工作表移至工作表的最后26、Sheets(“sheet1”).Delete或Sheets(1).Delete'删除工作表127、Active
6、Workbook.Sheets(i).Name'获取工作表i的名称28、'切换工作表中的网格线显示,这种方法也可以用在其它方面进行相互切换,即相当于开关按钮ActiveWindow.DisplayGridlines=NotActiveWindow.DisplayGridlines29、‘切换工作表中的行列边框显示ActiveWindow.DisplayHeadings=NotActiveWindow.DisplayHeadings30、ActiveSheet.UsedRange.FormatConditions.Delete‘删除当前工作表中所有的条件格式31、
7、'将页面设置更改为横向ActiveSheet.PageSetup.Orientation=xlLandscape或ActiveSheet.PageSetup.Orientation=232、‘在页面设置的表尾中输入文件路径ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName33‘将用户名放置在活动工作表的页脚ActiveSheet.PageSetup.LeftFooter=Application.UserName34、‘两个关键字排序,相邻两列,B列为主关键字,A列为次关键字,升序排列ActiveSh
8、eet.Range("A
此文档下载收益归作者所有