VBA-EXCEL工作表代码..doc

工作表 1、隐藏SHEET1这张工作表 　sheets(sheet1).Visible=False 2、显示SHEET1这张工作表　　sheets(sheet1).Visible=True 3、同时选择工作表1和工作表2 Worksheets(Array(“sheet1”,”sheet2”)).Select 4、删除工作表1 Sheets(“sheet1”).Delete或 Sheets(1).Delete 5、将该表格保存到C:\test.xls 目录 ExcelSheet.SaveAs C:\TEST.XLS 6、在第1工作表前添加新工作表 Sheets.Add before:=Sheets(1) 7、在最后工作表后添加新工作表　　 Sheets.Add after:=Sheets(Sheets.Count) 8、删除当前工作表 ActiveWindow.SelectedSheets.Delete 可以用以下语句删除当前工作表。 　 ActiveSheet.Delete 9、保护工作表使其不至被修改。 Sheets(“工作表名 ”).Protect (Password) 10、撤销工作表保护使其被修改。 Sheets(“工作表名 ”).Unprotect (Password) 示例： Sheets(“sheet1”).Protect “123456” Sheets(“sheet1”).Unprotect “123456” 11、添加工作表 Sheets.Add 12、当前工作表命名 ActiveSheet.Name = www 13、选定下（上）一个工作表 sheets(activesheet.index-1).select sheets(activesheet.index+1).select 14、取消工作表标签 ActiveWindow.DisplayWorkbookTabs = False 15、格式＿工作表不能重命名? ?Application.CommandBars(Sheet).Controls(1).Enabled= False 16、取消工作表标签 ?ActiveWindow.DisplayWorkbookTabs = False 17、右键菜单不能重命名? Application.CommandBars.FindControl(ID:=889).Enabled = False 18、工作表加密 Worksheets（″基础数据表″）.Protect Password:=1234 19、深度隐藏工作表 Sheet1.Visible = 2 20、显示工作表 Sheet1.Visible = -1 21、‘当前工作表中已使用的行数 ActiveSheet.UsedRange.Rows.Count 22、Rows.Count ‘获取工作表的行数(注：考虑向前兼容性)23、Sheets(Sheet1).Name= “Sum” 将Sheet1命名为Sum 24、ThisWorkbook.Sheets.Add Before:=Worksheets(1) 添加一个新工作表在第一工作表前 25、ActiveSheet.Move After:=ActiveWorkbook. _Sheets(ActiveWorkbook.Sheets.Count) 将当前工作表移至工作表的最后 26、Sheets(“sheet1”).Delete或 Sheets(1).Delete 删除工作表1 27、ActiveWorkbook.Sheets(i).Name 获取工作表i的名称 28、切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮 ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines 29、‘切换工作表中的行列边框显示 ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings 30、ActiveSheet.UsedRange.FormatConditions.Delete ‘删除当前工作表中所有的条件格式 31、将页面设置更改为横向 ActiveSheet.PageSetup.Orientation=xlLandscape 或ActiveSheet.PageSetup.Orientation=2 32、‘在页面设置的表尾中输入文件路径 ActiveSheet.PageSetup.RightFooter=ActiveWor