VBA-EXCE工作表代码.docVIP

工作表 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 ActiveWorkbook.FullName 33 ‘将用户名放置在活动工作表的页脚