VBA-EXCEL工作表代码.doc

工作表1、隐藏SHEET1这张工作表 sheets(sheet1).Visible=False2、显示SHEET1这张工作表sheets(sheet1).Visible=True3、同时选择工作表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.Delete9、保护工作表使其不至被修改。 Sheets(“工作表名 ”).Protect (Password) 10、撤销工作表保护使其被修改。Sheets(“工作表名 ”).Unprotect (Password) 示例： Sheets(“sheet1”).Protect “123456” Sheets(“sheet1”).Unprotect “123456” 11、添加工作表 Sheets.Add12、当前工作表命名 ActiveSheet.Name = www13、选定下（上）一个工作表 sheets(activesheet.index-1).select sheets(activesheet.index+1).select14、取消工作表标签 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:=123419、深度隐藏工作表 Sheet1.Visible = 2 20、显示工作表 Sheet1.Visible = -1 21、当前工作表中已使用的行数ActiveSheet.UsedRange.Rows.Count 22、Rows.Count 获取工作表的行数(注：考虑向前兼容性)23、Sheets(Sheet1).Name= “Sum” 将Sheet1命名为Sum24、ThisWorkbook.Sheets.Add Before:=Worksheets(1) 添加一个新工作表在第一工作表前25、ActiveSheet.Move After:=ActiveWorkbook. _Sheets(ActiveWorkbook.Sheets.Count) 将当前工作表移至工作表的最后26、Sheets(“sheet1”).Delete或 Sheets(1).Delete 删除工作表127、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 将用户名放置在活动工作表的页脚ActiveSheet.PageSetup.LeftFooter=Application.UserName 34、两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，升序排列ActiveSheet.Range(A:B).Sort Key1:=Columns(B), Key2:=Columns(A), _ Header:=xlYes 35、开启数据记录单 ActiveS heet.ShowDataForm 工作簿1、定制自己的状态栏 Application.StatusBar = 现在时刻: & Time2、恢复自己的状态栏 Application.StatusBar = false3、关闭屏幕更新 Application.ScreenUpdate=False4、打开屏幕刷新 Application.ScreenUpdating=True 5、删除一个文件 kill c:1.txt6、退出EXCEL Application.Quit7、将文本写到状态栏 Application.StatusBar=”请等待”8、更新状态栏文本，以变量Percent代表完成的百分比 Application.StatusBar=”请等待” & Percent & “% Completed” 9、MkDir D:Music 建立文件夹的方法10、打开文件夹的方法 ActiveWorkbook.FollowHyperlink Address:=D:Music, NewWindow:=True 11、以本工作表名称另存文件到当前目录ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & & ActiveSheet.Name & .xls12、新建 Workbooks.Add 打开 Workbooks.Open 路径 & 文件名 .xls 13、关闭同时保存 Workbooks(filename.xls).Close savechanges:=True 14、.关闭同时不保存 Workbooks(filename.xls).Close savechanges:=False 15、.Excel程序的关闭 Application.Quit 16、关闭Excel的警告提示。 Application.DisplayAlerts = False17、 全屏显示 Application.DisplayFullScreen = True18、不保存直接关闭当前的工作簿 Workbooks(BOOK1.XLS).CloseSaveChanges:=False19、不保存直接关闭EXCEL窗口(关闭所有的工作簿)的VBA语句Application.DisplayAlerts=False Application.Quit20、保护工作簿 ActiveSheet.Protect 21、取消保护工作簿 ActiveSheet.Unprotect22、给当前工作簿改名为 liu ActiveSheet.Name = liu23、增加一个工作簿 Worksheets.Add24、删除当前工作簿 activesheet.delete25、打开一个文件 Workbooks.Open FileName:=C:My DocumentsBook2.xls26、关闭当前工作簿 ActiveWindow.Close27、返回工作簿代码的名称 ActiveWorkbook.CodeName ThisWorkbook.CodeName 28、返回当前工作簿的路径(注:若未保存,则为空) ThisWorkbook.Path ActiveWorkbook.Path 29、将状态栏重新设置成正常状态 Application.StatusBar=False 30、返回活动工作表的名称 Application.ActiveSheet.Name 31、返回活动窗口的标题 Application.ActiveWindow.Caption 32、返回活动工作簿的名称 Application.ActiveWorkbook.Name 33、去掉XLS文件头上菜单栏的“MIcrosoft EXCEL ”字样 Application.Caption = 专用表格34、设置 15 秒后运行 my_Procedure 过程，从现在开始计时。Application.OnTime Now + TimeValue(00:00:15), my_Procedure35、设定 my_Procedure 这个宏在下午 5 点开始执行。 Application.OnTime TimeValue(17:00:00), my_Procedure36、以某一单元格中的值为文件名保存 ActiveWorkbook.SaveCopyAs Str(Range(Sheet1!A1) + .xls37、ThisWorkbook.Save 保存工作簿38、 ActiveWorkbook.Sheets.Count 获取活动工作薄中工作表数39、 ActiveW 返回活动工作薄的名称40、 ThisWorkbook.Name 返回当前工作簿名称ThisWorkbook.FullName 返回当前工作簿路径和名称41、 ActiveWindow.EnableResize=False 禁止调整活动工作簿的大小42、 Application.Window.Arrange xlArrangeStyleTiled 将工作簿以平铺方式排列43、 ActiveWorkbook.WindowState=xlMaximized 将当前工作簿最大化44、返回当前工作簿的名称 Application.ThisWorkbook.Name Dim fs, d, sSet fs = CreateObject(Scripting.FileSystemObject)Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(ThisWorkbook.Path)s = d.serialnumber 磁盘序列号If s = 要使用的电脑磁盘序列号 Then Exit SubDim FirstDate, de, daysFirstDate = Datede = GetSetting(XXX, YYY, date, ) 从注册表取值If de = Then 如果取不到值SaveSetting XXX, YYY, date, FirstDate 把日期保存到注册表MsgBox 本文件可使用120天，今天是第1次使用, , 提示Elsedays = Date