VBA-EXCEL工作表代码

《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